Mercurial > emacs
changeset 104085:6298508aee59
(change-log-mode-map): Add a menu.
| author | Dan Nicolaescu <dann@ics.uci.edu> |
|---|---|
| date | Mon, 27 Jul 2009 17:41:38 +0000 |
| parents | 7be2320fbf28 |
| children | 1bce2f053aeb |
| files | lisp/ChangeLog lisp/add-log.el |
| diffstat | 2 files changed, 20 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Mon Jul 27 10:11:47 2009 +0000 +++ b/lisp/ChangeLog Mon Jul 27 17:41:38 2009 +0000 @@ -1,3 +1,7 @@ +2009-07-27 Dan Nicolaescu <dann@ics.uci.edu> + + * add-log.el (change-log-mode-map): Add a menu. + 2009-07-27 Michael Albinus <michael.albinus@gmx.de> * net/dbus.el (dbus-call-method-non-blocking): Handle the case the
--- a/lisp/add-log.el Mon Jul 27 10:11:47 2009 +0000 +++ b/lisp/add-log.el Mon Jul 27 17:41:38 2009 +0000 @@ -554,11 +554,26 @@ (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.")