1
0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-23 18:47:57 +00:00

(c-make-styles-buffer-local)

(c-set-style): Use mapc rather than mapcar.
This commit is contained in:
Glenn Morris 2007-10-13 03:01:12 +00:00
parent dba011204d
commit 21a55d57be

View File

@ -381,11 +381,11 @@ a null operation."
;; fallback entry. ;; fallback entry.
(setq c-special-indent-hook (setq c-special-indent-hook
(default-value 'c-special-indent-hook))) (default-value 'c-special-indent-hook)))
(mapcar (lambda (elem) (mapc (lambda (elem)
(c-set-style-1 elem dont-override)) (c-set-style-1 elem dont-override))
;; Need to go through the variables backwards when we ;; Need to go through the variables backwards when we
;; don't override any settings. ;; don't override any settings.
(if (eq dont-override t) (nreverse vars) vars))) (if (eq dont-override t) (nreverse vars) vars)))
(setq c-indentation-style stylename) (setq c-indentation-style stylename)
(c-keep-region-active)) (c-keep-region-active))
@ -636,7 +636,7 @@ any reason to call this function directly."
'make-variable-buffer-local)) 'make-variable-buffer-local))
(varsyms (cons 'c-indentation-style (copy-alist c-style-variables)))) (varsyms (cons 'c-indentation-style (copy-alist c-style-variables))))
(delq 'c-special-indent-hook varsyms) (delq 'c-special-indent-hook varsyms)
(mapcar func varsyms) (mapc func varsyms)
;; Hooks must be handled specially ;; Hooks must be handled specially
(if this-buf-only-p (if this-buf-only-p
(make-local-hook 'c-special-indent-hook) (make-local-hook 'c-special-indent-hook)