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

1 files changed, 15 insertions, 14 deletions

diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el
index 93b310fdb17..50c9accb9ce 100644
--- 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.