(find-alternate-file): Hide truename and inode number

temporarily, like the visited file name.

1 files changed, 6 insertions, 0 deletions

diff --git a/lisp/files.el b/lisp/files.el
index a9430029d56..77242e05e92 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -421,15 +421,21 @@ If the current buffer now contains an empty file that you just visited
        (error "Aborted"))
   (let ((obuf (current-buffer))
         (ofile buffer-file-name)
+        (onum buffer-file-number)
+        (otrue buffer-file-truename)
         (oname (buffer-name)))
     (rename-buffer " **lose**")
     (setq buffer-file-name nil)
+    (setq buffer-file-number nil)
+    (setq buffer-file-truename nil)
     (unwind-protect
         (progn
           (unlock-buffer)
           (find-file filename))
       (cond ((eq obuf (current-buffer))
              (setq buffer-file-name ofile)
+             (setq buffer-file-number onum)
+             (setq buffer-file-truename otrue)
              (lock-buffer)
              (rename-buffer oname))))
     (or (eq (current-buffer) obuf)