Commit 52ed2dad authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(Fframe_live_p): Alternative defn for not MULTI_FRAME.

(syms_of_frame): Call defsubr for it.
parent 0776cb1b
......@@ -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 ()
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment