Mercurial > emacs

changeset 84855:5b7295004fd1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(produce-allout-mode-map, allout-process-exposed): Use `mapc' rather than `mapcar'.
author Juanma Barranquero <lekktu@gmail.com>
date Tue, 25 Sep 2007 10:41:00 +0000
parents 55b91acb543e
children 2b87e65c55a0
files lisp/allout.el
diffstat 1 files changed, 12 insertions(+), 12 deletions(-) [+]
line wrap: on
line diff
--- 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