diff lisp/startup.el @ 470:8a548306e08d

[xemacs-hg @ 2001-04-17 15:50:10 by didierv] custom-file definition location
author didierv
date Tue, 17 Apr 2001 15:50:12 +0000
parents 223736d75acb
children 54fa1a5c2d12
line wrap: on
line diff
--- a/lisp/startup.el	Fri Apr 13 15:04:40 2001 +0000
+++ b/lisp/startup.el	Tue Apr 17 15:50:12 2001 +0000
@@ -794,11 +794,11 @@
   (if (not user-init-file)
       (setq user-init-file
 	    (find-user-init-file user-init-directory)))
+  (if (not custom-file)
+      (setq custom-file (make-custom-file-name user-init-file)))
   (if (and user-init-file
 	   (file-readable-p user-init-file))
       (load user-init-file t t t))
-  (if (not custom-file)
-      (setq custom-file (make-custom-file-name user-init-file)))
   (if (and custom-file
 	   (or (not user-init-file)
 	       (not (string= custom-file user-init-file)))