# HG changeset patch
# User John Paul Wallington <jpw@pobox.com>
# Date 1033034384 0
# Node ID d9332e0c9cb39e4e0abfb067067fad3f4a4c7c54
# Parent  a65ea08814e2d99a50279da4e84e6d496cfa2c79
(Fminibufferp): Add an optional `buffer' argument.

diff -r a65ea08814e2 -r d9332e0c9cb3 src/ChangeLog
--- a/src/ChangeLog	Thu Sep 26 08:04:18 2002 +0000
+++ b/src/ChangeLog	Thu Sep 26 09:59:44 2002 +0000
@@ -1,3 +1,7 @@
+2002-09-26  John Paul Wallington  <jpw@shootybangbang.com>
+
+	* minibuf.c (Fminibufferp): Add an optional `buffer' argument.
+
 2002-09-26  Kenichi Handa  <handa@etl.go.jp>
 
 	* xfaces.c (try_font_list): New arg PREFER_FACE_FAMILY.  If it is
diff -r a65ea08814e2 -r d9332e0c9cb3 src/minibuf.c
--- a/src/minibuf.c	Thu Sep 26 08:04:18 2002 +0000
+++ b/src/minibuf.c	Thu Sep 26 09:59:44 2002 +0000
@@ -319,13 +319,22 @@
 }
 
 DEFUN ("minibufferp", Fminibufferp,
-       Sminibufferp, 0, 0, 0,
-       doc: /* Return t if the current buffer is a minibuffer.  */)
-     ()
+       Sminibufferp, 0, 1, 0,
+       doc: /* Return t if BUFFER is a minibuffer.
+No argument or nil as argument means use current buffer as BUFFER.*/)
+     (buffer)
+     Lisp_Object buffer;
 {
   Lisp_Object tem;
 
-  tem = Fmemq (Fcurrent_buffer (), Vminibuffer_list);
+  if (NILP (buffer))
+    buffer = Fcurrent_buffer ();
+  else if (STRINGP (buffer))
+    buffer = Fget_buffer (buffer);
+  else
+    CHECK_BUFFER (buffer);
+
+  tem = Fmemq (buffer, Vminibuffer_list);
   return ! NILP (tem) ? Qt : Qnil;
 }