Mercurial > emacs

comparison lisp/vc-hooks.el @ 3974:cd0cc37be860

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(vc-mode-line): Put `RCS' or `SCCS' before version num.
author Richard M. Stallman <rms@gnu.org>
date Sun, 04 Jul 1993 04:53:58 +0000
parents c6f3d2af0df7
children c24f84e2f019
comparison
equal deleted inserted replaced
3973:ab06b106c490 3974:cd0cc37be860
129 visiting FILE." 129 visiting FILE."
130 (interactive (list buffer-file-name nil)) 130 (interactive (list buffer-file-name nil))
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))
140 140
141 (defun vc-rcs-status (file) 141 (defun vc-rcs-status (file)