From 6d1b1d7b831ae47ae45bb5b7c983e0010b390a91 Mon Sep 17 00:00:00 2001 From: John Paul Wallington Date: Thu, 26 Sep 2002 09:59:44 +0000 Subject: [PATCH] (Fminibufferp): Add an optional `buffer' argument. --- src/ChangeLog | 4 ++++ src/minibuf.c | 17 +++++++++++++---- 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 + + * minibuf.c (Fminibufferp): Add an optional `buffer' argument. + 2002-09-26 Kenichi Handa * 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; } -- 2.11.4.GIT