mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2024-12-23 10:34:07 +00:00
(find-alternate-file): Hide truename and inode number
temporarily, like the visited file name.
This commit is contained in:
parent
c93341d541
commit
8bb272853d
@ -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)
|
||||
|
Loading…
Reference in New Issue
Block a user