(custom-file): Call file-chase-links.

diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el
index 93b310fdb172d6181d2d0d1e94126387936ddb90..50c9accb9ce73f771caed2d059c02884af40e281 100644 (file)
--- a/lisp/cus-edit.el
+++ b/lisp/cus-edit.el
@@ -3835,20 +3835,21 @@ if only the first line of the docstring is shown."))
 
 (defun custom-file ()
   "Return the file name for saving customizations."
-  (or custom-file
-      (let ((user-init-file user-init-file)
-           (default-init-file
-             (if (eq system-type 'ms-dos) "~/_emacs" "~/.emacs")))
-       (when (null user-init-file)
-         (if (or (file-exists-p default-init-file)
-                 (and (eq system-type 'windows-nt)
-                      (file-exists-p "~/_emacs")))
-             ;; Started with -q, i.e. the file containing
-             ;; Custom settings hasn't been read.  Saving
-             ;; settings there would overwrite other settings.
-             (error "Saving settings from \"emacs -q\" would overwrite existing customizations"))
-         (setq user-init-file default-init-file))
-       user-init-file)))
+  (file-chase-links
+   (or custom-file
+       (let ((user-init-file user-init-file)
+            (default-init-file
+              (if (eq system-type 'ms-dos) "~/_emacs" "~/.emacs")))
+        (when (null user-init-file)
+          (if (or (file-exists-p default-init-file)
+                  (and (eq system-type 'windows-nt)
+                       (file-exists-p "~/_emacs")))
+              ;; Started with -q, i.e. the file containing
+              ;; Custom settings hasn't been read.  Saving
+              ;; settings there would overwrite other settings.
+              (error "Saving settings from \"emacs -q\" would overwrite existing customizations"))
+          (setq user-init-file default-init-file))
+        user-init-file))))
 
 (defun custom-save-delete (symbol)
   "Visit `custom-file' and delete all calls to SYMBOL from it.