Mercurial > emacs
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 |