(cvs-menu): Improve cvs-mode-find-file, cvs-mode-find-file-other-window.

Add cvs-mode-diff-yesterday and manual entry.

2 files changed, 12 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 35cf2d449c4..5045c30b3e4 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2008-01-21  Reiner Steib  <Reiner.Steib@gmx.de>
+
+        * pcvs-defs.el (cvs-menu): Improve cvs-mode-find-file,
+        cvs-mode-find-file-other-window.  Add cvs-mode-diff-yesterday and
+        manual entry.
+
 2008-01-21  Michael Albinus  <michael.albinus@gmx.de>
 
         * net/dbus.el (dbus-ignore-errors): New macro.
diff --git a/lisp/pcvs-defs.el b/lisp/pcvs-defs.el
index fa6f2b1c050..a4e7fde0f51 100644
--- a/lisp/pcvs-defs.el
+++ b/lisp/pcvs-defs.el
@@ -404,8 +404,8 @@ This variable is buffer local and only used in the *cvs* buffer.")
 
 (easy-menu-define cvs-menu cvs-mode-map "Menu used in `cvs-mode'."
   '("CVS"
-    ["Open file.."              cvs-mode-find-file      t]
-    [" ..other window"          cvs-mode-find-file-other-window t]
+    ["Open file"                cvs-mode-find-file      t]
+    ["Open in other window"     cvs-mode-find-file-other-window t]
     ["Display in other window"  cvs-mode-display-file   t]
     ["Interactive merge"        cvs-mode-imerge         t]
     ("View diff"
@@ -413,6 +413,7 @@ This variable is buffer local and only used in the *cvs* buffer.")
      ["Current diff"            cvs-mode-diff           t]
      ["Diff with head"          cvs-mode-diff-head      t]
      ["Diff with vendor"        cvs-mode-diff-vendor    t]
+     ["Diff against yesterday"  cvs-mode-diff-yesterday t]
      ["Diff with backup"        cvs-mode-diff-backup    t])
     ["View log"                 cvs-mode-log            t]
     ["View status"              cvs-mode-status         t]
@@ -437,6 +438,9 @@ This variable is buffer local and only used in the *cvs* buffer.")
     ["Unmark all"               cvs-mode-unmark-all-files t]
     ["Hide handled"             cvs-mode-remove-handled t]
     "----"
+    ["PCL-CVS Manual"           (lambda () (interactive)
+                                  (info "(pcl-cvs)Top")) t]
+    "----"
     ["Quit"                     cvs-mode-quit           t]))
 
 ;;;;