# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 823650486 0
# Node ID bddd8114eaa9f5f49d979b51add617e7f24783e2
# Parent  fd6e27938b72ffad1f30ceacfe70326738b1c362
(Fbuffer_live_p): New function.
(syms_of_buffer): defsubr it.

diff -r fd6e27938b72 -r bddd8114eaa9 src/buffer.c
--- a/src/buffer.c	Tue Feb 06 21:35:20 1996 +0000
+++ b/src/buffer.c	Tue Feb 06 23:48:06 1996 +0000
@@ -163,6 +163,16 @@
   error ("Invalid buffer argument");
 }
 
+DEFUN ("buffer-live-p", Fbuffer_live_p, Sbuffer_live_p, 1, 1, 0,
+  "Return non-nil if OBJECT is a buffer which has not been killed.\n\
+Value is nil if OBJECT is not a buffer or if it has been killed.")
+  (object)
+     Lisp_Object object;
+{
+  return ((BUFFERP (object) && ! NILP (XBUFFER (object)->name))
+	  ? Qt : Qnil);
+}
+
 DEFUN ("buffer-list", Fbuffer_list, Sbuffer_list, 0, 0, 0,
   "Return a list of all existing live buffers.")
   ()
@@ -3946,6 +3956,7 @@
     "List of functions called with no args to query before killing a buffer.");
   Vkill_buffer_query_functions = Qnil;
 
+  defsubr (&Sbuffer_live_p);
   defsubr (&Sbuffer_list);
   defsubr (&Sget_buffer);
   defsubr (&Sget_file_buffer);