Mercurial > emacs
changeset 87692:c1ba1fb56b96
* vc.el (vc-status-unmark-all-files): New function.
(vc-status-unmark-all-files): Likewise.
(vc-status-mode-map): Add bindings.
| author | Dan Nicolaescu <dann@ics.uci.edu> |
|---|---|
| date | Thu, 10 Jan 2008 07:51:25 +0000 |
| parents | f2c8fd594360 |
| children | 4753a12c62b6 |
| files | lisp/ChangeLog lisp/vc.el |
| diffstat | 2 files changed, 31 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Thu Jan 10 06:54:12 2008 +0000 +++ b/lisp/ChangeLog Thu Jan 10 07:51:25 2008 +0000 @@ -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
--- a/lisp/vc.el Thu Jan 10 06:54:12 2008 +0000 +++ b/lisp/vc.el Thu Jan 10 07:51:25 2008 +0000 @@ -2552,8 +2552,10 @@ (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 @@ (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 @@ (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)