aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorGlenn Morris2009-09-15 07:09:17 +0000
committerGlenn Morris2009-09-15 07:09:17 +0000
commit4f6cc6b5312b4aaa2b790737c4f3074c4c027042 (patch)
treeadeed8777e20b07541e73b6656889f83afe70b43
parentcd05fe7fd3b95074c80131cc1fe56ed9699fdc31 (diff)
downloademacs-4f6cc6b5312b4aaa2b790737c4f3074c4c027042.tar.gz
emacs-4f6cc6b5312b4aaa2b790737c4f3074c4c027042.zip
Revert unnecessary parts of previous change.
-rw-r--r--lisp/startup.el15
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)))