Commit 4f6cc6b5 authored by Glenn Morris's avatar Glenn Morris
Browse files

Revert unnecessary parts of previous change.

parent cd05fe7f
...@@ -2071,14 +2071,14 @@ A fancy display is used on graphic displays, normal otherwise." ...@@ -2071,14 +2071,14 @@ A fancy display is used on graphic displays, normal otherwise."
(cl1-column 0)) (cl1-column 0))
;; Add the long X options to longopts. ;; Add the long X options to longopts.
(dolist (cl1-tem command-line-x-option-alist) (dolist (tem command-line-x-option-alist)
(if (string-match "^--" (car cl1-tem)) (if (string-match "^--" (car tem))
(push (car cl1-tem) longopts))) (push (car tem) longopts)))
;; Add the long NS options to longopts. ;; Add the long NS options to longopts.
(dolist (cl1-tem command-line-ns-option-alist) (dolist (tem command-line-ns-option-alist)
(if (string-match "^--" (car cl1-tem)) (if (string-match "^--" (car tem))
(push (list (car cl1-tem)) longopts))) (push (list (car tem)) longopts)))
;; Loop, processing options. ;; Loop, processing options.
(while command-line-args-left (while command-line-args-left
...@@ -2202,7 +2202,8 @@ A fancy display is used on graphic displays, normal otherwise." ...@@ -2202,7 +2202,8 @@ A fancy display is used on graphic displays, normal otherwise."
(error "File name omitted from `%s' option" argi)) (error "File name omitted from `%s' option" argi))
(setq file-count (1+ file-count)) (setq file-count (1+ file-count))
(let ((file (expand-file-name (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) (if (= file-count 1)
(setq first-file-buffer (find-file file)) (setq first-file-buffer (find-file file))
(find-file-other-window file))) (find-file-other-window file)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment