Mercurial > hg > xemacs-beta

comparison lisp/startup.el @ 470:8a548306e08d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[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
comparison
equal deleted inserted replaced
469:ccaeb2a3c329 470:8a548306e08d
792 (defun load-user-init-file () 792 (defun load-user-init-file ()
793 "This function actually reads the init file." 793 "This function actually reads the init file."
794 (if (not user-init-file) 794 (if (not user-init-file)
795 (setq user-init-file 795 (setq user-init-file
796 (find-user-init-file user-init-directory))) 796 (find-user-init-file user-init-directory)))
797 (if (not custom-file)
798 (setq custom-file (make-custom-file-name user-init-file)))
797 (if (and user-init-file 799 (if (and user-init-file
798 (file-readable-p user-init-file)) 800 (file-readable-p user-init-file))
799 (load user-init-file t t t)) 801 (load user-init-file t t t))
800 (if (not custom-file)
801 (setq custom-file (make-custom-file-name user-init-file)))
802 (if (and custom-file 802 (if (and custom-file
803 (or (not user-init-file) 803 (or (not user-init-file)
804 (not (string= custom-file user-init-file))) 804 (not (string= custom-file user-init-file)))
805 (file-readable-p custom-file)) 805 (file-readable-p custom-file))
806 (load custom-file t t t)) 806 (load custom-file t t t))