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
(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)
......
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