Mercurial > emacs
changeset 59393:2c3be3dcc8e6
(Fformat_mode_line): First arg now required.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 06 Jan 2005 17:47:18 +0000 |
| parents | 51cb73bca88a |
| children | 18e7205127f0 |
| files | src/xdisp.c |
| diffstat | 1 files changed, 6 insertions(+), 17 deletions(-) [+] |
line wrap: on
line diff
--- a/src/xdisp.c Thu Jan 06 17:45:23 2005 +0000 +++ b/src/xdisp.c Thu Jan 06 17:47:18 2005 +0000 @@ -15969,14 +15969,13 @@ 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 @@ 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))