(Fminibufferp): Add an optional `buffer' argument.

2 files changed, 17 insertions, 4 deletions

diff --git a/src/ChangeLog b/src/ChangeLog
index 2396c9562ad..0a45273d24c 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -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 --git a/src/minibuf.c b/src/minibuf.c
index 4b5185abdb1..bb391d44d7c 100644
--- a/src/minibuf.c
+++ b/src/minibuf.c
@@ -319,13 +319,22 @@ read_minibuf_noninteractive (map, initial, prompt, backup_n, expflag,
 }
 
 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;
 }