From: minakaji <minakaji>
Date: Sun, 30 Jan 2000 23:09:41 +0000 (+0000)
Subject: * poe-18.el (window-minibuffer-p): New function.
X-Git-Tag: apel-10_2~20
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=f0c064a160671ecc8a711179df99e57e899c1353;p=elisp%2Fapel.git

* poe-18.el (window-minibuffer-p): New function.
---

diff --git a/ChangeLog b/ChangeLog
index afafb5a..b5048ee 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2000-01-30  Mikio Nakajima  <minakaji@osaka.email.ne.jp>
+
+	* poe-18.el (window-minibuffer-p): New function.
+
 2000-01-30  Tsukamoto Tetsuo  <czkmt@remus.dti.ne.jp>
 
 	* pces-om.el (insert-file-contents-as-coding-system): Ignore BEG,
@@ -2492,7 +2496,7 @@
 
 	* APEL: Version 8.4 was released.
 
-	* EMU-ELS: Don't use HIRAGANA LETTER A ($(B$"(B) to detect character
+	* EMU-ELS: Don't use HIRAGANA LETTER A ($B$"(B) to detect character
  	indexing (Emacs 20.3 or later).
 
 1998-04-20  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
diff --git a/poe-18.el b/poe-18.el
index 069dce5..07cf039 100644
--- a/poe-18.el
+++ b/poe-18.el
@@ -519,6 +519,9 @@ even if a buffer with that name exists."
 (defun mark (&optional force)
   (si:mark))
 
+(defun-maybe window-minibuffer-p (&optional window)
+"Return non-nil if WINDOW is a minibuffer window."
+  (eq (or window (selected-window)) (minibuffer-window)))
 
 ;;; @@ Environment variables.
 ;;;