* vc.el (vc-status-unmark-all-files): New function.

(vc-status-unmark-all-files): Likewise.
(vc-status-mode-map): Add bindings.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e0244aa5d4bf1c019763931b1513239954353523..9afc7d600d51ebdb08da9746a660b2967cdeebb9 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,9 +1,15 @@
+2008-01-10  Tom Tromey  <tromey@redhat.com>
+
+       * vc.el (vc-status-unmark-all-files): New function.
+       (vc-status-unmark-all-files): Likewise.
+       (vc-status-mode-map): Add bindings.
+
 2008-01-10  Michael Kifer  <kifer@cs.stonybrook.edu>
-       
+
        * ediff*.el: uncommented declare-function.
-       
+
        * viper*.el: uncommented declare-function.
-       
+
 2008-01-09  Tassilo Horn  <tassilo@member.fsf.org>
 
        * doc-view.el (doc-view-mode): Support tramp, compressed files and

diff --git a/lisp/vc.el b/lisp/vc.el
index 5966cfb7a7ebac17d501ffcf99ef06071eeadb02..88915f3715f8e3a946bd0998da85ec7742676ec6 100644 (file)
--- a/lisp/vc.el
+++ b/lisp/vc.el
@@ -2552,8 +2552,10 @@ With prefix arg READ-SWITCHES, specify a value to override
     (suppress-keymap map)
     ;; Marking.
     (define-key map "m" 'vc-status-mark-file)
+    (define-key map "M" 'vc-status-mark-all-files)
     (define-key map "u" 'vc-status-unmark-file)
     (define-key map "\C-?" 'vc-status-unmark-file-up)
+    (define-key map "\M-\C-?" 'vc-status-unmark-all-files)
     ;; Movement.
     (define-key map "n" 'vc-status-next-line)
     (define-key map " " 'vc-status-next-line)
@@ -2627,6 +2629,16 @@ If a prefix argument is given, move by that many lines."
     (ewoc-invalidate vc-status crt)
     (vc-status-next-line 1)))
 
+(defun vc-status-mark-all-files ()
+  "Mark all files."
+  (interactive)
+   (ewoc-map
+    (lambda (file)
+      (unless (vc-status-fileinfo->marked file)
+       (setf (vc-status-fileinfo->marked file) t)
+       t))
+    vc-status))
+
 (defun vc-status-unmark-file ()
   "Unmark the current file and move to the next line."
   (interactive)
@@ -2648,6 +2660,16 @@ If a prefix argument is given, move by that many lines."
     (ewoc-invalidate vc-status prev)
     (vc-status-move-to-goal-column)))
 
+(defun vc-status-unmark-all-files ()
+  "Unmark all files."
+  (interactive)
+   (ewoc-map
+    (lambda (file)
+      (when (vc-status-fileinfo->marked file)
+       (setf (vc-status-fileinfo->marked file) nil)
+       t))
+    vc-status))
+
 (defun vc-status-register ()
   "Register the marked files, or the current file if no marks."
   (interactive)