From: Stefan Monnier Date: Sat, 16 Oct 2004 18:59:11 +0000 (+0000) Subject: (vc-find-file-hook): Call vc-backend with absolute name. X-Git-Tag: ttn-vms-21-2-B4~4538 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4d11f532f79ff03811339f2333b48aa70d9e332c;p=emacs.git (vc-find-file-hook): Call vc-backend with absolute name. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 9409b485a3a..a43fbc297b6 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2004-10-16 Stefan Monnier + + * vc-hooks.el (vc-find-file-hook): Call vc-backend with absolute name. + 2004-10-16 Juri Linkov * progmodes/compile.el (compilation-start): Move let-binding of @@ -67,11 +71,9 @@ 2004-10-13 Daniel Pfeiffer - * 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. diff --git a/lisp/vc-hooks.el b/lisp/vc-hooks.el index fef1431fe7d..22ff9edd428 100644 --- a/lisp/vc-hooks.el +++ b/lisp/vc-hooks.el @@ -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