/[emacs]/emacs/src/minibuf.c
ViewVC logotype

Diff of /emacs/src/minibuf.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.248 by raeburn, Tue Jul 16 19:48:51 2002 UTC revision 1.249 by rms, Tue Aug 13 22:52:05 2002 UTC
# Line 318  read_minibuf_noninteractive (map, initia Line 318  read_minibuf_noninteractive (map, initia
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.
# Line 325  Return (point-min) if current buffer is Line 336  Return (point-min) if current buffer is
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;
# Line 2581  properties.  */); Line 2598  properties.  */);
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);

Legend:
Removed from v.1.248  
changed lines
  Added in v.1.249

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26