diff options
author | Richard M. Stallman <[email protected]> | 1995-03-31 01:48:40 +0000 |
---|---|---|
committer | Richard M. Stallman <[email protected]> | 1995-03-31 01:48:40 +0000 |
commit | 45486731af0f5ee95a877c9020fd5b66a152dd81 (patch) | |
tree | aa6380fd9166f644a7f42da2f2cc3b071bfe866b /lisp/simple.el | |
parent | cb79b372cf6187a7f15a47fac7e77a76aee4ceda (diff) |
(choose-completion-string): Use active-minibuffer-window.
Diffstat (limited to 'lisp/simple.el')
-rw-r--r-- | lisp/simple.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/simple.el b/lisp/simple.el index 90ee2642c9..0a4bb2a424 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) |