diff options
| author | Richard M. Stallman <rms@gnu.org> | 1995-11-18 15:57:50 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1995-11-18 15:57:50 +0000 |
| commit | c5c4b51cc68d84b6cf3db933ac595c95e54de104 (patch) | |
| tree | e27dfb802558c24ab7a13abb9579f888c0e5d512 /lisp/tmm.el | |
| parent | 4d98816f32d006a64bf6a789d0e2be3493201ad9 (diff) | |
| download | emacs-c5c4b51cc68d84b6cf3db933ac595c95e54de104.tar.gz | |
(tmm-prompt): Delete tmm-add-prompt if we fail.
Don't switch to *Completions* if it wasn't created.
Diffstat (limited to 'lisp/tmm.el')
| -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) |