Mercurial > emacs
changeset 43449:a6beccc5505e
Patch by Jonathan Kamens <jik@kamens.brookline.ma.us>.
(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.
| author | André Spiegel <spiegel@gnu.org> |
|---|---|
| date | Thu, 21 Feb 2002 20:56:58 +0000 |
| parents | 957d88209f4f |
| children | 2b50b9c69fde |
| files | lisp/vc-hooks.el |
| diffstat | 1 files changed, 5 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/vc-hooks.el Thu Feb 21 20:25:20 2002 +0000 +++ b/lisp/vc-hooks.el Thu Feb 21 20:56:58 2002 +0000 @@ -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 @@ 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 @@ "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