]> git.eshelyaron.com Git - emacs.git/commitdiff
* lisp/progmodes/cc-langs.el (c-make-init-lang-vars-fun): Use dolist
authorStefan Monnier <monnier@iro.umontreal.ca>
Mon, 14 Sep 2015 13:26:54 +0000 (09:26 -0400)
committerStefan Monnier <monnier@iro.umontreal.ca>
Mon, 14 Sep 2015 13:26:54 +0000 (09:26 -0400)
lisp/progmodes/cc-langs.el

index e9c496446767341890e7c3f238279be42a3c8b68..dcd51164ce896c9891ffc7cad22b6a06dc07abfc 100644 (file)
@@ -3304,10 +3304,9 @@ accomplish that conveniently."
                 (setq source-eval t)
                 (let ((init ',(append (cdr c-emacs-variable-inits)
                                       (cdr c-lang-variable-inits))))
-                  (while init
-                    (setq current-var (caar init))
-                    (set (caar init) (eval (cadr (car init))))
-                    (setq init (cdr init)))))
+                  (dolist (var-init init)
+                    (setq current-var (car var-init))
+                    (set (car var-init) (eval (cadr var-init))))))
 
             (error
              (if current-var
@@ -3333,10 +3332,9 @@ accomplish that conveniently."
         (c-make-emacs-variables-local)
         (condition-case err
 
-            (while init
-              (setq current-var (caar init))
-              (set (caar init) (eval (cadr (car init))))
-              (setq init (cdr init)))
+            (dolist (var-init init)
+              (setq current-var (car var-init))
+              (set (car var-init) (eval (cadr var-init))))
 
           (error
            (if current-var