# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 767865041 0
# Node ID 6a33d4f04dbfe08b9afb7ed50678d07e0a57bcb0
# Parent  0f79f4bd3c629d140b8a239a5e25e1687a2a01b2
(Fframe_live_p): Alternative defn for not MULTI_FRAME.
(syms_of_frame): Call defsubr for it.

diff -r 0f79f4bd3c62 -r 6a33d4f04dbf src/frame.c
--- a/src/frame.c	Mon May 02 07:49:57 1994 +0000
+++ b/src/frame.c	Mon May 02 07:50:41 1994 +0000
@@ -2000,6 +2000,16 @@
   return Qnil;
 }
 
+DEFUN ("frame-live-p", Fframe_live_p, Sframe_live_p, 1, 1, 0,
+  /* Don't confuse make-docfile by having two doc strings for this function.
+     make-docfile does not pay attention to #if, for good reason!  */
+  0)
+  (frame)
+     Lisp_Object frame;
+{
+  return Qt;
+}
+
 syms_of_frame ()
 {
   Qheight = intern ("height");
@@ -2039,6 +2049,7 @@
   defsubr (&Smouse_position);
   defsubr (&Sframe_parameters);
   defsubr (&Smodify_frame_parameters);
+  defsubr (&Sframe_live_p);
 }
 
 keys_of_frame ()