Mercurial > emacs

comparison lisp/add-log.el @ 104085:6298508aee59

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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.