Commit c5c4b51c authored by Richard M. Stallman's avatar Richard M. Stallman

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

Don't switch to *Completions* if it wasn't created.
parent 4d98816f
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment