Mercurial > emacs
changeset 78077:442f874e0b22
(log-view-mode-menu): New menu.
| author | Dan Nicolaescu <dann@ics.uci.edu> |
|---|---|
| date | Sat, 07 Jul 2007 03:42:40 +0000 |
| parents | dc2000c17cdd |
| children | 1b1bd44b4a3c |
| files | lisp/ChangeLog lisp/log-view.el |
| diffstat | 2 files changed, 18 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Sat Jul 07 03:01:31 2007 +0000 +++ b/lisp/ChangeLog Sat Jul 07 03:42:40 2007 +0000 @@ -1,3 +1,7 @@ +2007-07-07 Dan Nicolaescu <dann@ics.uci.edu> + + * log-view.el (log-view-mode-menu): New menu. + 2007-07-06 Dan Nicolaescu <dann@ics.uci.edu> * vc-hg.el: New file.
--- a/lisp/log-view.el Sat Jul 07 03:01:31 2007 +0000 +++ b/lisp/log-view.el Sat Jul 07 03:42:40 2007 +0000 @@ -105,6 +105,20 @@ ;; or a minor-mode-map with lower precedence than the local map. :inherit (if (boundp 'cvs-mode-map) cvs-mode-map)) +(easy-menu-define log-view-mode-menu log-view-mode-map + "Log-View Display Menu" + `("Log-View" + ;; XXX Do we need menu entries for these? + ;; ["Quit" quit-window] + ;; ["Kill This Buffer" kill-this-buffer] + ["Mark Log Entry for Diff" set-mark-command] + ["Diff Revisions" log-view-diff] + ["Visit Version" log-view-find-version] + ["Next Log Entry" log-view-msg-next] + ["Previous Log Entry" log-view-msg-prev] + ["Next File" log-view-file-next] + ["Previous File" log-view-file-prev])) + (defvar log-view-mode-hook nil "Hook run at the end of `log-view-mode'.")