* poe-18.el (window-minibuffer-p): New function.
authorminakaji <minakaji>
Sun, 30 Jan 2000 23:09:41 +0000 (23:09 +0000)
committerminakaji <minakaji>
Sun, 30 Jan 2000 23:09:41 +0000 (23:09 +0000)
ChangeLog
poe-18.el

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,
 
        * 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>
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-maybe window-minibuffer-p (&optional window)
+"Return non-nil if WINDOW is a minibuffer window."
+  (eq (or window (selected-window)) (minibuffer-window)))
 
 ;;; @@ Environment variables.
 ;;;