changeset 73942:a1e596bbf76d

(custom-save-all): Use find-file-visit-truename for visiting the custom file.
author Richard M. Stallman <rms@gnu.org>
date Sun, 12 Nov 2006 19:55:10 +0000
parents b662c7bb9e5f
children 882d43d66c71
files lisp/cus-edit.el
diffstat 1 files changed, 2 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/cus-edit.el	Sun Nov 12 17:52:29 2006 +0000
+++ b/lisp/cus-edit.el	Sun Nov 12 19:55:10 2006 +0000
@@ -4193,7 +4193,8 @@
 					    "\\'")
 				    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))