Mercurial > emacs
changeset 5450:9c57cdb2091e
(command-line): Set user-init-file.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 06 Jan 1994 04:28:36 +0000 |
| parents | 296db649863d |
| children | 165b0bf0e879 |
| files | lisp/startup.el |
| diffstat | 1 files changed, 17 insertions(+), 11 deletions(-) [+] |
line wrap: on
line diff
--- 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)