[Emacs-diffs] emacs/lisp startup.el

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       09/09/15 07:09:18

Modified files:
        lisp           : startup.el 

Log message:
        Revert unnecessary parts of previous change.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/startup.el?cvsroot=emacs&r1=1.544&r2=1.545

Patches:
Index: startup.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/startup.el,v
retrieving revision 1.544
retrieving revision 1.545
diff -u -b -r1.544 -r1.545
--- startup.el  15 Sep 2009 07:06:09 -0000      1.544
+++ startup.el  15 Sep 2009 07:09:17 -0000      1.545
@@ -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)))