Mercurial > emacs
changeset 1281:1f6cfa3ea4cb
* buffer.c (Fother_buffer): Add back the VISIBLE_OK argument. It
got removed with no comment or ChangeLog entry, and
append-to-buffer uses it.
| author | Jim Blandy <jimb@redhat.com> |
|---|---|
| date | Wed, 30 Sep 1992 18:16:11 +0000 |
| parents | 5c66007ecabb |
| children | d6f0073d7e31 |
| files | src/buffer.c |
| diffstat | 1 files changed, 9 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/src/buffer.c Wed Sep 30 14:28:46 1992 +0000 +++ b/src/buffer.c Wed Sep 30 18:16:11 1992 +0000 @@ -535,13 +535,14 @@ return name; } -DEFUN ("other-buffer", Fother_buffer, Sother_buffer, 0, 1, 0, +DEFUN ("other-buffer", Fother_buffer, Sother_buffer, 0, 2, 0, "Return most recently selected buffer other than BUFFER.\n\ -Buffers not visible in windows are preferred to visible buffers.\n\ +Buffers not visible in windows are preferred to visible buffers,\n\ +unless optional second argument VISIBLE-OK is non-nil.\n\ If no other buffer exists, the buffer `*scratch*' is returned.\n\ If BUFFER is omitted or nil, some interesting buffer is returned.") - (buffer) - register Lisp_Object buffer; + (buffer, visible_ok) + register Lisp_Object buffer, visible_ok; { register Lisp_Object tail, buf, notsogood, tem; notsogood = Qnil; @@ -553,7 +554,10 @@ continue; if (XSTRING (XBUFFER (buf)->name)->data[0] == ' ') continue; - tem = Fget_buffer_window (buf, Qnil); + if (NILP (visible_ok)) + tem = Fget_buffer_window (buf, Qnil); + else + tem = Qnil; if (NILP (tem)) return buf; if (NILP (notsogood))