diff options
| author | Glenn Morris | 2009-09-15 07:09:17 +0000 |
|---|---|---|
| committer | Glenn Morris | 2009-09-15 07:09:17 +0000 |
| commit | 4f6cc6b5312b4aaa2b790737c4f3074c4c027042 (patch) | |
| tree | adeed8777e20b07541e73b6656889f83afe70b43 | |
| parent | cd05fe7fd3b95074c80131cc1fe56ed9699fdc31 (diff) | |
| download | emacs-4f6cc6b5312b4aaa2b790737c4f3074c4c027042.tar.gz emacs-4f6cc6b5312b4aaa2b790737c4f3074c4c027042.zip | |
Revert unnecessary parts of previous change.
| -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." | |||
| 2071 | (cl1-column 0)) | 2071 | (cl1-column 0)) |
| 2072 | 2072 | ||
| 2073 | ;; Add the long X options to longopts. | 2073 | ;; Add the long X options to longopts. |
| 2074 | (dolist (cl1-tem command-line-x-option-alist) | 2074 | (dolist (tem command-line-x-option-alist) |
| 2075 | (if (string-match "^--" (car cl1-tem)) | 2075 | (if (string-match "^--" (car tem)) |
| 2076 | (push (car cl1-tem) longopts))) | 2076 | (push (car tem) longopts))) |
| 2077 | 2077 | ||
| 2078 | ;; Add the long NS options to longopts. | 2078 | ;; Add the long NS options to longopts. |
| 2079 | (dolist (cl1-tem command-line-ns-option-alist) | 2079 | (dolist (tem command-line-ns-option-alist) |
| 2080 | (if (string-match "^--" (car cl1-tem)) | 2080 | (if (string-match "^--" (car tem)) |
| 2081 | (push (list (car cl1-tem)) longopts))) | 2081 | (push (list (car tem)) longopts))) |
| 2082 | 2082 | ||
| 2083 | ;; Loop, processing options. | 2083 | ;; Loop, processing options. |
| 2084 | (while command-line-args-left | 2084 | (while command-line-args-left |
| @@ -2202,7 +2202,8 @@ A fancy display is used on graphic displays, normal otherwise." | |||
| 2202 | (error "File name omitted from `%s' option" argi)) | 2202 | (error "File name omitted from `%s' option" argi)) |
| 2203 | (setq file-count (1+ file-count)) | 2203 | (setq file-count (1+ file-count)) |
| 2204 | (let ((file (expand-file-name | 2204 | (let ((file (expand-file-name |
| 2205 | (command-line-normalize-file-name cl1-tem) cl1-dir))) | 2205 | (command-line-normalize-file-name cl1-tem) |
| 2206 | cl1-dir))) | ||
| 2206 | (if (= file-count 1) | 2207 | (if (= file-count 1) |
| 2207 | (setq first-file-buffer (find-file file)) | 2208 | (setq first-file-buffer (find-file file)) |
| 2208 | (find-file-other-window file))) | 2209 | (find-file-other-window file))) |