procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* vc-hooks.el (vc-file-clearprops): Revert change from 2008-09-29.

Browse source 
(vc-file-not-found-hook): Check, that `buffer-file-name' is
non-nil.  It is not clear, whether this is only fixing symptoms on
an error. OTOH, in all other cases, the call of `vc-file-clearprops'
is embedded by that check.  So it might be TRT.  Suggested by Dan
Nicolaescu <dann@ics.uci.edu>.
This commit is contained in:
Michael Albinus 2008-09-30 19:11:07 +00:00
parent b1b1753b2d
commit f98c9a2379
1 changed files with 7 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

14
lisp/vc-hooks.el
View file

@ -238,10 +238,7 @@ VC commands are globally reachable under the prefix `\\[vc-prefix-map]':
(defun vc-file-clearprops (file)
"Clear all VC properties of FILE."
;; Sometimes, Tramp runs into trouble, FILE is nil then. We shall
;; avoid an error in this case.
(when (stringp file)
(setplist (intern file vc-file-prop-obarray) nil)))
(setplist (intern file vc-file-prop-obarray) nil))
;; We keep properties on each symbol naming a backend as follows:
@ -943,9 +940,12 @@ Returns t if checkout was successful, nil otherwise.
Used in `find-file-not-found-functions'."
;; When a file does not exist, ignore cached info about it
;; from a previous visit.
(vc-file-clearprops buffer-file-name)
(let ((backend (vc-backend buffer-file-name)))
(when backend (vc-call-backend backend 'find-file-not-found-hook))))
;; We check that `buffer-file-name' is non-nil. It should be always
;; the case, but in conjunction with Tramp, it might be nil. M. Albinus.
(when buffer-file-name
(vc-file-clearprops buffer-file-name)
(let ((backend (vc-backend buffer-file-name)))
(when backend (vc-call-backend backend 'find-file-not-found-hook)))))
(defun vc-default-find-file-not-found-hook (backend)
;; This used to do what vc-rcs-find-file-not-found-hook does, but it only