Mercurial > emacs
changeset 12763:b8e986069a58
Don't alter bindings in minibuffer-local-must-match-map
or completion-list-mode-map.
(tmm-add-prompt): Use make-local-hook; add hook locally.
(tmm-delete-map): Delete hook locally.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 03 Aug 1995 17:39:53 +0000 |
| parents | b616982e679b |
| children | 69dcdd99fd8d |
| files | lisp/tmm.el |
| diffstat | 1 files changed, 6 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/tmm.el Thu Aug 03 17:38:07 1995 +0000 +++ b/lisp/tmm.el Thu Aug 03 17:39:53 1995 +0000 @@ -32,14 +32,9 @@ ;;; tmm-menubar. (require 'electric) -(define-key completion-list-mode-map "\e\e" 'abort-recursive-edit) -(define-key completion-list-mode-map [left] 'backward-word) -(define-key completion-list-mode-map [right] 'forward-word) ;(define-key minibuffer-local-must-match-map [pageup] 'tmm-goto-completions) ;(define-key minibuffer-local-must-match-map [prior] 'tmm-goto-completions) ;(define-key minibuffer-local-must-match-map "\ev" 'tmm-goto-completions) -(define-key minibuffer-local-must-match-map [up] 'previous-history-element) -(define-key minibuffer-local-must-match-map [down] 'next-history-element) ;;; The following will be localized, added only to pacify the compiler. (defvar tmm-short-cuts) @@ -49,6 +44,8 @@ (defvar tmm-km-list) (defvar tmm-table-undef) +;;;###autoload (define-key global-map "\M-`" tmm-menubar) + ;;;###autoload (defun tmm-menubar () "Text-mode emulation of looking and choosing from a menubar. @@ -67,7 +64,7 @@ "Press PageUp Key to reach this buffer from the minibuffer. Alternatively, you can use Up/Down keys (or your History keys) to change the item in the minibuffer, and press RET when you are done, or press the -marked letters to pick up your choice. ESC ESC to cancel. +marked letters to pick up your choice. Type ESC ESC to cancel. " "What insert on top of completion buffer.") @@ -166,7 +163,8 @@ (defun tmm-add-prompt () (remove-hook 'minibuffer-setup-hook 'tmm-add-prompt) - (add-hook 'minibuffer-exit-hook 'tmm-delete-map) + (make-local-hook 'minibuffer-exit-hook) + (add-hook 'minibuffer-exit-hook 'tmm-delete-map nil t) (let ((map (make-sparse-keymap)) (win (selected-window))) (mapcar (lambda (str) (define-key map str 'tmm-shortcut) @@ -198,7 +196,7 @@ (insert tmm-c-prompt))) (defun tmm-delete-map () - (remove-hook 'minibuffer-exit-hook 'tmm-delete-map) + (remove-hook 'minibuffer-exit-hook 'tmm-delete-map t) (use-local-map tmm-old-mb-map)) (defun tmm-shortcut ()