diff options
| author | Kim F. Storm | 2005-04-06 10:43:29 +0000 |
|---|---|---|
| committer | Kim F. Storm | 2005-04-06 10:43:29 +0000 |
| commit | 7c9acaf312a01489ee5b31afd2c3b87affedf166 (patch) | |
| tree | fbb11a0827f35a03e69c3956b0051568e14b40cd | |
| parent | d9c3930562ba7c7ae5d4b03a07ef65aa2b2b2712 (diff) | |
| download | emacs-7c9acaf312a01489ee5b31afd2c3b87affedf166.tar.gz emacs-7c9acaf312a01489ee5b31afd2c3b87affedf166.zip | |
(command-line): Add --bare-bones alias for -Q.
| -rw-r--r-- | lisp/startup.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/startup.el b/lisp/startup.el index cc603208820..5ef0dba00b3 100644 --- a/lisp/startup.el +++ b/lisp/startup.el | |||
| @@ -657,7 +657,7 @@ or `CVS', and any subdirectory that contains a file named `.nosearch'." | |||
| 657 | (while (and (not done) args) | 657 | (while (and (not done) args) |
| 658 | (let* ((longopts '(("--no-init-file") ("--no-site-file") ("--user") | 658 | (let* ((longopts '(("--no-init-file") ("--no-site-file") ("--user") |
| 659 | ("--debug-init") ("--iconic") ("--icon-type") | 659 | ("--debug-init") ("--iconic") ("--icon-type") |
| 660 | ("--no-blinking-cursor"))) | 660 | ("--no-blinking-cursor") ("--bare-bones"))) |
| 661 | (argi (pop args)) | 661 | (argi (pop args)) |
| 662 | (orig-argi argi) | 662 | (orig-argi argi) |
| 663 | argval) | 663 | argval) |
| @@ -677,7 +677,7 @@ or `CVS', and any subdirectory that contains a file named `.nosearch'." | |||
| 677 | (setq argval nil | 677 | (setq argval nil |
| 678 | argi orig-argi))))) | 678 | argi orig-argi))))) |
| 679 | (cond | 679 | (cond |
| 680 | ((equal argi "-Q") | 680 | ((member argi '("-Q" "-bare-bones")) |
| 681 | (setq init-file-user nil | 681 | (setq init-file-user nil |
| 682 | site-run-file nil | 682 | site-run-file nil |
| 683 | no-blinking-cursor t | 683 | no-blinking-cursor t |