Commit 32993295 authored by Stefan Monnier's avatar Stefan Monnier

(minibuffer-local-*map): Take inheritance into account.

parent 01f9ba17
2001-10-12 Stefan Monnier <monnier@cs.yale.edu>
* menu-bar.el (minibuffer-local-*map): Take inheritance into account.
* simple.el (minibuffer-local*-map): Remove redundant bindings.
* bindings.el (minibuffer-local-map): Also bind next, C-n, C-s, prior,
C-p and C-r. Remove redundant bindings from inheriting maps.
* progmodes/cperl-mode.el: Merged in changes from v4.32.
After 4.23 and: After 4.24:
(cperl-contract-levels): Restore position.
......
......@@ -1170,16 +1170,14 @@ key (or menu-item)"))
;;; Set up a menu bar menu for the minibuffer.
(dolist (map (list minibuffer-local-ns-map
minibuffer-local-must-match-map
minibuffer-local-isearch-map
minibuffer-local-map
(dolist (map (list minibuffer-local-map
;; This shouldn't be necessary, but there's a funny
;; bug in keymap.c that I don't understand yet. -stef
minibuffer-local-completion-map))
(define-key map [menu-bar minibuf]
(cons "Minibuf" (make-sparse-keymap "Minibuf"))))
(dolist (map (list minibuffer-local-must-match-map
minibuffer-local-completion-map))
(let ((map minibuffer-local-completion-map))
(define-key map [menu-bar minibuf ?\?]
(list 'menu-item "List Completions" 'minibuffer-completion-help
:help "Display all possible completions"))
......@@ -1190,11 +1188,7 @@ key (or menu-item)"))
(list 'menu-item "Complete" 'minibuffer-complete
:help "Complete as far as possible")))
(dolist (map (list minibuffer-local-ns-map
minibuffer-local-must-match-map
minibuffer-local-isearch-map
minibuffer-local-map
minibuffer-local-completion-map))
(let ((map minibuffer-local-map))
(define-key map [menu-bar minibuf quit]
(list 'menu-item "Quit" 'keyboard-escape-quit
:help "Abort input and exit minibuffer"))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment