Mercurial > emacs
changeset 105034:683744add5c6
Revert unnecessary parts of previous change.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Tue, 15 Sep 2009 07:09:17 +0000 |
| parents | 65e1f1ec8586 |
| children | a07fd035c1b0 |
| files | lisp/startup.el |
| diffstat | 1 files changed, 8 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/startup.el Tue Sep 15 07:06:04 2009 +0000 +++ b/lisp/startup.el Tue Sep 15 07:09:17 2009 +0000 @@ -2071,14 +2071,14 @@ (cl1-column 0)) ;; Add the long X options to longopts. - (dolist (cl1-tem command-line-x-option-alist) - (if (string-match "^--" (car cl1-tem)) - (push (car cl1-tem) longopts))) + (dolist (tem command-line-x-option-alist) + (if (string-match "^--" (car tem)) + (push (car tem) longopts))) ;; Add the long NS options to longopts. - (dolist (cl1-tem command-line-ns-option-alist) - (if (string-match "^--" (car cl1-tem)) - (push (list (car cl1-tem)) longopts))) + (dolist (tem command-line-ns-option-alist) + (if (string-match "^--" (car tem)) + (push (list (car tem)) longopts))) ;; Loop, processing options. (while command-line-args-left @@ -2202,7 +2202,8 @@ (error "File name omitted from `%s' option" argi)) (setq file-count (1+ file-count)) (let ((file (expand-file-name - (command-line-normalize-file-name cl1-tem) cl1-dir))) + (command-line-normalize-file-name cl1-tem) + cl1-dir))) (if (= file-count 1) (setq first-file-buffer (find-file file)) (find-file-other-window file)))