Mercurial > emacs
changeset 93367:07bc5cae1251
(vc-status-mode-map, vc-status-menu-map): Bind vc-update and vc-print-log.
| author | Dan Nicolaescu <dann@ics.uci.edu> |
|---|---|
| date | Sat, 29 Mar 2008 00:43:56 +0000 |
| parents | 84a5da4da422 |
| children | 411d7b7dfe32 |
| files | lisp/ChangeLog lisp/vc.el |
| diffstat | 2 files changed, 6 insertions(+), 9 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Sat Mar 29 00:17:54 2008 +0000 +++ b/lisp/ChangeLog Sat Mar 29 00:43:56 2008 +0000 @@ -2,7 +2,7 @@ * vc.el (vc-update): Check if the buffer is unsaved only if it actually exists. - (vc-status-mode-map, vc-status-menu-map): Bind vc-update. + (vc-status-mode-map, vc-status-menu-map): Bind vc-update and vc-print-log. 2008-03-28 Magnus Henoch <mange@freemail.hu>
--- a/lisp/vc.el Sat Mar 29 00:17:54 2008 +0000 +++ b/lisp/vc.el Sat Mar 29 00:43:56 2008 +0000 @@ -617,7 +617,6 @@ (eval-when-compile (require 'cl) - (require 'compile) (require 'dired) ; for dired-map-over-marks macro (require 'dired-aux)) ; for dired-kill-{line,tree} @@ -2753,10 +2752,9 @@ (define-key map [update] '(menu-item "Update" vc-update :help "Update the current fileset's files to their tip revisions")) - ;; vc-print-log uses the current buffer, not a file. - ;; (define-key map [log] - ;; '(menu-item "Show history" vc-status-print-log - ;; :help "List the change log of the current file set in a window")) + (define-key map [log] + '(menu-item "Show history" vc-print-log + :help "List the change log of the current file set in a window")) ;; Movement. (define-key map [separator-movement] '("--")) @@ -2821,8 +2819,7 @@ (define-key map "+" 'vc-update) ;; Can't be "g" (as in vc map), so "A" for "Annotate". (define-key map "A" 'vc-annotate) - ;; vc-print-log uses the current buffer, not a file. - ;; (define-key map "l" 'vc-status-print-log) + (define-key map "l" 'vc-print-log) ;; The remainder. (define-key map "f" 'vc-status-find-file) (define-key map "\C-m" 'vc-status-find-file) @@ -2966,7 +2963,7 @@ (error "Another update process is in progress, cannot run two at a time") ;; This is not very efficient; ewoc could use a new function here. ;; We clear the ewoc, but remember the marked files so that we can - ;; mark them after the refresh is done. + ;; mark them again after the refresh is done. (setq vc-status-crt-marked (mapcar (lambda (elem)