# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1190716860 0
# Node ID 5b7295004fd1cd2322396a8076b8c1743b3195db
# Parent  55b91acb543e0cb929c0309b518049f22dd79d5f
(produce-allout-mode-map, allout-process-exposed):
Use `mapc' rather than `mapcar'.

diff -r 55b91acb543e -r 5b7295004fd1 lisp/allout.el
--- a/lisp/allout.el	Tue Sep 25 09:32:18 2007 +0000
+++ b/lisp/allout.el	Tue Sep 25 10:41:00 2007 +0000
@@ -1130,17 +1130,17 @@
 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 @@
 	  (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