Mercurial > emacs
changeset 85224:37dfa62aaf49
(c-make-styles-buffer-local)
(c-set-style): Use mapc rather than mapcar.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Sat, 13 Oct 2007 03:01:12 +0000 |
| parents | 455aadb38992 |
| children | a0a1222030c8 |
| files | lisp/progmodes/cc-styles.el |
| diffstat | 1 files changed, 6 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/cc-styles.el Sat Oct 13 03:00:45 2007 +0000 +++ b/lisp/progmodes/cc-styles.el Sat Oct 13 03:01:12 2007 +0000 @@ -381,11 +381,11 @@ ;; fallback entry. (setq c-special-indent-hook (default-value 'c-special-indent-hook))) - (mapcar (lambda (elem) - (c-set-style-1 elem dont-override)) - ;; Need to go through the variables backwards when we - ;; don't override any settings. - (if (eq dont-override t) (nreverse vars) vars))) + (mapc (lambda (elem) + (c-set-style-1 elem dont-override)) + ;; Need to go through the variables backwards when we + ;; don't override any settings. + (if (eq dont-override t) (nreverse vars) vars))) (setq c-indentation-style stylename) (c-keep-region-active)) @@ -636,7 +636,7 @@ 'make-variable-buffer-local)) (varsyms (cons 'c-indentation-style (copy-alist c-style-variables)))) (delq 'c-special-indent-hook varsyms) - (mapcar func varsyms) + (mapc func varsyms) ;; Hooks must be handled specially (if this-buf-only-p (make-local-hook 'c-special-indent-hook)