Mercurial > hg > xemacs-beta
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)))