Mercurial > emacs

changeset 3974:cd0cc37be860

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 ab06b106c490
children 718280a1ba74
files lisp/vc-hooks.el
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
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))