From c767b6650c52356e08893f0c61ee2094281e422f Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Tue, 1 Dec 2009 20:08:20 +0000 Subject: [PATCH] (vc-print-log-internal): Don't wait for the prcess to terminate before setting up the major mode. --- lisp/ChangeLog | 3 +++ lisp/vc.el | 14 ++++++++------ 2 files changed, 11 insertions(+), 6 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 83b8007238..b59cfde463 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2009-12-01 Stefan Monnier + * 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 a866431a57..616b9a34de 100644 --- 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 -- 2.20.1