318 |
return val; |
return val; |
319 |
} |
} |
320 |
|
|
321 |
|
DEFUN ("minibufferp", Fminibufferp, |
322 |
|
Sminibufferp, 0, 0, 0, |
323 |
|
doc: /* Return t if the current buffer is a minibuffer. */) |
324 |
|
() |
325 |
|
{ |
326 |
|
Lisp_Object tem; |
327 |
|
|
328 |
|
tem = Fmemq (Fcurrent_buffer (), Vminibuffer_list); |
329 |
|
return ! NILP (tem) ? Qt : Qnil; |
330 |
|
} |
331 |
|
|
332 |
DEFUN ("minibuffer-prompt-end", Fminibuffer_prompt_end, |
DEFUN ("minibuffer-prompt-end", Fminibuffer_prompt_end, |
333 |
Sminibuffer_prompt_end, 0, 0, 0, |
Sminibuffer_prompt_end, 0, 0, 0, |
334 |
doc: /* Return the buffer position of the end of the minibuffer prompt. |
doc: /* Return the buffer position of the end of the minibuffer prompt. |
336 |
() |
() |
337 |
{ |
{ |
338 |
/* This function is written to be most efficient when there's a prompt. */ |
/* This function is written to be most efficient when there's a prompt. */ |
339 |
Lisp_Object beg = make_number (BEGV); |
Lisp_Object beg, end, tem; |
340 |
Lisp_Object end = Ffield_end (beg, Qnil, Qnil); |
beg = make_number (BEGV); |
341 |
|
|
342 |
|
tem = Fmemq (Fcurrent_buffer (), Vminibuffer_list); |
343 |
|
if (NILP (tem)) |
344 |
|
return beg; |
345 |
|
|
346 |
|
end = Ffield_end (beg, Qnil, Qnil); |
347 |
|
|
348 |
if (XINT (end) == ZV && NILP (Fget_char_property (beg, Qfield, Qnil))) |
if (XINT (end) == ZV && NILP (Fget_char_property (beg, Qfield, Qnil))) |
349 |
return beg; |
return beg; |
2598 |
defsubr (&Sminibuffer_depth); |
defsubr (&Sminibuffer_depth); |
2599 |
defsubr (&Sminibuffer_prompt); |
defsubr (&Sminibuffer_prompt); |
2600 |
|
|
2601 |
|
defsubr (&Sminibufferp); |
2602 |
defsubr (&Sminibuffer_prompt_end); |
defsubr (&Sminibuffer_prompt_end); |
2603 |
defsubr (&Sminibuffer_contents); |
defsubr (&Sminibuffer_contents); |
2604 |
defsubr (&Sminibuffer_contents_no_properties); |
defsubr (&Sminibuffer_contents_no_properties); |