Mercurial > emacs
changeset 57532:53338d8522cb
(vc-find-file-hook): Call vc-backend with absolute name.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Sat, 16 Oct 2004 18:59:11 +0000 |
| parents | 5fa8dc9548ec |
| children | 150f1a99cbe4 |
| files | lisp/ChangeLog lisp/vc-hooks.el |
| diffstat | 2 files changed, 9 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Sat Oct 16 18:38:36 2004 +0000 +++ b/lisp/ChangeLog Sat Oct 16 18:59:11 2004 +0000 @@ -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. - - * help-fns.el (describe-variable): Use it to make "below" a - hyperlink. + * 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.el (describe-mode): Use it to make minor mode list into hyperlinks.
--- a/lisp/vc-hooks.el Sat Oct 16 18:38:36 2004 +0000 +++ b/lisp/vc-hooks.el Sat Oct 16 18:59:11 2004 +0000 @@ -754,8 +754,8 @@ (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