diff options
| author | Richard M. Stallman <rms@gnu.org> | 1995-11-11 23:56:03 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1995-11-11 23:56:03 +0000 |
| commit | 3d360c31f8c4a1eb1a9ac5cda2082c95bb540bfc (patch) | |
| tree | 55ceed614f5e82e0dcc4cc31b8c2559cc5ea6bfc | |
| parent | fcf9bc5a2e023d96697015f93675b4663880011c (diff) | |
| download | emacs-3d360c31f8c4a1eb1a9ac5cda2082c95bb540bfc.tar.gz | |
(command-line): Don't reject unknown args here.
(command-line-1): Detect it here.
| -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 398e97a465a..7561d231a58 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -446,8 +446,6 @@ this prefix to create a unique file name.") (setq default-frame-alist (cons '(icon-type . t) default-frame-alist)) (setq args (cdr args))) - ((and (not (equal "" argi)) (aref argi 0)) - (error "Unknown option `%s'" argi)) (t (setq done t))) ;; Was argval set but not used? (and argval @@ -794,6 +792,8 @@ Type \\[describe-distribution] for information on getting the latest version.")) (if (not did-hook) ;; Ok, presume that the argument is a file name (progn + (if (string-match "\\`-" argi) + (error "Unknown option `%s'" argi)) (setq file-count (1+ file-count)) (cond ((= file-count 1) (setq first-file-buffer |