# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 739219332 0
# Node ID ff3960b885c9fbee0243c8f65b2b4ecdad87ae29
# Parent  56424e6245c2d74162e522976300fa73a870d4f4
[!MULTI_FRAME] (Fframep): New dummy definition.
(syms_of_frame): Defsubr that.

diff -r 56424e6245c2 -r ff3960b885c9 src/frame.c
--- a/src/frame.c	Fri Jun 04 18:08:07 1993 +0000
+++ b/src/frame.c	Fri Jun 04 18:42:12 1993 +0000
@@ -1556,6 +1556,16 @@
   XFASTINT (tem) = 0;
   return tem;
 }
+DEFUN ("framep", Fframep, Sframep, 1, 1, 0,
+  "Return non-nil if OBJECT is a frame.\n\
+Value is t for a termcap frame (a character-only terminal),\n\
+`x' for an Emacs frame that is really an X window.\n\
+Also see `live-frame-p'.")
+  (object)
+     Lisp_Object object;
+{
+  return Qnil;
+}
 
 DEFUN ("set-frame-height", Fset_frame_height, Sset_frame_height, 2, 3, 0,
   "Specify that the frame FRAME has LINES lines.\n\
@@ -1692,6 +1702,7 @@
 syms_of_frame ()
 {
   defsubr (&Sselected_frame);
+  defsubr (&Sframep);
   defsubr (&Sframe_char_height);
   defsubr (&Sframe_char_width);
   defsubr (&Sframe_pixel_height);