[Emacs-diffs] Changes to emacs/lisp/startup.el,v

[Adrian Robert]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Adrian Robert <arobert> 08/07/16 23:24:46

Index: lisp/startup.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/startup.el,v
retrieving revision 1.495
retrieving revision 1.496
diff -u -b -r1.495 -r1.496
--- lisp/startup.el     15 Jul 2008 18:15:02 -0000      1.495
+++ lisp/startup.el     16 Jul 2008 23:24:43 -0000      1.496
@@ -2088,11 +2088,9 @@
              (push (list (car tem)) longopts)))
 
       ;; Add the long NS options to longopts.
-      (setq tem command-line-ns-option-alist)
-      (while tem
-       (if (string-match "^--" (car (car tem)))
-           (setq longopts (cons (list (car (car tem))) longopts)))
-       (setq tem (cdr tem)))
+       (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