# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1105033638 0
# Node ID 2c3be3dcc8e6b82ce0d2361c3cd0ba5c74bec7bc
# Parent  51cb73bca88acd9dbc4e7102e6341e9d7ada300b
(Fformat_mode_line): First arg now required.

diff -r 51cb73bca88a -r 2c3be3dcc8e6 src/xdisp.c
--- 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))