From d43c2b06cdf05b9e5d0d9f4785e6465cfdd44fe6 Mon Sep 17 00:00:00 2001 From: Dan Nicolaescu Date: Mon, 27 Jul 2009 17:41:38 +0000 Subject: [PATCH] (change-log-mode-map): Add a menu. --- lisp/ChangeLog | 4 ++++ lisp/add-log.el | 17 ++++++++++++++++- 2 files changed, 20 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 7922b083a9f..5053ea60b06 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2009-07-27 Dan Nicolaescu + + * add-log.el (change-log-mode-map): Add a menu. + 2009-07-27 Michael Albinus * net/dbus.el (dbus-call-method-non-blocking): Handle the case the diff --git a/lisp/add-log.el b/lisp/add-log.el index cf97dfc0ee9..30c9520a66d 100644 --- a/lisp/add-log.el +++ b/lisp/add-log.el @@ -554,11 +554,26 @@ Compatibility function for \\[next-error] invocations." (select-window change-log-find-window))))) (defvar change-log-mode-map - (let ((map (make-sparse-keymap))) + (let ((map (make-sparse-keymap)) + (menu-map (make-sparse-keymap))) (define-key map [?\C-c ?\C-p] 'add-log-edit-prev-comment) (define-key map [?\C-c ?\C-n] 'add-log-edit-next-comment) (define-key map [?\C-c ?\C-f] 'change-log-find-file) (define-key map [?\C-c ?\C-c] 'change-log-goto-source) + (define-key map [menu-bar changelog] (cons "ChangeLog" menu-map)) + (define-key menu-map [gs] + '(menu-item "Go To Source" change-log-goto-source + :help "Go to source location of ChangeLog tag near point")) + (define-key menu-map [ff] + '(menu-item "Find File" change-log-find-file + :help "Visit the file for the change under point")) + (define-key menu-map [sep] '("--")) + (define-key menu-map [nx] + '(menu-item "Next Log-Edit Comment" add-log-edit-next-comment + :help "Cycle forward through Log-Edit mode comment history")) + (define-key menu-map [pr] + '(menu-item "Previous Log-Edit Comment" add-log-edit-prev-comment + :help "Cycle backward through Log-Edit mode comment history")) map) "Keymap for Change Log major mode.") -- 2.11.4.GIT