diff options
| author | Glenn Morris <rgm@gnu.org> | 2009-09-15 07:09:17 +0000 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2009-09-15 07:09:17 +0000 |
| commit | 4f6cc6b5312b4aaa2b790737c4f3074c4c027042 (patch) | |
| tree | adeed8777e20b07541e73b6656889f83afe70b43 /lisp/startup.el | |
| parent | cd05fe7fd3b95074c80131cc1fe56ed9699fdc31 (diff) | |
| download | emacs-4f6cc6b5312b4aaa2b790737c4f3074c4c027042.tar.gz | |
Revert unnecessary parts of previous change.
Diffstat (limited to 'lisp/startup.el')
| -rw-r--r-- | lisp/startup.el | 15 |
1 files changed, 8 insertions, 7 deletions
diff --git a/lisp/startup.el b/lisp/startup.el index a60ba03ce6b..e7e988d367c 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -2071,14 +2071,14 @@ A fancy display is used on graphic displays, normal otherwise." (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 @@ A fancy display is used on graphic displays, normal otherwise." (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))) |