# HG changeset patch
# User Jim Blandy <jimb@redhat.com>
# Date 717876971 0
# Node ID 1f6cfa3ea4cb3a21f50dbc071c796a397a7628f4
# Parent  5c66007ecabb35010c825182a5730c16533c6508
	* 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.

diff -r 5c66007ecabb -r 1f6cfa3ea4cb src/buffer.c
--- 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))