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

diff --git a/src/ChangeLog b/src/ChangeLog
index 2396c9562ad25a03331fcb2b3bd17cb5137563de..0a45273d24cbac21fd33bc1420753ab2abb35963 100644 (file)
--- 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 4b5185abdb164eb28783da4b15aa17c4c9c461db..bb391d44d7cc700465c525d4dac727fe855aad75 100644 (file)
--- a/src/minibuf.c
+++ b/src/minibuf.c
@@ -319,13 +319,22 @@ read_minibuf_noninteractive (map, initial, prompt, backup_n, expflag,
 }
 \f
 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;
 }