diff options
| author | Richard M. Stallman | 1993-07-04 04:53:58 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1993-07-04 04:53:58 +0000 |
| commit | b45d89b0ef0bffcb865b39cc10aa536eb335d9a2 (patch) | |
| tree | abf3b24a0400b113e0302998cc528d61fb99bae9 | |
| parent | d3e6f8be7bd8588b69daf392c5bf173fa8d0708f (diff) | |
| download | emacs-b45d89b0ef0bffcb865b39cc10aa536eb335d9a2.tar.gz emacs-b45d89b0ef0bffcb865b39cc10aa536eb335d9a2.zip | |
(vc-mode-line): Put `RCS' or `SCCS' before version num.
| -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." | |||
| 131 | (let ((vc-type (vc-backend-deduce file))) | 131 | (let ((vc-type (vc-backend-deduce file))) |
| 132 | (if vc-type | 132 | (if vc-type |
| 133 | (setq vc-mode | 133 | (setq vc-mode |
| 134 | (concat (if (and vc-rcs-status (eq vc-type 'RCS)) | 134 | (concat " " (or label (symbol-name vc-type)) |
| 135 | (vc-rcs-status file)) | 135 | (if (and vc-rcs-status (eq vc-type 'RCS)) |
| 136 | " " (or label (symbol-name vc-type))))) | 136 | (vc-rcs-status file))))) |
| 137 | ;; force update of mode line | 137 | ;; force update of mode line |
| 138 | (set-buffer-modified-p (buffer-modified-p)) | 138 | (set-buffer-modified-p (buffer-modified-p)) |
| 139 | vc-type)) | 139 | vc-type)) |