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

before copying it to anything else.

(find-file-noselect): Expand buffer-file-truename
before copying it to anything else.
27d0420c · Richard M. Stallman · f8a80313 · 27d0420c
Commit 27d0420c authored May 26, 1993 by Richard M. Stallman
Show whitespace changes
Inline Side-by-side

Showing with 3 additions and 1 deletion

lisp/files.el lisp/files.el +3 -1

No files found.
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -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