Mercurial > emacs
changeset 57028:1e3f2e826c24
(Fformat_mode_line): New arg BUFFER says which buffer to use.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 09 Sep 2004 01:30:27 +0000 |
| parents | 35ae3e1a2ffe |
| children | eacc7685bff6 |
| files | src/xdisp.c |
| diffstat | 1 files changed, 13 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- a/src/xdisp.c Wed Sep 08 22:21:31 2004 +0000 +++ b/src/xdisp.c Thu Sep 09 01:30:27 2004 +0000 @@ -15794,15 +15794,16 @@ DEFUN ("format-mode-line", Fformat_mode_line, Sformat_mode_line, - 0, 3, 0, + 0, 4, 0, doc: /* Return the mode-line of selected window as a string. First optional arg FORMAT specifies a different format string (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. */) - (format, window, no_props) - Lisp_Object format, window, no_props; +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; { struct it it; int len; @@ -15814,12 +15815,16 @@ window = selected_window; CHECK_WINDOW (window); w = XWINDOW (window); - CHECK_BUFFER (w->buffer); - - if (XBUFFER (w->buffer) != current_buffer) + + if (NILP (buffer)) + buffer = w->buffer; + + CHECK_BUFFER (buffer); + + if (XBUFFER (buffer) != current_buffer) { old_buffer = current_buffer; - set_buffer_internal_1 (XBUFFER (w->buffer)); + set_buffer_internal_1 (XBUFFER (buffer)); } if (NILP (format) || EQ (format, Qt))