diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2007-09-25 10:41:00 +0000 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2007-09-25 10:41:00 +0000 |
| commit | 5110e1660c9128dbded7dc05e08049d8c93f569b (patch) | |
| tree | 91d4a6ab41e83a366637b0c83662a4515adf0d28 /lisp/allout.el | |
| parent | 1ffe7343fab7ee85cddc7ebf6d0abe0bfc0b90aa (diff) | |
| download | emacs-5110e1660c9128dbded7dc05e08049d8c93f569b.tar.gz emacs-5110e1660c9128dbded7dc05e08049d8c93f569b.tar.bz2 emacs-5110e1660c9128dbded7dc05e08049d8c93f569b.zip | |
(produce-allout-mode-map, allout-process-exposed):
Use `mapc' rather than `mapcar'.
Diffstat (limited to 'lisp/allout.el')
| -rw-r--r-- | lisp/allout.el | 24 |
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 |