# HG changeset patch
# User Dan Nicolaescu <dann@ics.uci.edu>
# Date 1206751436 0
# Node ID 07bc5cae12516e02e5c79dfe6d09253b848414e4
# Parent  84a5da4da42292303ad8e38d917672fc2baa9ac8
(vc-status-mode-map, vc-status-menu-map): Bind vc-update and vc-print-log.

diff -r 84a5da4da422 -r 07bc5cae1251 lisp/ChangeLog
--- 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>
 
diff -r 84a5da4da422 -r 07bc5cae1251 lisp/vc.el
--- 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)