Mercurial > emacs
changeset 14902:6dc4dee167eb
(tmm-define-keys): New arg MINIBUFFER.
(tmm-add-prompt): Pass new arg in both calls.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 28 Mar 1996 18:16:43 +0000 |
| parents | 64c1d20f4b5f |
| children | 13c3adcb1c13 |
| files | lisp/tmm.el |
| diffstat | 1 files changed, 10 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/tmm.el Thu Mar 28 04:40:34 1996 +0000 +++ b/lisp/tmm.el Thu Mar 28 18:16:43 1996 +0000 @@ -248,16 +248,18 @@ (cons (concat f tmm-mid-prompt str) (cdr elt))))) (reverse list)))) -(defun tmm-define-keys () +(defun tmm-define-keys (minibuffer) (mapcar (lambda (str) (define-key (current-local-map) str 'tmm-shortcut) (define-key (current-local-map) (downcase str) 'tmm-shortcut)) tmm-short-cuts) - (define-key (current-local-map) [pageup] 'tmm-goto-completions) - (define-key (current-local-map) [prior] 'tmm-goto-completions) - (define-key (current-local-map) "\ev" 'tmm-goto-completions) - (define-key (current-local-map) "\C-n" 'next-history-element) - (define-key (current-local-map) "\C-p" 'previous-history-element)) + (if minibuffer + (progn + (define-key (current-local-map) [pageup] 'tmm-goto-completions) + (define-key (current-local-map) [prior] 'tmm-goto-completions) + (define-key (current-local-map) "\ev" 'tmm-goto-completions) + (define-key (current-local-map) "\C-n" 'next-history-element) + (define-key (current-local-map) "\C-p" 'previous-history-element)))) (defun tmm-add-prompt () (remove-hook 'minibuffer-setup-hook 'tmm-add-prompt) @@ -266,7 +268,7 @@ (let ((win (selected-window))) (setq tmm-old-mb-map (current-local-map)) (use-local-map (append (make-sparse-keymap) tmm-old-mb-map)) - (tmm-define-keys) + (tmm-define-keys t) ;; Get window and hide it for electric mode to get correct size (save-window-excursion (let ((completions @@ -283,7 +285,7 @@ (set-buffer (window-buffer (Electric-pop-up-window "*Completions*"))) (setq tmm-old-comp-map (current-local-map)) (use-local-map (append (make-sparse-keymap) tmm-old-comp-map)) - (tmm-define-keys) + (tmm-define-keys nil) (select-window win) ; Cannot use ; save-window-excursion, since ; it restores the size