Mercurial > emacs
diff lisp/vc-hooks.el @ 3974:cd0cc37be860
(vc-mode-line): Put `RCS' or `SCCS' before version num.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Sun, 04 Jul 1993 04:53:58 +0000 |
parents | c6f3d2af0df7 |
children | c24f84e2f019 |
line wrap: on
line diff
--- a/lisp/vc-hooks.el Sun Jul 04 04:51:13 1993 +0000 +++ b/lisp/vc-hooks.el Sun Jul 04 04:53:58 1993 +0000 @@ -131,9 +131,9 @@ (let ((vc-type (vc-backend-deduce file))) (if vc-type (setq vc-mode - (concat (if (and vc-rcs-status (eq vc-type 'RCS)) - (vc-rcs-status file)) - " " (or label (symbol-name vc-type))))) + (concat " " (or label (symbol-name vc-type)) + (if (and vc-rcs-status (eq vc-type 'RCS)) + (vc-rcs-status file))))) ;; force update of mode line (set-buffer-modified-p (buffer-modified-p)) vc-type))