diff options
| -rw-r--r-- | lisp/ChangeLog | 10 | ||||
| -rw-r--r-- | lisp/vc-hooks.el | 4 |
2 files changed, 8 insertions, 6 deletions
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 <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. 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 |