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

Use `mapc' rather than `mapcar'.

1 files changed, 12 insertions, 12 deletions

diff --git a/lisp/allout.el b/lisp/allout.el
index d243a188812..a827d6162c5 100644
--- 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