From 8a6fd2a78da54b117d9965bce0efc209f7c589d6 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 6 Jan 2005 17:47:18 +0000 Subject: [PATCH] (Fformat_mode_line): First arg now required. --- src/xdisp.c | 23 ++++++----------------- 1 file changed, 6 insertions(+), 17 deletions(-) diff --git a/src/xdisp.c b/src/xdisp.c index 02d95854078..a7802d5321b 100644 --- a/src/xdisp.c +++ b/src/xdisp.c @@ -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)) -- 2.39.5