procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(Fformat_mode_line): First arg now required.

Browse source
This commit is contained in:
Richard M. Stallman 2005-01-06 17:47:18 +00:00
parent de968ddbdd
commit 8a6fd2a78d
1 changed files with 6 additions and 17 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
src/xdisp.c
View file

@ -15969,14 +15969,13 @@ store_mode_line_string (string, lisp_string, copy_string, field_width, precision
DEFUN ("format-mode-line", Fformat_mode_line, Sformat_mode_line,
0, 4, 0,
1, 4, 0,
doc: /* Return the mode-line of selected window as a string.
First optional arg FORMAT specifies the mode line format (see
`mode-line-format' for details) to use. If FORMAT is t, return
the buffer's header-line. Second optional arg WINDOW specifies a
different window to use as the context for the formatting.
If third optional arg NO-PROPS is non-nil, string is not propertized.
Fourth optional arg BUFFER specifies which buffer to use. */)
First arg FORMAT specifies the mode line format (see `mode-line-format' for
details) to use. Second optional arg WINDOW specifies a different window to
use as the context for the formatting. If third optional arg NO-PROPS is
non-nil, string is not propertized. Fourth optional arg BUFFER specifies
which buffer to use. */)
(format, window, no_props, buffer)
Lisp_Object format, window, no_props, buffer;
{
@ -16002,16 +16001,6 @@ Fourth optional arg BUFFER specifies which buffer to use. */)
set_buffer_internal_1 (XBUFFER (buffer));
}
if (NILP (format) || EQ (format, Qt))
{
face_id = (NILP (format)
? CURRENT_MODE_LINE_FACE_ID (w)
: HEADER_LINE_FACE_ID);
format = (NILP (format)
? current_buffer->mode_line_format
: current_buffer->header_line_format);
}
init_iterator (&it, w, -1, -1, NULL, face_id);
if (NILP (no_props))