Mercurial > emacs

comparison lisp/log-view.el @ 78077:442f874e0b22

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(log-view-mode-menu): New menu.
author Dan Nicolaescu <dann@ics.uci.edu>
date Sat, 07 Jul 2007 03:42:40 +0000
parents e3694f1cb928
children 9355f9b7bbff
comparison
equal deleted inserted replaced
78076:dc2000c17cdd 78077:442f874e0b22
102 "Log-View's keymap." 102 "Log-View's keymap."
103 :group 'log-view 103 :group 'log-view
104 ;; Here I really need either buffer-local keymap-inheritance 104 ;; Here I really need either buffer-local keymap-inheritance
105 ;; or a minor-mode-map with lower precedence than the local map. 105 ;; or a minor-mode-map with lower precedence than the local map.
106 :inherit (if (boundp 'cvs-mode-map) cvs-mode-map)) 106 :inherit (if (boundp 'cvs-mode-map) cvs-mode-map))
107
108 (easy-menu-define log-view-mode-menu log-view-mode-map
109 "Log-View Display Menu"
110 `("Log-View"
111 ;; XXX Do we need menu entries for these?
112 ;; ["Quit" quit-window]
113 ;; ["Kill This Buffer" kill-this-buffer]
114 ["Mark Log Entry for Diff" set-mark-command]
115 ["Diff Revisions" log-view-diff]
116 ["Visit Version" log-view-find-version]
117 ["Next Log Entry" log-view-msg-next]
118 ["Previous Log Entry" log-view-msg-prev]
119 ["Next File" log-view-file-next]
120 ["Previous File" log-view-file-prev]))
107 121
108 (defvar log-view-mode-hook nil 122 (defvar log-view-mode-hook nil
109 "Hook run at the end of `log-view-mode'.") 123 "Hook run at the end of `log-view-mode'.")
110 124
111 (defface log-view-file 125 (defface log-view-file