Skip to content

GitLab

emacs
emacs
Commit 560022a5 authored by Stefan Monnier's avatar Stefan Monnier
Browse files
Options

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

parent 498d7fe9
Hide whitespace changes
Inline Side-by-side
Showing with 6 additions and 8 deletions
lisp/progmodes/cc-langs.el
View file @ 560022a5
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment