procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* vc.el (vc-exec-after): Don't delete process manually.

Browse source 
(vc-print-log): Run log-view-mode in process sentinel inside
	inhibit-read-only.  Don't shrink window due to timing issues.
This commit is contained in:
Chong Yidong 2006-07-11 18:39:32 +00:00
parent ce4746a36a
commit 0f7ea45318
2 changed files with 12 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/ChangeLog
View file

@ -1,5 +1,9 @@
2006-07-11 Chong Yidong <cyd@stupidchicken.com>
* vc.el (vc-exec-after): Don't delete process manually.
(vc-print-log): Run log-view-mode in process sentinel inside
inhibit-read-only. Don't shrink window due to timing issues.
* progmodes/ebrowse.el (ebrowse-display-member-buffer): Avoid
using with-output-to-temp-buffer, which clobbers local vars.

15
lisp/vc.el
View file

@ -934,11 +934,12 @@ Else, add CODE to the process' sentinel."
(let ((proc (get-buffer-process (current-buffer))))
(cond
;; If there's no background process, just execute the code.
((null proc) (eval code))
;; If the background process has exited, reap it and try again
((eq (process-status proc) 'exit)
(delete-process proc)
(vc-exec-after code))
;; We used to explicitly call delete-process on exited processes,
;; but this led to timing problems causing process output to be
;; lost. Terminated processes get deleted automatically
;; anyway. -- cyd
((or (null proc) (eq (process-status proc) 'exit))
(eval code))
;; If a process is running, add CODE to the sentinel
((eq (process-status proc) 'run)
(let ((sentinel (process-sentinel proc)))
@ -2446,9 +2447,9 @@ If FOCUS-REV is non-nil, leave the point at that revision."
(vc-call print-log file)
(set-buffer "*vc*"))))
(pop-to-buffer (current-buffer))
(log-view-mode)
(vc-exec-after
`(let ((inhibit-read-only t))
(log-view-mode)
(goto-char (point-max)) (forward-line -1)
(while (looking-at "=*\n")
(delete-char (- (match-end 0) (match-beginning 0)))
@ -2456,7 +2457,7 @@ If FOCUS-REV is non-nil, leave the point at that revision."
(goto-char (point-min))
(if (looking-at "[\b\t\n\v\f\r ]+")
(delete-char (- (match-end 0) (match-beginning 0))))
(shrink-window-if-larger-than-buffer)
;; (shrink-window-if-larger-than-buffer)
;; move point to the log entry for the current version
(vc-call-backend ',(vc-backend file)
'show-log-entry