(tmm-prompt): Delete tmm-add-prompt if we fail.

Don't switch to *Completions* if it wasn't created.

(tmm-prompt): Delete tmm-add-prompt if we fail.
Don't switch to *Completions* if it wasn't created.
c5c4b51c · Richard M. Stallman · 4d98816f · c5c4b51c
Commit c5c4b51c authored Nov 18, 1995 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 6 additions and 3 deletions

lisp/tmm.el lisp/tmm.el +6 -3

No files found.
--- 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)