From: 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 + + * poe-18.el (window-minibuffer-p): New function. + 2000-01-30 Tsukamoto Tetsuo * 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 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. ;;;