From: Karl Heuer <kwzh@gnu.org>
Date: Sun, 25 Jul 1999 05:44:56 +0000 (+0000)
Subject: (command-line): If we don't find the user's init file,
X-Git-Tag: emacs-pretest-21.0.90~7386
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=694e6b248dedecb0e1806bd600f4b1bbc50dabc8;p=emacs.git

(command-line): If we don't find the user's init file,
set user-init-file to nil.
---

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.