From 9e2f5050bc4da8360c53e740445268f34fc26292 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 12 Nov 2006 19:55:10 +0000 Subject: (custom-save-all): Use find-file-visit-truename for visiting the custom file. --- lisp/cus-edit.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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)) -- cgit v1.2.1