Mercurial > emacs
changeset 84921:35543641f89c
(sh-make-vars-local, sh-reset-indent-vars-to-global-values):
Use `mapc' rather than `mapcar'.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Wed, 26 Sep 2007 00:27:18 +0000 |
| parents | 0aa483c9d53e |
| children | 1b6b77d0f75a |
| files | lisp/progmodes/sh-script.el |
| diffstat | 1 files changed, 3 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/sh-script.el Wed Sep 26 00:26:29 2007 +0000 +++ b/lisp/progmodes/sh-script.el Wed Sep 26 00:27:18 2007 +0000 @@ -1029,7 +1029,7 @@ (t (error "Internal error in sh-font-lock-quoted-subshell"))) (forward-char 1))) t)) - + (defun sh-is-quoted-p (pos) (and (eq (char-before pos) ?\\) @@ -1906,14 +1906,14 @@ To revert all these variables to the global values, use command `sh-reset-indent-vars-to-global-values'." (interactive) - (mapcar 'make-local-variable sh-var-list) + (mapc 'make-local-variable sh-var-list) (message "Indentation variables are now local.")) (defun sh-reset-indent-vars-to-global-values () "Reset local indentation variables to the global values. Then, if variable `sh-make-vars-local' is non-nil, make them local." (interactive) - (mapcar 'kill-local-variable sh-var-list) + (mapc 'kill-local-variable sh-var-list) (if sh-make-vars-local (mapcar 'make-local-variable sh-var-list)))