Mercurial > emacs

changeset 33191:ca52130472e7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(minibuffer maps): Use dolist rather than mapcar.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Fri, 03 Nov 2000 22:28:30 +0000
parents c33775f5049b
children 76b47f37d61c
files lisp/menu-bar.el
diffstat 1 files changed, 29 insertions(+), 40 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/menu-bar.el	Fri Nov 03 22:25:46 2000 +0000
+++ b/lisp/menu-bar.el	Fri Nov 03 22:28:30 2000 +0000
@@ -1151,48 +1151,37 @@
 
 ;;; Set up a menu bar menu for the minibuffer.
 
-(mapcar
- (function
-  (lambda (map)
-    (define-key map [menu-bar minibuf]
-      (cons "Minibuf" (make-sparse-keymap "Minibuf")))))
- (list minibuffer-local-ns-map
-       minibuffer-local-must-match-map
-       minibuffer-local-isearch-map
-       minibuffer-local-map
-       minibuffer-local-completion-map))
+(dolist (map (list minibuffer-local-ns-map
+		   minibuffer-local-must-match-map
+		   minibuffer-local-isearch-map
+		   minibuffer-local-map
+		   minibuffer-local-completion-map))
+  (define-key map [menu-bar minibuf]
+    (cons "Minibuf" (make-sparse-keymap "Minibuf"))))
 
-(mapcar
- (function
-  (lambda (map)
-    (define-key map [menu-bar minibuf ?\?]
-      (list 'menu-item "List Completions" 'minibuffer-completion-help
-	    :help "Display all possible completions"))
-    (define-key map [menu-bar minibuf space]
-      (list 'menu-item "Complete Word" 'minibuffer-complete-word
-	    :help "Complete at most one word"))
-    (define-key map [menu-bar minibuf tab]
-      (list 'menu-item "Complete" 'minibuffer-complete
-	    :help "Complete as far as possible"))
-    ))
- (list minibuffer-local-must-match-map
-       minibuffer-local-completion-map))
+(dolist (map (list minibuffer-local-must-match-map
+		   minibuffer-local-completion-map))
+  (define-key map [menu-bar minibuf ?\?]
+    (list 'menu-item "List Completions" 'minibuffer-completion-help
+	  :help "Display all possible completions"))
+  (define-key map [menu-bar minibuf space]
+    (list 'menu-item "Complete Word" 'minibuffer-complete-word
+	  :help "Complete at most one word"))
+  (define-key map [menu-bar minibuf tab]
+    (list 'menu-item "Complete" 'minibuffer-complete
+	  :help "Complete as far as possible")))
 
-(mapcar
- (function
-  (lambda (map)
-    (define-key map [menu-bar minibuf quit]
-      (list 'menu-item "Quit" 'keyboard-escape-quit
-	    :help "Abort input and exit minibuffer"))
-    (define-key map [menu-bar minibuf return]
-      (list 'menu-item "Enter" 'exit-minibuffer
-	    :help "Terminate input and exit minibuffer"))
-    ))
- (list minibuffer-local-ns-map
-       minibuffer-local-must-match-map
-       minibuffer-local-isearch-map
-       minibuffer-local-map
-       minibuffer-local-completion-map))
+(dolist (map (list minibuffer-local-ns-map
+		   minibuffer-local-must-match-map
+		   minibuffer-local-isearch-map
+		   minibuffer-local-map
+		   minibuffer-local-completion-map))
+  (define-key map [menu-bar minibuf quit]
+    (list 'menu-item "Quit" 'keyboard-escape-quit
+	  :help "Abort input and exit minibuffer"))
+  (define-key map [menu-bar minibuf return]
+    (list 'menu-item "Enter" 'exit-minibuffer
+	  :help "Terminate input and exit minibuffer")))
 
 (defcustom menu-bar-mode nil
   "Toggle display of a menu bar on each frame.