mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-24 07:20:37 +00:00
Code Issues Releases Activity

(minibuffer maps): Use dolist rather than mapcar.

Browse Source
This commit is contained in:
Stefan Monnier 2000-11-03 22:28:30 +00:00
parent 754005f70d
commit d918e2dcea
1 changed files with 29 additions and 40 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

69
lisp/menu-bar.el
View File

@ -1151,48 +1151,37 @@ key (or menu-item)"))
;;; 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.