diff options
| author | Paul Eggert | 1993-07-29 04:58:47 +0000 |
|---|---|---|
| committer | Paul Eggert | 1993-07-29 04:58:47 +0000 |
| commit | e6258b339a5f518894c8ddf87d478b9432a3d646 (patch) | |
| tree | 6c1ad881ebc49f7caa9a94e67c33dd1b0963249b | |
| parent | a0213a97172fad2bf4ca62da432a66351f2a8b0b (diff) | |
| download | emacs-e6258b339a5f518894c8ddf87d478b9432a3d646.tar.gz emacs-e6258b339a5f518894c8ddf87d478b9432a3d646.zip | |
(vc-mode-line): Set vc-mode to nil if FILE no longer is version-controlled.
| -rw-r--r-- | lisp/vc-hooks.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/vc-hooks.el b/lisp/vc-hooks.el index e9b28f99cdb..31abfc02f6f 100644 --- a/lisp/vc-hooks.el +++ b/lisp/vc-hooks.el | |||
| @@ -142,11 +142,11 @@ The value is set in the current buffer, which should be the buffer | |||
| 142 | visiting FILE." | 142 | visiting FILE." |
| 143 | (interactive (list buffer-file-name nil)) | 143 | (interactive (list buffer-file-name nil)) |
| 144 | (let ((vc-type (vc-backend-deduce file))) | 144 | (let ((vc-type (vc-backend-deduce file))) |
| 145 | (if vc-type | 145 | (setq vc-mode |
| 146 | (setq vc-mode | 146 | (and vc-type |
| 147 | (concat " " (or label (symbol-name vc-type)) | 147 | (concat " " (or label (symbol-name vc-type)) |
| 148 | (if (and vc-rcs-status (eq vc-type 'RCS)) | 148 | (if (and vc-rcs-status (eq vc-type 'RCS)) |
| 149 | (vc-rcs-status file))))) | 149 | (vc-rcs-status file))))) |
| 150 | ;; force update of mode line | 150 | ;; force update of mode line |
| 151 | (set-buffer-modified-p (buffer-modified-p)) | 151 | (set-buffer-modified-p (buffer-modified-p)) |
| 152 | vc-type)) | 152 | vc-type)) |