mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

(change-log-mode-map): Add a menu.

Browse source
This commit is contained in:
Dan Nicolaescu 2009-07-27 17:41:38 +00:00
parent 42fb7e6146
commit d43c2b06cd
2 changed files with 20 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/ChangeLog
View file

@ -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

17
lisp/add-log.el
View file

@ -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.")