Commit 4d11f532 authored by Stefan Monnier's avatar Stefan Monnier
Browse files

(vc-find-file-hook): Call vc-backend with absolute name.

parent 577bf5d2
2004-10-16 Stefan Monnier <monnier@iro.umontreal.ca>
* vc-hooks.el (vc-find-file-hook): Call vc-backend with absolute name.
2004-10-16 Juri Linkov <juri@jurta.org>
* progmodes/compile.el (compilation-start): Move let-binding of
......@@ -67,11 +71,9 @@
2004-10-13 Daniel Pfeiffer <occitan@esperanto.org>
* button.el (button-activate): Allow a marker to display as an
action.
* button.el (button-activate): Allow a marker to display as an action.
* help-fns.el (describe-variable): Use it to make "below" a
hyperlink.
* help-fns.el (describe-variable): Use it to make "below" a hyperlink.
* help.el (describe-mode): Use it to make minor mode list into
hyperlinks.
......
......@@ -754,8 +754,8 @@ current, and kill the buffer that visits the link."
(set (make-local-variable 'backup-inhibited) t))
;; Let the backend setup any buffer-local things he needs.
(vc-call-backend (vc-backend buffer-file-name) 'find-file-hook))
((let* ((link (file-symlink-p buffer-file-name))
(link-type (and link (vc-backend (file-chase-links link)))))
((let ((link-type (and (file-symlink-p buffer-file-name)
(vc-backend (file-chase-links buffer-file-name)))))
(cond ((not link-type) nil) ;Nothing to do.
((eq vc-follow-symlinks nil)
(message
......
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