From 52ed2dada021c978056b460e1c9c6998217b839e Mon Sep 17 00:00:00 2001
From: "Richard M. Stallman" <rms@gnu.org>
Date: Mon, 2 May 1994 07:50:41 +0000
Subject: [PATCH] (Fframe_live_p): Alternative defn for not MULTI_FRAME.
 (syms_of_frame): Call defsubr for it.

---
 src/frame.c | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/src/frame.c b/src/frame.c
index 0d692c3d18a..e1e4e647f4e 100644
--- a/src/frame.c
+++ b/src/frame.c
@@ -2000,6 +2000,16 @@ DEFUN ("modify-frame-parameters", Fmodify_frame_parameters,
   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 @@ syms_of_frame ()
   defsubr (&Smouse_position);
   defsubr (&Sframe_parameters);
   defsubr (&Smodify_frame_parameters);
+  defsubr (&Sframe_live_p);
 }
 
 keys_of_frame ()
-- 
2.39.5