mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-17 17:58:46 +00:00
Code Issues Releases Activity

(set-visited-file-name): Abbreviate buffer-file-name.

Browse Source
This commit is contained in:
Richard M. Stallman 1995-10-24 22:14:39 +00:00
parent 3b3703faeb
commit 8ccdc29ebc
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/files.el
View File

@ -1350,8 +1350,6 @@ if you wish to pass an empty string as the argument."
(progn
(setq truename (file-truename filename))
(if find-file-visit-truename
;; Do not use the abbreviated filename, because
;; write-region will reset it to the expanded filename
(setq filename truename))))
(or (equal filename buffer-file-name)
(progn
@ -1369,8 +1367,12 @@ if you wish to pass an empty string as the argument."
(rename-buffer new-name t))))
(setq buffer-backed-up nil)
(clear-visited-file-modtime)
;; Abbreviate the file names of the buffer.
(if truename
(setq buffer-file-truename (abbreviate-file-name truename)))
(progn
(setq buffer-file-truename (abbreviate-file-name truename))
(if find-file-visit-truename
(setq buffer-file-name buffer-file-truename))))
(setq buffer-file-number
(if filename
(nth 10 (file-attributes buffer-file-name))