From: Juanma Barranquero <lekktu@gmail.com>
Date: Tue, 25 Sep 2007 10:41:00 +0000 (+0000)
Subject: (produce-allout-mode-map, allout-process-exposed):
X-Git-Tag: emacs-pretest-23.0.90~10685
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5110e1660c9128dbded7dc05e08049d8c93f569b;p=emacs.git

(produce-allout-mode-map, allout-process-exposed):
Use `mapc' rather than `mapcar'.
---

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