From 5110e1660c9128dbded7dc05e08049d8c93f569b Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Tue, 25 Sep 2007 10:41:00 +0000 Subject: [PATCH] (produce-allout-mode-map, allout-process-exposed): Use `mapc' rather than `mapcar'. --- lisp/allout.el | 24 ++++++++++++------------ 1 file 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 -- 2.39.2