From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Mon, 14 Sep 2015 13:26:54 +0000 (-0400)
Subject: * lisp/progmodes/cc-langs.el (c-make-init-lang-vars-fun): Use dolist
X-Git-Tag: emacs-25.0.90~1224^2~133
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=560022a5b670422c133381824a8b79dca72402a5;p=emacs.git

* lisp/progmodes/cc-langs.el (c-make-init-lang-vars-fun): Use dolist
---

diff --git a/lisp/progmodes/cc-langs.el b/lisp/progmodes/cc-langs.el
index e9c49644676..dcd51164ce8 100644
--- a/lisp/progmodes/cc-langs.el
+++ b/lisp/progmodes/cc-langs.el
@@ -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