[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp startup.el
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] emacs/lisp startup.el |
Date: |
Tue, 15 Sep 2009 07:09:18 +0000 |
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)))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs/lisp startup.el,
Glenn Morris <=