From e4b9bdc58fc8db56f3d004dfd93e01d3c22e0994 Mon Sep 17 00:00:00 2001 From: Dan Nicolaescu Date: Sat, 7 Jul 2007 03:42:40 +0000 Subject: [PATCH] (log-view-mode-menu): New menu. --- lisp/ChangeLog | 4 ++++ lisp/log-view.el | 14 ++++++++++++++ 2 files changed, 18 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 9076e32c49b..319aacd11e6 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2007-07-07 Dan Nicolaescu + + * log-view.el (log-view-mode-menu): New menu. + 2007-07-06 Dan Nicolaescu * vc-hg.el: New file. diff --git a/lisp/log-view.el b/lisp/log-view.el index e4f50c15351..b9368e24ebf 100644 --- a/lisp/log-view.el +++ b/lisp/log-view.el @@ -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'.") -- 2.39.2