mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-26 19:18:50 +00:00
Code Issues Releases Activity

Patch by Jonathan Kamens <jik@kamens.brookline.ma.us>.

Browse Source 
(vc-mode-line): Set vc-mode to nil if the file is
not version-controlled.  This is necessary, e.g., if the file has
just been reverted, and thus was previously under version control
but isn't any longer.
(vc-find-file-hook): Likewise.
This commit is contained in:
André Spiegel 2002-02-21 20:56:58 +00:00
parent aced8001aa
commit 060a1456ce
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/vc-hooks.el
View File

@ -5,7 +5,7 @@
;; Author: FSF (see vc.el for full credits)
;; Maintainer: Andre Spiegel <spiegel@gnu.org>
;; $Id: vc-hooks.el,v 1.136 2001/12/11 07:35:18 pj Exp $
;; $Id: vc-hooks.el,v 1.137 2001/12/14 07:58:33 spiegel Exp $
;; This file is part of GNU Emacs.
@ -544,7 +544,8 @@ Before doing that, check if there are any old backups and get rid of them."
The value is set in the current buffer, which should be the buffer
visiting FILE."
(interactive (list buffer-file-name))
(unless (not (vc-backend file))
(if (not (vc-backend file))
(setq vc-mode nil)
(setq vc-mode (concat " " (if vc-display-status
(vc-call mode-line-string file)
(symbol-name (vc-backend file)))))
@ -610,6 +611,8 @@ current, and kill the buffer that visits the link."
"Function for `find-file-hooks' activating VC mode if appropriate."
;; Recompute whether file is version controlled,
;; if user has killed the buffer and revisited.
(if vc-mode
(setq vc-mode nil))
(when buffer-file-name
(vc-file-clearprops buffer-file-name)
(cond