# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 816710270 0
# Node ID e69e87bdc8139c114c6ec5a27c0143835bea5b69
# Parent  c1100fe2e5626351e0504882843a541b332f31c4
(tmm-prompt): Delete tmm-add-prompt if we fail.
Don't switch to *Completions* if it wasn't created.

diff -r c1100fe2e562 -r e69e87bdc813 lisp/tmm.el
--- a/lisp/tmm.el	Sat Nov 18 15:50:42 1995 +0000
+++ b/lisp/tmm.el	Sat Nov 18 15:57:50 1995 +0000
@@ -115,9 +115,12 @@
 		      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)