Mercurial > emacs

changeset 13524:0d24a33d8bba

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(command-line): Don't reject unknown args here. (command-line-1): Detect it here.
author Richard M. Stallman <rms@gnu.org>
date Sat, 11 Nov 1995 23:56:03 +0000
parents 75c6a5e1ee7a
children de50b50309d1
files lisp/startup.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/startup.el	Sat Nov 11 23:51:44 1995 +0000
+++ b/lisp/startup.el	Sat Nov 11 23:56:03 1995 +0000
@@ -446,8 +446,6 @@
 	  (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 @@
 		   (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