Mercurial > emacs

comparison lisp/files.el @ 24727:358a330c9931

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[from rms] (find-file-noselect-1): Use abbreviate-file-name when setting buffer-file-truename.
author Dave Love <fx@gnu.org>
date Fri, 14 May 1999 09:46:38 +0000
parents 0d75a033fceb
children ece1961bd955
comparison
equal deleted inserted replaced
24726:e097c31382f8 24727:358a330c9931
1047 ;; If they fail too, set error. 1047 ;; If they fail too, set error.
1048 (setq error t))))) 1048 (setq error t)))))
1049 ;; Record the file's truename, and maybe use that as visited name. 1049 ;; Record the file's truename, and maybe use that as visited name.
1050 (if (equal filename buffer-file-name) 1050 (if (equal filename buffer-file-name)
1051 (setq buffer-file-truename truename) 1051 (setq buffer-file-truename truename)
1052 (setq buffer-file-truename (file-truename buffer-file-name))) 1052 (setq buffer-file-truename
1053 (abbreviate-file-name (file-truename buffer-file-name))))
1053 (setq buffer-file-number number) 1054 (setq buffer-file-number number)
1054 ;; On VMS, we may want to remember which directory in a search list 1055 ;; On VMS, we may want to remember which directory in a search list
1055 ;; the file was found in. 1056 ;; the file was found in.
1056 (and (eq system-type 'vax-vms) 1057 (and (eq system-type 'vax-vms)
1057 (let (logical) 1058 (let (logical)