procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(sh-make-vars-local, sh-reset-indent-vars-to-global-values):

Browse source 
Use `mapc' rather than `mapcar'.
This commit is contained in:
Juanma Barranquero 2007-09-26 00:27:18 +00:00
parent 2d97d6dc94
commit f24a26a546
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/progmodes/sh-script.el
View file

@ -1029,7 +1029,7 @@ subshells can nest."
(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 @@ variable `sh-make-vars-local' has been set to nil.
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)))