# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1163361310 0
# Node ID a1e596bbf76d07fc8ea8294f03a444bc3790700a
# Parent  b662c7bb9e5fc5ba71648000392ded19a681da57
(custom-save-all): Use find-file-visit-truename for visiting the custom file.

diff -r b662c7bb9e5f -r a1e596bbf76d lisp/cus-edit.el
--- 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))