Mercurial > emacs
changeset 2613:709f672f450e
(find-file-noselect): Do set buffer-file-name
to the truename, when find-file-visit-truename.
(file-truename): Redo esr's change.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 30 Apr 1993 11:54:04 +0000 |
| parents | f9f844a39a29 |
| children | bad8a1dfeb3b |
| files | lisp/files.el |
| diffstat | 1 files changed, 6 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/files.el Thu Apr 29 17:58:37 1993 +0000 +++ b/lisp/files.el Fri Apr 30 11:54:04 1993 +0000 @@ -314,7 +314,10 @@ both at the level of the file and at the level of the directories containing it, until no links are left at any level." (if (string= filename "~") - (setq filename (expand-file-name filename))) + (progn + (setq filename (expand-file-name filename)) + (if (string= filename "") + (setq filename "/")))) (let ((handler (find-file-name-handler filename))) ;; For file name that has a special handler, call handler. ;; This is so that ange-ftp can save time by doing a no-op. @@ -575,7 +578,8 @@ ;; Find the file's truename, and maybe use that as visited name. (setq buffer-file-truename (abbreviate-file-name truename)) (setq buffer-file-number number) - (if find-file-visit-truename (setq filename buffer-file-truename)) + (if find-file-visit-truename + (setq buffer-file-name (setq filename buffer-file-truename))) ;; Set buffer's default directory to that of the file. (setq default-directory (file-name-directory filename)) ;; Turn off backup files for certain file names. Since