From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 4 Jul 1993 04:53:58 +0000 (+0000)
Subject: (vc-mode-line): Put `RCS' or `SCCS' before version num.
X-Git-Tag: emacs-19.34~11877
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b45d89b0ef0bffcb865b39cc10aa536eb335d9a2;p=emacs.git

(vc-mode-line): Put `RCS' or `SCCS' before version num.
---

diff --git a/lisp/vc-hooks.el b/lisp/vc-hooks.el
index e5d71471a27..211dab8e5a0 100644
--- a/lisp/vc-hooks.el
+++ b/lisp/vc-hooks.el
@@ -131,9 +131,9 @@ visiting FILE."
   (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))