From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 10 Nov 1995 17:29:36 +0000 (+0000)
Subject: (tmm-define-keys): New subroutine.
X-Git-Tag: emacs-19.34~2380
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b46324e6b307d8cdde12adc9d15c97e5136da9a2;p=emacs.git

(tmm-define-keys): New subroutine.
(tmm-add-prompt): Use that to define keys in both maps separately.

Use f10 as well as M-`.
---

diff --git a/lisp/tmm.el b/lisp/tmm.el
index 0fd405d0de7..0a1ee8878ea 100644
--- a/lisp/tmm.el
+++ b/lisp/tmm.el
@@ -43,6 +43,7 @@
 (defvar tmm-table-undef)
 
 ;;;###autoload (define-key global-map "\M-`" 'tmm-menubar)
+;;;###autoload (define-key global-map [f10] 'tmm-menubar)
 
 ;;;###autoload
 (defun tmm-menubar ()
@@ -176,23 +177,26 @@ Stores a list of all the shortcuts in the free variable `tmm-short-cuts'."
 		  (cons (concat f tmm-mid-prompt str) (cdr elt)))))
 	    (reverse list))))
 
+(defun tmm-define-keys ()
+  (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) "\e\e" 'abort-recursive-edit)
+  (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)
   (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)
-	      (define-key map (downcase str) 'tmm-shortcut))
-	    tmm-short-cuts)
+  (let ((win (selected-window)))
     (setq tmm-old-mb-map (current-local-map))
-    (use-local-map (append map (cdr tmm-old-mb-map)))
-    (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) "\e\e" 'abort-recursive-edit)
-    (define-key (current-local-map) "\C-n" 'next-history-element)
-    (define-key (current-local-map) "\C-p" 'previous-history-element)
+    (use-local-map (append (make-sparse-keymap) tmm-old-mb-map))
+    (tmm-define-keys)
     ;; Get window and hide it for electric mode to get correct size
     (save-window-excursion 
       (let ((completions
@@ -208,7 +212,8 @@ Stores a list of all the shortcuts in the free variable `tmm-short-cuts'."
 					; not work in minibuffer
       (set-buffer (window-buffer (Electric-pop-up-window "*Completions*")))
       (setq tmm-old-comp-map (current-local-map))
-      (use-local-map (append map (cdr tmm-old-comp-map)))
+      (use-local-map (append (make-sparse-keymap) tmm-old-comp-map))
+      (tmm-define-keys)
       (select-window win)		; Cannot use
 					; save-window-excursion, since
 					; it restores the size