# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 885418939 0
# Node ID ec08780e4c423e0066ceca509d25868da86ee95a
# Parent  6c8ba5a6147b45b284e4bad1e503de067fb01659
(set_buffer_if_live): New function.

diff -r 6c8ba5a6147b -r ec08780e4c42 src/buffer.c
--- a/src/buffer.c	Wed Jan 21 21:41:27 1998 +0000
+++ b/src/buffer.c	Wed Jan 21 21:42:19 1998 +0000
@@ -1571,6 +1571,17 @@
   set_buffer_internal (XBUFFER (buf));
   return buf;
 }
+
+/* Set the current buffer to BUFFER provided it is alive.  */
+
+Lisp_Object
+set_buffer_if_live (buffer)
+     Lisp_Object buffer;
+{
+  if (! NILP (XBUFFER (buffer)->name))
+    Fset_buffer (buffer);
+  return Qnil;
+}
 
 DEFUN ("barf-if-buffer-read-only", Fbarf_if_buffer_read_only,
 				   Sbarf_if_buffer_read_only, 0, 0, 0,