From 45486731af0f5ee95a877c9020fd5b66a152dd81 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 31 Mar 1995 01:48:40 +0000 Subject: [PATCH] (choose-completion-string): Use active-minibuffer-window. --- lisp/simple.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/lisp/simple.el b/lisp/simple.el index 90ee2642c9d..0a4bb2a4248 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -2729,8 +2729,9 @@ WIth prefix argument N, move N items (negative N means move backward)." ;; If BUFFER is a minibuffer, barf unless it's the currently ;; active minibuffer. (if (and (string-match "\\` \\*Minibuf-[0-9]+\\*\\'" (buffer-name buffer)) - (or (not (minibuffer-window-active-p (minibuffer-window))) - (not (equal buffer (window-buffer (minibuffer-window)))))) + (or (not (active-minibuffer-window)) + (not (equal buffer + (window-buffer (active-minibuffer-window)))))) (error "Minibuffer is not active for completion") ;; Insert the completion into the buffer where completion was requested. (set-buffer buffer) -- 2.39.5