(produce-allout-mode-map, allout-process-exposed):

Use `mapc' rather than `mapcar'.

diff --git a/lisp/allout.el b/lisp/allout.el
index d243a188812e2a07caab902792ed98b66ab85e51..a827d6162c56a962b46abd1e849f99f26c385add 100644 (file)
--- a/lisp/allout.el
+++ b/lisp/allout.el
@@ -1130,17 +1130,17 @@ Built on top of optional BASE-MAP, or empty sparse map if none specified.
 See doc string for allout-keybindings-list for format of binding list."
   (let ((map (or base-map (make-sparse-keymap)))
        (pref (list allout-command-prefix)))
-    (mapcar (function
-            (lambda (cell)
-              (let ((add-pref (null (cdr (cdr cell))))
-                    (key-suff (list (car cell))))
-                (apply 'define-key
-                       (list map
-                             (apply 'concat (if add-pref
-                                                (append pref key-suff)
-                                              key-suff))
-                             (car (cdr cell)))))))
-           keymap-list)
+    (mapc (function
+          (lambda (cell)
+           (let ((add-pref (null (cdr (cdr cell))))
+                 (key-suff (list (car cell))))
+             (apply 'define-key
+                    (list map
+                          (apply 'concat (if add-pref
+                                             (append pref key-suff)
+                                           key-suff))
+                          (car (cdr cell)))))))
+         keymap-list)
     map))
 ;;;_  : Menu bar
 (defvar allout-mode-exposure-menu)
@@ -5463,7 +5463,7 @@ Defaults:
          (progn (set-buffer frombuf)
                 (allout-listify-exposed from to format))))
     (set-buffer tobuf)
-    (mapcar func listified)
+    (mapc func listified)
     (pop-to-buffer tobuf)))
 
 ;;;_  - Copy exposed