From b45d89b0ef0bffcb865b39cc10aa536eb335d9a2 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 4 Jul 1993 04:53:58 +0000 Subject: [PATCH] (vc-mode-line): Put `RCS' or `SCCS' before version num. --- lisp/vc-hooks.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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)) -- 2.39.5