comparison lisp/vc-hooks.el @ 98429:b87cc3b45aa5

* vc-hooks.el (vc-file-clearprops): Revert change from 2008-09-29. (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 <[e-mail]>.

98428:d6858e23ac05

  "Get per-file VC PROPERTY for FILE."
  (get (intern file vc-file-prop-obarray) property))

(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)))


;; We keep properties on each symbol naming a backend as follows:
;;  * `vc-functions': an alist mapping vc-FUNCTION to vc-BACKEND-FUNCTION.

  "When file is not found, try to check it out from version control.
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))))

(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
  ;; really makes sense for RCS.  For other backends, better not do anything.
  nil)

98429:b87cc3b45aa5

  "Get per-file VC PROPERTY for FILE."
  (get (intern file vc-file-prop-obarray) property))

(defun vc-file-clearprops (file)
  "Clear all VC properties of FILE."
  (setplist (intern file vc-file-prop-obarray) nil))


;; We keep properties on each symbol naming a backend as follows:
;;  * `vc-functions': an alist mapping vc-FUNCTION to vc-BACKEND-FUNCTION.

  "When file is not found, try to check it out from version control.
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.
  ;; 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
  ;; really makes sense for RCS.  For other backends, better not do anything.
  nil)