/[emacs]/emacs/lisp/vc-hooks.el
ViewVC logotype

Diff of /emacs/lisp/vc-hooks.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.137 by spiegel, Fri Dec 14 07:58:33 2001 UTC revision 1.138 by spiegel, Thu Feb 21 20:56:58 2002 UTC
# Line 544  Before doing that, check if there are an Line 544  Before doing that, check if there are an
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)))))
# Line 610  current, and kill the buffer that visits Line 611  current, and kill the buffer that visits
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

Legend:
Removed from v.1.137  
changed lines
  Added in v.1.138

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26