diff options
author | Dan Nicolaescu <[email protected]> | 2009-07-27 17:41:38 +0000 |
---|---|---|
committer | Dan Nicolaescu <[email protected]> | 2009-07-27 17:41:38 +0000 |
commit | d43c2b06cdf05b9e5d0d9f4785e6465cfdd44fe6 (patch) | |
tree | 1ec857b86cc736069de03f3c75a5aef6b2e77e26 | |
parent | 42fb7e61464d846d233e00bd6796c6c771d523f6 (diff) |
(change-log-mode-map): Add a menu.
-rw-r--r-- | lisp/ChangeLog | 4 | ||||
-rw-r--r-- | lisp/add-log.el | 17 |
2 files changed, 20 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 7922b083a9..5053ea60b0 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2009-07-27 Dan Nicolaescu <[email protected]> + + * add-log.el (change-log-mode-map): Add a menu. + 2009-07-27 Michael Albinus <[email protected]> * 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 cf97dfc0ee..30c9520a66 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.") |