diff options
| -rw-r--r-- | src/frame.c | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/src/frame.c b/src/frame.c index 93d62cfb83b..00cb7cdf06f 100644 --- a/src/frame.c +++ b/src/frame.c @@ -1556,6 +1556,16 @@ DEFUN ("selected-frame", Fselected_frame, Sselected_frame, 0, 0, 0, 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 @@ but that the idea of the actual width of the screen should not be changed.") syms_of_frame () { defsubr (&Sselected_frame); + defsubr (&Sframep); defsubr (&Sframe_char_height); defsubr (&Sframe_char_width); defsubr (&Sframe_pixel_height); |