Mercurial > emacs
changeset 7271:6a33d4f04dbf
(Fframe_live_p): Alternative defn for not MULTI_FRAME.
(syms_of_frame): Call defsubr for it.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 02 May 1994 07:50:41 +0000 |
| parents | 0f79f4bd3c62 |
| children | b5f74966c9da |
| files | src/frame.c |
| diffstat | 1 files changed, 11 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- 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 ()