Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-21 04:17:35 +00:00
Code Issues Projects Releases Packages Wiki Activity

(command-line): Don't reject unknown args here.

Browse source 
(command-line-1): Detect it here.
This commit is contained in:
Richard M. Stallman 1995-11-11 23:56:03 +00:00
parent 3ca9dd8d9f
commit 7a79b90c1a
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/startup.el
View file

@ -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