Mercurial > emacs
comparison lisp/add-log.el @ 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 | 6b137b54c7d3 |
children | afa0e028ba97 |
comparison
equal
deleted
inserted
replaced
104084:7be2320fbf28 | 104085:6298508aee59 |
---|---|
552 (when change-log-find-window | 552 (when change-log-find-window |
553 ;; Select window displaying source file. | 553 ;; Select window displaying source file. |
554 (select-window change-log-find-window))))) | 554 (select-window change-log-find-window))))) |
555 | 555 |
556 (defvar change-log-mode-map | 556 (defvar change-log-mode-map |
557 (let ((map (make-sparse-keymap))) | 557 (let ((map (make-sparse-keymap)) |
558 (menu-map (make-sparse-keymap))) | |
558 (define-key map [?\C-c ?\C-p] 'add-log-edit-prev-comment) | 559 (define-key map [?\C-c ?\C-p] 'add-log-edit-prev-comment) |
559 (define-key map [?\C-c ?\C-n] 'add-log-edit-next-comment) | 560 (define-key map [?\C-c ?\C-n] 'add-log-edit-next-comment) |
560 (define-key map [?\C-c ?\C-f] 'change-log-find-file) | 561 (define-key map [?\C-c ?\C-f] 'change-log-find-file) |
561 (define-key map [?\C-c ?\C-c] 'change-log-goto-source) | 562 (define-key map [?\C-c ?\C-c] 'change-log-goto-source) |
563 (define-key map [menu-bar changelog] (cons "ChangeLog" menu-map)) | |
564 (define-key menu-map [gs] | |
565 '(menu-item "Go To Source" change-log-goto-source | |
566 :help "Go to source location of ChangeLog tag near point")) | |
567 (define-key menu-map [ff] | |
568 '(menu-item "Find File" change-log-find-file | |
569 :help "Visit the file for the change under point")) | |
570 (define-key menu-map [sep] '("--")) | |
571 (define-key menu-map [nx] | |
572 '(menu-item "Next Log-Edit Comment" add-log-edit-next-comment | |
573 :help "Cycle forward through Log-Edit mode comment history")) | |
574 (define-key menu-map [pr] | |
575 '(menu-item "Previous Log-Edit Comment" add-log-edit-prev-comment | |
576 :help "Cycle backward through Log-Edit mode comment history")) | |
562 map) | 577 map) |
563 "Keymap for Change Log major mode.") | 578 "Keymap for Change Log major mode.") |
564 | 579 |
565 ;; It used to be called change-log-time-zone-rule but really should be | 580 ;; It used to be called change-log-time-zone-rule but really should be |
566 ;; called add-log-time-zone-rule since it's only used from add-log-* code. | 581 ;; called add-log-time-zone-rule since it's only used from add-log-* code. |