Mercurial > emacs

comparison lisp/startup.el @ 10444:c6bc0c89d0ce

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(command-line-1): Handle -f with kbd macro.
author Richard M. Stallman <rms@gnu.org>
date Tue, 17 Jan 1995 02:33:49 +0000
parents 82efaa5a2567
children 2c55e8ceb8b4
comparison
equal deleted inserted replaced
10443:855923ce1e59 10444:c6bc0c89d0ce
607 (string-equal argi "-e")) ; what the source used to say 607 (string-equal argi "-e")) ; what the source used to say
608 (if argval 608 (if argval
609 (setq tem (intern argval)) 609 (setq tem (intern argval))
610 (setq tem (intern (car command-line-args-left))) 610 (setq tem (intern (car command-line-args-left)))
611 (setq command-line-args-left (cdr command-line-args-left))) 611 (setq command-line-args-left (cdr command-line-args-left)))
612 (funcall tem)) 612 (if (arrayp (symbol-function tem))
613 (command-execute tem)
614 (funcall tem)))
613 ((or (string-equal argi "-l") 615 ((or (string-equal argi "-l")
614 (string-equal argi "-load")) 616 (string-equal argi "-load"))
615 (if argval 617 (if argval
616 (setq tem argval) 618 (setq tem argval)
617 (setq tem (car command-line-args-left) 619 (setq tem (car command-line-args-left)