comparison lisp/vc.el @ 86002:613df1ba1584

* vc.el (vc-diff-internal): Make the *vc-diff* buffer read only. * vc-svn.el (vc-svn-print-log, vc-svn-diff): * vc-mcvs.el (vc-mcvs-print-log, vc-mcvs-annotate-command): * vc-cvs.el (vc-cvs-print-log, vc-cvs-diff) (vc-cvs-annotate-command): * vc-arch.el (vc-arch-diff): Remove test to check if start-process is bound, it always is.
author Dan Nicolaescu <dann@ics.uci.edu>
date Sat, 10 Nov 2007 05:22:16 +0000
parents 51aa47312c4b
children 430cc8630a39 880960b70474
comparison
equal deleted inserted replaced
86001:8845ad7f1ea3 86002:613df1ba1584
1929 (progn 1929 (progn
1930 (message "No changes between %s and %s" rev1-name rev2-name) 1930 (message "No changes between %s and %s" rev1-name rev2-name)
1931 nil) 1931 nil)
1932 (pop-to-buffer (current-buffer)) 1932 (pop-to-buffer (current-buffer))
1933 (diff-mode) 1933 (diff-mode)
1934 ;; Make the *vc-diff* buffer read only, the diff-mode key
1935 ;; bindings are nicer for read only buffers. pcl-cvs does the
1936 ;; same thing.
1937 (setq buffer-read-only t)
1934 (vc-exec-after `(vc-diff-sentinel ,verbose ,rev1-name ,rev2-name)) 1938 (vc-exec-after `(vc-diff-sentinel ,verbose ,rev1-name ,rev2-name))
1935 ;; In the async case, we return t even if there are no differences 1939 ;; In the async case, we return t even if there are no differences
1936 ;; because we don't know that yet. 1940 ;; because we don't know that yet.
1937 t))) 1941 t)))
1938 1942