diff options
| author | Richard M. Stallman <rms@gnu.org> | 2006-11-12 19:55:10 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2006-11-12 19:55:10 +0000 |
| commit | 9e2f5050bc4da8360c53e740445268f34fc26292 (patch) | |
| tree | 0768e32bb92187c10f3bf4f0c90a87fd03fc045a | |
| parent | b79b8a1c520eec3863903a17ac294a556ea7730f (diff) | |
| download | emacs-9e2f5050bc4da8360c53e740445268f34fc26292.tar.gz | |
(custom-save-all): Use find-file-visit-truename for visiting the custom file.
| -rw-r--r-- | lisp/cus-edit.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el index af4cc43daec..d698aaeecc3 100644 --- a/lisp/cus-edit.el +++ b/lisp/cus-edit.el @@ -4193,7 +4193,8 @@ if only the first line of the docstring is shown.")) "\\'") recentf-exclude))) (old-buffer (find-buffer-visiting filename))) - (with-current-buffer (or old-buffer (find-file-noselect filename)) + (with-current-buffer (let ((find-file-visit-truename t)) + (or old-buffer (find-file-noselect filename))) (unless (eq major-mode 'emacs-lisp-mode) (emacs-lisp-mode)) (let ((inhibit-read-only t)) |