diff options
| author | Richard M. Stallman | 1993-05-26 23:19:07 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1993-05-26 23:19:07 +0000 |
| commit | 27d0420cd5d05dd8a0017463f1624fe1e573c7a2 (patch) | |
| tree | 0ae888a6e4ba64359214fe2fdc5cb8de8c60d58c | |
| parent | f8a803133207d0e8de24a4703d714c0e1b06659d (diff) | |
| download | emacs-27d0420cd5d05dd8a0017463f1624fe1e573c7a2.tar.gz emacs-27d0420cd5d05dd8a0017463f1624fe1e573c7a2.zip | |
(find-file-noselect): Expand buffer-file-truename
before copying it to anything else.
| -rw-r--r-- | lisp/files.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/files.el b/lisp/files.el index 30f04dfd2ee..a9430029d56 100644 --- a/lisp/files.el +++ b/lisp/files.el | |||
| @@ -608,7 +608,9 @@ The buffer is not selected, just returned to the caller." | |||
| 608 | (not (member logical find-file-not-true-dirname-list))) | 608 | (not (member logical find-file-not-true-dirname-list))) |
| 609 | (setq buffer-file-name buffer-file-truename)) | 609 | (setq buffer-file-name buffer-file-truename)) |
| 610 | (if find-file-visit-truename | 610 | (if find-file-visit-truename |
| 611 | (setq buffer-file-name (setq filename buffer-file-truename))) | 611 | (setq buffer-file-name |
| 612 | (setq filename | ||
| 613 | (expand-file-name buffer-file-truename)))) | ||
| 612 | ;; Set buffer's default directory to that of the file. | 614 | ;; Set buffer's default directory to that of the file. |
| 613 | (setq default-directory (file-name-directory filename)) | 615 | (setq default-directory (file-name-directory filename)) |
| 614 | ;; Turn off backup files for certain file names. Since | 616 | ;; Turn off backup files for certain file names. Since |