Mercurial > emacs

changeset 11159:edf66df6fbe9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(choose-completion-string): Use active-minibuffer-window.
author Richard M. Stallman <rms@gnu.org>
date Fri, 31 Mar 1995 01:48:40 +0000
parents b9376f3450bb
children 7d4a038bc511
files lisp/simple.el
diffstat 1 files changed, 3 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/simple.el	Fri Mar 31 00:18:38 1995 +0000
+++ b/lisp/simple.el	Fri Mar 31 01:48:40 1995 +0000
@@ -2729,8 +2729,9 @@
     ;; 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)