# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 757830516 0
# Node ID 9c57cdb2091eb24144e7043095c78bd74ab08e61
# Parent  296db649863dd19214ffab36d7ed6155570e442d
(command-line): Set user-init-file.

diff -r 296db649863d -r 9c57cdb2091e lisp/startup.el
--- a/lisp/startup.el	Thu Jan 06 03:59:30 1994 +0000
+++ b/lisp/startup.el	Thu Jan 06 04:28:36 1994 +0000
@@ -262,17 +262,23 @@
 	   (function
 	    (lambda ()
 	      (if init-file-user
-		  (progn (load (if (eq system-type 'vax-vms)
-				   "sys$login:.emacs"
-				 (concat "~" init-file-user "/.emacs"))
-			       t t t)
-			 (or inhibit-default-init
-			     (let ((inhibit-startup-message nil))
-			       ;; Users are supposed to be told their rights.
-			       ;; (Plus how to get help and how to undo.)
-			       ;; Don't you dare turn this off for anyone
-			       ;; except yourself.
-			       (load "default" t t)))))))))
+		  (progn
+		    (setq user-init-file 
+			  (cond 
+			   ((eq system-type 'ms-dos)
+			    (concat "~" init-file-user "/_emacs"))
+			   ((eq system-type 'vax-vms) 
+			    "sys$login:.emacs")
+			   (t 
+			    (concat "~" init-file-user "/.emacs"))))
+		    (load user-init-file t t t)
+		    (or inhibit-default-init
+			(let ((inhibit-startup-message nil))
+			  ;; Users are supposed to be told their rights.
+			  ;; (Plus how to get help and how to undo.)
+			  ;; Don't you dare turn this off for anyone
+			  ;; except yourself.
+			  (load "default" t t)))))))))
       (if init-file-debug
 	  ;; Do this without a condition-case if the user wants to debug.
 	  (funcall inner)