diff options
| author | Richard M. Stallman <rms@gnu.org> | 1993-07-04 04:53:58 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1993-07-04 04:53:58 +0000 |
| commit | b45d89b0ef0bffcb865b39cc10aa536eb335d9a2 (patch) | |
| tree | abf3b24a0400b113e0302998cc528d61fb99bae9 /lisp/vc-hooks.el | |
| parent | d3e6f8be7bd8588b69daf392c5bf173fa8d0708f (diff) | |
| download | emacs-b45d89b0ef0bffcb865b39cc10aa536eb335d9a2.tar.gz | |
(vc-mode-line): Put `RCS' or `SCCS' before version num.
Diffstat (limited to 'lisp/vc-hooks.el')
| -rw-r--r-- | lisp/vc-hooks.el | 6 |
1 files 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)) |