procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Richard M. Stallman 1993-07-04 04:53:58 +00:00
parent d3e6f8be7b
commit b45d89b0ef
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/vc-hooks.el
View file

@ -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))