Mercurial > emacs
comparison lisp/startup.el @ 13524:0d24a33d8bba
(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 | 983cfcaf1fbd |
| children | e0d71654a95f |
comparison
equal
deleted
inserted
replaced
| 13523:75c6a5e1ee7a | 13524:0d24a33d8bba |
|---|---|
| 444 (string-equal argi "-i") | 444 (string-equal argi "-i") |
| 445 (string-equal argi "-itype")) | 445 (string-equal argi "-itype")) |
| 446 (setq default-frame-alist | 446 (setq default-frame-alist |
| 447 (cons '(icon-type . t) default-frame-alist)) | 447 (cons '(icon-type . t) default-frame-alist)) |
| 448 (setq args (cdr args))) | 448 (setq args (cdr args))) |
| 449 ((and (not (equal "" argi)) (aref argi 0)) | |
| 450 (error "Unknown option `%s'" argi)) | |
| 451 (t (setq done t))) | 449 (t (setq done t))) |
| 452 ;; Was argval set but not used? | 450 ;; Was argval set but not used? |
| 453 (and argval | 451 (and argval |
| 454 (error "Option `%s' doesn't allow an argument" argi)))) | 452 (error "Option `%s' doesn't allow an argument" argi)))) |
| 455 | 453 |
| 792 (not (setq did-hook (funcall (car hooks))))) | 790 (not (setq did-hook (funcall (car hooks))))) |
| 793 (setq hooks (cdr hooks))) | 791 (setq hooks (cdr hooks))) |
| 794 (if (not did-hook) | 792 (if (not did-hook) |
| 795 ;; Ok, presume that the argument is a file name | 793 ;; Ok, presume that the argument is a file name |
| 796 (progn | 794 (progn |
| 795 (if (string-match "\\`-" argi) | |
| 796 (error "Unknown option `%s'" argi)) | |
| 797 (setq file-count (1+ file-count)) | 797 (setq file-count (1+ file-count)) |
| 798 (cond ((= file-count 1) | 798 (cond ((= file-count 1) |
| 799 (setq first-file-buffer | 799 (setq first-file-buffer |
| 800 (find-file (expand-file-name argi dir)))) | 800 (find-file (expand-file-name argi dir)))) |
| 801 (t | 801 (t |