diff options
| -rw-r--r-- | lisp/tmm.el | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/lisp/tmm.el b/lisp/tmm.el index 281b6a3d845..1d23ffb5ca9 100644 --- a/lisp/tmm.el +++ b/lisp/tmm.el @@ -115,9 +115,12 @@ If the optional argument IN-POPUP is set, is argument-compatible with tmm-km-list nil t nil (cons 'history (* 2 history-len)))) (save-excursion - (set-buffer "*Completions*") - (use-local-map tmm-old-comp-map) - (bury-buffer (current-buffer))) + (remove-hook 'minibuffer-setup-hook 'tmm-add-prompt) + (if (get-buffer "*Completions*") + (progn + (set-buffer "*Completions*") + (use-local-map tmm-old-comp-map) + (bury-buffer (current-buffer))))) ))) (setq bind (cdr (assoc out tmm-km-list))) (and (null bind) |