# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 736170844 0
# Node ID 709f672f450e552d68fa20828c1d760ef398222e
# Parent  f9f844a39a29d512a0012dab10f5d339162fb2c0
(find-file-noselect): Do set buffer-file-name
to the truename, when find-file-visit-truename.

(file-truename): Redo esr's change.

diff -r f9f844a39a29 -r 709f672f450e lisp/files.el
--- 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