(vc-print-log-internal): Don't wait for the prcess to

terminate before setting up the major mode.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 83b80072381fac8a728c7593e7a07ebf8a0e2af9..b59cfde463b77d85b698c43348bd886da2730581 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2009-12-01  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+       * vc.el (vc-print-log-internal): Don't wait for the prcess to
+       terminate before setting up the major mode.
+
        * pcmpl-unix.el (pcomplete/cd): Complete more than one argument, just
        in case.
 

diff --git a/lisp/vc.el b/lisp/vc.el
index a866431a57b8567113ad11d6bff79f5bbab0f801..616b9a34dea595ebf52466b5670c6d7793449ac6 100644 (file)
--- a/lisp/vc.el
+++ b/lisp/vc.el
@@ -1878,13 +1878,15 @@ Not all VC backends support short logs!")
     (setq pl-return (vc-call-backend backend 'print-log files "*vc-change-log*"
                                     vc-short-log limit))
     (pop-to-buffer "*vc-change-log*")
-    (vc-exec-after
-     `(let ((inhibit-read-only t)
-           (vc-short-log ,vc-short-log))
-       (vc-call-backend ',backend 'log-view-mode)
-       (set (make-local-variable 'log-view-vc-backend) ',backend)
-       (set (make-local-variable 'log-view-vc-fileset) ',files)
+    (let ((inhibit-read-only t))
+      ;; log-view-mode used to be called with inhibit-read-only bound
+      ;; to t, so let's keep doing it, just in case.
+      (vc-call-backend backend 'log-view-mode))
+    (set (make-local-variable 'log-view-vc-backend) ',backend)
+    (set (make-local-variable 'log-view-vc-fileset) ',files)
 
+    (vc-exec-after
+     `(let ((inhibit-read-only t))
        (when (and ,limit (not (eq 'limit-unsupported pl-return)))
          (goto-char (point-max))
          (widget-create 'push-button