[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp ChangeLog vc.el
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] emacs/lisp ChangeLog vc.el |
Date: |
Tue, 01 Dec 2009 20:08:24 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Stefan Monnier <monnier> 09/12/01 20:08:23
Modified files:
lisp : ChangeLog vc.el
Log message:
(vc-print-log-internal): Don't wait for the prcess to
terminate before setting up the major mode.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16788&r2=1.16789
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/vc.el?cvsroot=emacs&r1=1.742&r2=1.743
Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16788
retrieving revision 1.16789
diff -u -b -r1.16788 -r1.16789
--- ChangeLog 1 Dec 2009 19:42:28 -0000 1.16788
+++ ChangeLog 1 Dec 2009 20:08:20 -0000 1.16789
@@ -1,5 +1,8 @@
2009-12-01 Stefan Monnier <address@hidden>
+ * 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.
Index: vc.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/vc.el,v
retrieving revision 1.742
retrieving revision 1.743
diff -u -b -r1.742 -r1.743
--- vc.el 25 Nov 2009 03:28:27 -0000 1.742
+++ vc.el 1 Dec 2009 20:08:23 -0000 1.743
@@ -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*")
- (vc-exec-after
- `(let ((inhibit-read-only t)
- (vc-short-log ,vc-short-log))
- (vc-call-backend ',backend 'log-view-mode)
+ (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
- [Emacs-diffs] emacs/lisp ChangeLog vc.el,
Stefan Monnier <=