mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

(find-file-noselect): Expand buffer-file-truename

Browse Source 
before copying it to anything else.
This commit is contained in:
Richard M. Stallman 1993-05-26 23:19:07 +00:00
parent f8a8031332
commit 27d0420cd5
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/files.el
View File

@ -608,7 +608,9 @@ The buffer is not selected, just returned to the caller."
(not (member logical find-file-not-true-dirname-list)))
(setq buffer-file-name buffer-file-truename))
(if find-file-visit-truename
(setq buffer-file-name (setq filename buffer-file-truename)))
(setq buffer-file-name
(setq filename
(expand-file-name 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