544 |
The value is set in the current buffer, which should be the buffer |
The value is set in the current buffer, which should be the buffer |
545 |
visiting FILE." |
visiting FILE." |
546 |
(interactive (list buffer-file-name)) |
(interactive (list buffer-file-name)) |
547 |
(unless (not (vc-backend file)) |
(if (not (vc-backend file)) |
548 |
|
(setq vc-mode nil) |
549 |
(setq vc-mode (concat " " (if vc-display-status |
(setq vc-mode (concat " " (if vc-display-status |
550 |
(vc-call mode-line-string file) |
(vc-call mode-line-string file) |
551 |
(symbol-name (vc-backend file))))) |
(symbol-name (vc-backend file))))) |
611 |
"Function for `find-file-hooks' activating VC mode if appropriate." |
"Function for `find-file-hooks' activating VC mode if appropriate." |
612 |
;; Recompute whether file is version controlled, |
;; Recompute whether file is version controlled, |
613 |
;; if user has killed the buffer and revisited. |
;; if user has killed the buffer and revisited. |
614 |
|
(if vc-mode |
615 |
|
(setq vc-mode nil)) |
616 |
(when buffer-file-name |
(when buffer-file-name |
617 |
(vc-file-clearprops buffer-file-name) |
(vc-file-clearprops buffer-file-name) |
618 |
(cond |
(cond |