Mercurial > emacs
changeset 4480:208145c77950
* vc.el (vc-diff, vc-directory-18): Add missing paren to end of
vc-diff, and remove extra paren from vc-directory-18.
| author | Jim Blandy <jimb@redhat.com> |
|---|---|
| date | Sun, 08 Aug 1993 00:44:26 +0000 |
| parents | 9fab557f1e16 |
| children | c40febdb9967 |
| files | lisp/vc.el |
| diffstat | 1 files changed, 5 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/vc.el Sun Aug 08 00:20:22 1993 +0000 +++ b/lisp/vc.el Sun Aug 08 00:44:26 1993 +0000 @@ -739,7 +739,8 @@ (if historic (call-interactively 'vc-version-diff) (if (or (null buffer-file-name) (null (vc-name buffer-file-name))) - (error "There is no version-control master associated with this buffer")) + (error + "There is no version-control master associated with this buffer")) (let ((file buffer-file-name) unchanged) (or (and file (vc-name file)) @@ -763,12 +764,8 @@ (setq unchanged t) (message "No changes to %s since latest version." file)) (goto-char (point-min)) - (shrink-window-if-larger-than-buffer) - ) - (not unchanged) - ) - ) - ) + (shrink-window-if-larger-than-buffer))) + (not unchanged)))) (defun vc-version-diff (file rel1 rel2) "For FILE, report diffs between two stored versions REL1 and REL2 of it. @@ -954,7 +951,7 @@ (shrink-window-if-larger-than-buffer))) (message "No files are currently %s under %s" (if verbose "registered" "locked") default-directory)) - )) + ) (or (boundp 'minor-mode-map-alist) (fset 'vc-directory 'vc-directory-18))