Mercurial > emacs
comparison lisp/startup.el @ 45532:6d0025248c2b
Fix previous change.
| author | Colin Walters <walters@gnu.org> |
|---|---|
| date | Mon, 27 May 2002 02:00:54 +0000 |
| parents | 19a685f604ee |
| children | 742f54d0aedb |
comparison
equal
deleted
inserted
replaced
| 45531:8873fff421e7 | 45532:6d0025248c2b |
|---|---|
| 68 ;; --no-init-file "site-start" is still loaded. | 68 ;; --no-init-file "site-start" is still loaded. |
| 69 ;; ------------------------- | 69 ;; ------------------------- |
| 70 ;; -no-site-file Do not load "site-start.el". (This is the ONLY | 70 ;; -no-site-file Do not load "site-start.el". (This is the ONLY |
| 71 ;; --no-site-file way to prevent loading that file.) | 71 ;; --no-site-file way to prevent loading that file.) |
| 72 ;; ------------------------- | 72 ;; ------------------------- |
| 73 ;; -nosplash Don't display a splash screen on startup. | 73 ;; -no-splash Don't display a splash screen on startup. |
| 74 ;; --nosplash | 74 ;; --no-splash |
| 75 ;; ------------------------- | 75 ;; ------------------------- |
| 76 ;; -u USER Load USER's init file instead of the init | 76 ;; -u USER Load USER's init file instead of the init |
| 77 ;; -user USER file belonging to the user starting Emacs. | 77 ;; -user USER file belonging to the user starting Emacs. |
| 78 ;; --user USER | 78 ;; --user USER |
| 79 ;; ------------------------- | 79 ;; ------------------------- |
| 1506 just-files ;; t if this follows the magic -- option. | 1506 just-files ;; t if this follows the magic -- option. |
| 1507 ;; This includes our standard options' long versions | 1507 ;; This includes our standard options' long versions |
| 1508 ;; and long versions of what's on command-switch-alist. | 1508 ;; and long versions of what's on command-switch-alist. |
| 1509 (longopts | 1509 (longopts |
| 1510 (append '(("--funcall") ("--load") ("--insert") ("--kill") | 1510 (append '(("--funcall") ("--load") ("--insert") ("--kill") |
| 1511 ("--directory") ("--eval") ("--execute") ("--nosplash") | 1511 ("--directory") ("--eval") ("--execute") ("--no-splash") |
| 1512 ("--find-file") ("--visit") ("--file")) | 1512 ("--find-file") ("--visit") ("--file")) |
| 1513 (mapcar (lambda (elt) | 1513 (mapcar (lambda (elt) |
| 1514 (list (concat "-" (car elt)))) | 1514 (list (concat "-" (car elt)))) |
| 1515 command-switch-alist))) | 1515 command-switch-alist))) |
| 1516 (line 0) | 1516 (line 0) |
| 1559 (let ((command-line-args-left | 1559 (let ((command-line-args-left |
| 1560 (cons argval command-line-args-left))) | 1560 (cons argval command-line-args-left))) |
| 1561 (funcall (cdr tem) argi)) | 1561 (funcall (cdr tem) argi)) |
| 1562 (funcall (cdr tem) argi))) | 1562 (funcall (cdr tem) argi))) |
| 1563 | 1563 |
| 1564 ((string-equal argi "-nosplash") | 1564 ((string-equal argi "-no-splash") |
| 1565 (setq inhibit-startup-message t)) | 1565 (setq inhibit-startup-message t)) |
| 1566 | 1566 |
| 1567 ((member argi '("-f" ;what the manual claims | 1567 ((member argi '("-f" ;what the manual claims |
| 1568 "-funcall" | 1568 "-funcall" |
| 1569 "-e")) ; what the source used to say | 1569 "-e")) ; what the source used to say |