andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* vc/vc-hooks.el (vc-find-file-hook): `buffer-file-truename' can

Browse source 
be nil.  Handle this.  (Bug#13636)
This commit is contained in:
Michael Albinus 2013-02-07 09:50:04 +01:00
parent 025875980c
commit fed000725c
2 changed files with 9 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2013-02-07 Michael Albinus <michael.albinus@gmx.de>
* vc/vc-hooks.el (vc-find-file-hook): `buffer-file-truename' can
be nil. Handle this. (Bug#13636)
2013-02-07 Richard Stallman <rms@gnu.org>
* mail/rmail.el (rmail-variables): Specify `no-conversion' for

6
lisp/vc/vc-hooks.el
View file

@ -858,8 +858,10 @@ 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 backend 'find-file-hook))
((let* ((truename (expand-file-name buffer-file-truename))
(link-type (and (not (equal buffer-file-name truename))
((let* ((truename (and buffer-file-truename
(expand-file-name buffer-file-truename)))
(link-type (and truename
(not (equal buffer-file-name truename))
(vc-backend truename))))
(cond ((not link-type) nil) ;Nothing to do.
((eq vc-follow-symlinks nil)