Mercurial > emacs

comparison lisp/startup.el @ 64825:b43107701c1e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Comment change.
author Richard M. Stallman <rms@gnu.org>
date Tue, 09 Aug 2005 11:30:12 +0000
parents 5c5fa9b830c2
children d92890473bd3
comparison
equal deleted inserted replaced
64824:5c5fa9b830c2 64825:b43107701c1e
1633 (file-ex (expand-file-name file))) 1633 (file-ex (expand-file-name file)))
1634 (when (file-exists-p file-ex) 1634 (when (file-exists-p file-ex)
1635 (setq file file-ex)) 1635 (setq file file-ex))
1636 (load file nil t))) 1636 (load file nil t)))
1637 1637
1638 ;; This is used to handle -script. It's not clear
1639 ;; we need to document it.
1638 ((member argi '("-scriptload")) 1640 ((member argi '("-scriptload"))
1639 (let* ((file (command-line-normalize-file-name 1641 (let* ((file (command-line-normalize-file-name
1640 (or argval (pop command-line-args-left)))) 1642 (or argval (pop command-line-args-left))))
1641 ;; Take file from default dir. 1643 ;; Take file from default dir.
1642 (file-ex (expand-file-name file))) 1644 (file-ex (expand-file-name file)))