Commit 8bb27285 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

temporarily, like the visited file name.
parent c93341d5
...@@ -421,15 +421,21 @@ If the current buffer now contains an empty file that you just visited ...@@ -421,15 +421,21 @@ If the current buffer now contains an empty file that you just visited
(error "Aborted")) (error "Aborted"))
(let ((obuf (current-buffer)) (let ((obuf (current-buffer))
(ofile buffer-file-name) (ofile buffer-file-name)
(onum buffer-file-number)
(otrue buffer-file-truename)
(oname (buffer-name))) (oname (buffer-name)))
(rename-buffer " **lose**") (rename-buffer " **lose**")
(setq buffer-file-name nil) (setq buffer-file-name nil)
(setq buffer-file-number nil)
(setq buffer-file-truename nil)
(unwind-protect (unwind-protect
(progn (progn
(unlock-buffer) (unlock-buffer)
(find-file filename)) (find-file filename))
(cond ((eq obuf (current-buffer)) (cond ((eq obuf (current-buffer))
(setq buffer-file-name ofile) (setq buffer-file-name ofile)
(setq buffer-file-number onum)
(setq buffer-file-truename otrue)
(lock-buffer) (lock-buffer)
(rename-buffer oname)))) (rename-buffer oname))))
(or (eq (current-buffer) obuf) (or (eq (current-buffer) obuf)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment