Mercurial > emacs
changeset 106361:2e9a20121a4f
(vc-print-log-internal): Don't wait for the prcess to
terminate before setting up the major mode.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Tue, 01 Dec 2009 20:08:20 +0000 |
| parents | 33815099ecfc |
| children | d19d1b12196e |
| files | lisp/ChangeLog lisp/vc.el |
| diffstat | 2 files changed, 11 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Tue Dec 01 19:42:28 2009 +0000 +++ b/lisp/ChangeLog Tue Dec 01 20:08:20 2009 +0000 @@ -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.
--- a/lisp/vc.el Tue Dec 01 19:42:28 2009 +0000 +++ b/lisp/vc.el Tue Dec 01 20:08:20 2009 +0000 @@ -1878,13 +1878,15 @@ (setq pl-return (vc-call-backend backend 'print-log files "*vc-change-log*" vc-short-log limit)) (pop-to-buffer "*vc-change-log*") + (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) - (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)) (when (and ,limit (not (eq 'limit-unsupported pl-return))) (goto-char (point-max)) (widget-create 'push-button