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))