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

diff --git a/ChangeLog b/ChangeLog
index afafb5a..b5048ee 100644 (file)
--- 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,
 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.
 
 
        * APEL: Version 8.4 was released.
 

-       * EMU-ELS: Don't use HIRAGANA LETTER A (\e$(B$"\e(B) to detect character
+       * EMU-ELS: Don't use HIRAGANA LETTER A (\e$B$"\e(B) to detect character

        indexing (Emacs 20.3 or later).
 
 1998-04-20  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
        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 (file)
--- 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 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.
 ;;;
 
 ;;; @@ Environment variables.
 ;;;