mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-28 07:45:00 +00:00
Code Issues Releases Activity

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

Browse Source 
terminate before setting up the major mode.
This commit is contained in:
Stefan Monnier 2009-12-01 20:08:20 +00:00
parent f3b757f540
commit c767b6650c
2 changed files with 11 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/ChangeLog
View File

@ -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.

14
lisp/vc.el
View File

@ -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