From 694e6b248dedecb0e1806bd600f4b1bbc50dabc8 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Sun, 25 Jul 1999 05:44:56 +0000 Subject: [PATCH] (command-line): If we don't find the user's init file, set user-init-file to nil. --- lisp/startup.el | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/lisp/startup.el b/lisp/startup.el index c64a25edef2..38b9b1b8afd 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -724,6 +724,11 @@ or `CVS', and any subdirectory that contains a file named `.nosearch'." ;; into user-init-file. (setq user-init-file t) (load user-init-file-1 t t) + ;; If we did not find the user's init file, + ;; set user-init-file conclusively to nil; + ;; don't let it be set from default.el. + (if (eq user-init-file t) + (setq user-init-file nil)) (or inhibit-default-init (let ((inhibit-startup-message nil)) ;; Users are supposed to be told their rights. -- 2.39.5