Commit 30866274 authored by David Caldwell's avatar David Caldwell Committed by Stefan Monnier

* lisp/vc/vc-hooks.el (vc-refresh-state): New command

(vc-refresh-state): Rename from vc-find-file-hook and make interactive.
(vc-find-file-hook): Redefine as obsolete alias.

Copyright-paperwork-exempt: yes
parent 19532d14
......@@ -310,6 +310,7 @@ standards.
* Changes in Specialized Modes and Packages in Emacs 25.1
** You can recompute the VC state of a file buffer with `M-x vc-refresh-state'
** Prog mode has some support for multi-mode indentation.
See `prog-indentation-context' and `prog-widen'.
......
......@@ -790,8 +790,9 @@ current, and kill the buffer that visits the link."
(defun vc-default-find-file-hook (_backend)
nil)
(defun vc-find-file-hook ()
"Function for `find-file-hook' activating VC mode if appropriate."
(defun vc-refresh-state ()
"Activate or deactivate VC mode as appropriate."
(interactive)
;; Recompute whether file is version controlled,
;; if user has killed the buffer and revisited.
(when vc-mode
......@@ -838,18 +839,19 @@ current, and kill the buffer that visits the link."
(vc-follow-link)
(message "Followed link to %s" buffer-file-name)
(vc-find-file-hook))
(vc-refresh-state))
(t
(if (yes-or-no-p (format
"Symbolic link to %s-controlled source file; follow link? " link-type))
(progn (vc-follow-link)
(message "Followed link to %s" buffer-file-name)
(vc-find-file-hook))
(vc-refresh-state))
(message
"Warning: editing through the link bypasses version control")
)))))))))
(add-hook 'find-file-hook 'vc-find-file-hook)
(add-hook 'find-file-hook #'vc-refresh-state)
(define-obsolete-function-alias 'vc-find-file-hook 'vc-refresh-state "25.1")
(defun vc-kill-buffer-hook ()
"Discard VC info about a file when we kill its buffer."
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment