diff options
| author | Richard M. Stallman <[email protected]> | 1995-10-24 22:14:39 +0000 |
|---|---|---|
| committer | Richard M. Stallman <[email protected]> | 1995-10-24 22:14:39 +0000 |
| commit | 8ccdc29ebc27112908a04969ac59ac41536be3e2 (patch) | |
| tree | 6980b9af4e311c6a79d42578830f092e23955b31 /lisp/files.el | |
| parent | 3b3703faebe46669e6f06cfc6acf68e898525fde (diff) | |
(set-visited-file-name): Abbreviate buffer-file-name.
Diffstat (limited to 'lisp/files.el')
| -rw-r--r-- | lisp/files.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lisp/files.el b/lisp/files.el index 8254b8a456..a7bfd5ea00 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -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)) |