[Emacs-diffs] Changes to emacs/lisp/vc.el,v

[Dan Nicolaescu]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Dan Nicolaescu <dann>   08/02/18 19:53:27

Index: vc.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/vc.el,v
retrieving revision 1.533
retrieving revision 1.534
diff -u -b -r1.533 -r1.534
--- vc.el       16 Feb 2008 15:54:36 -0000      1.533
+++ vc.el       18 Feb 2008 19:53:25 -0000      1.534
@@ -557,7 +557,7 @@
 ;;
 ;; - decide if vc-status should replace vc-dired.
 ;;
-;; - vc-status needs a menu, mouse bindings and some color bling.
+;; - vc-status needs mouse bindings and some color bling.
 ;;
 ;; - vc-status needs to show missing files. It probably needs to have
 ;;   another state for those files. The user might want to restore
@@ -2672,6 +2672,48 @@
     map)
   "Keymap for VC status")
 
+(easy-menu-define vc-status-mode-menu vc-status-mode-map
+  "Menu for vc-status."
+  '("VC Status"
+    ["Open file" vc-status-find-file
+     :help "Find the file on the current line"]
+    ["Open in other window" vc-status-find-file-other-window
+     :help "Find the file on the current line, in another window"]
+    "----"
+    ;; VC commands.
+    ["Compare with Base Version" vc-diff
+     :help "Compare file set with the base version"]
+    ["Register" vc-status-register
+     :help "Register file set into the version control system"]
+    ["Annotate" vc-annotate
+     :help "Display the edit history of the current file using colors"]
+    ;; vc-print-log uses the current buffer, not a file.
+    ;; ["Show history" vc-status-print-log
+    ;;  :help "List the change log of the current file set in a window"]
+    "----"
+    ;; Movement.
+    ["Next line" vc-status-next-line
+     :help "Go to the next line"]
+    ["Previous line" vc-status-previous-line
+     :help "Go to the previous line"]
+    "----"
+    ;; Marking.
+    ["Mark" vc-status-mark-file
+     :help "Mark the current file and move to the next line"]
+    ["Marl All" vc-status-mark-all-files
+     :help "Mark all files"]
+    ["Unmark" vc-status-unmark-file
+     :help "Unmark the current file and move to the next line"]
+    ["Unmark previous " vc-status-unmark-file-up
+     :help "Move to the previous line and unmark the file"]
+    ["Unmark All" vc-status-unmark-all-files
+     :help "Unmark all files"]
+    "----"
+    ["Refresh" vc-status-refresh
+     :help "Refresh the contents of the VC status buffer"]
+    ["Quit" bury-buffer
+     :help "Quit"]))
+
 (defun vc-status-mode ()
   "Major mode for VC status.
 \\{vc-status-mode-map}"