(auto-insert): Use mapc' rather than mapcar'.

This commit is contained in:
Juanma Barranquero 2007-09-25 10:42:46 +00:00
parent c04c01ca0d
commit 6fd09e1984

View file

@ -272,7 +272,7 @@ Matches the visited file name against the elements of `auto-insert-alist'."
(eq this-command 'auto-insert))
(y-or-n-p (format auto-insert-prompt desc)))
t)
(mapcar
(mapc
(lambda (action)
(if (stringp action)
(if (file-readable-p