diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2015-09-14 09:26:54 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2015-09-14 09:26:54 -0400 |
| commit | 560022a5b670422c133381824a8b79dca72402a5 (patch) | |
| tree | 18986a37b0347c48d4c4c7ad0af39496d055066c /lisp | |
| parent | 498d7fe980250b07a25bcb0a588337484d497100 (diff) | |
| download | emacs-560022a5b670422c133381824a8b79dca72402a5.tar.gz | |
* lisp/progmodes/cc-langs.el (c-make-init-lang-vars-fun): Use dolist
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/progmodes/cc-langs.el | 14 |
1 files changed, 6 insertions, 8 deletions
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 |