Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
888f3d05
Commit
888f3d05
authored
Jul 16, 1994
by
Richard M. Stallman
Browse files
[!MULTI_FRAME] (Fframe_first_window): Defined.
(syms_of_frame): Defvar it.
parent
cee67da9
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
23 additions
and
0 deletions
+23
-0
src/frame.c
src/frame.c
+23
-0
No files found.
src/frame.c
View file @
888f3d05
...
...
@@ -1837,6 +1837,28 @@ DEFUN ("selected-frame", Fselected_frame, Sselected_frame, 0, 0, 0,
XFASTINT
(
tem
)
=
0
;
return
tem
;
}
DEFUN
(
"frame-first-window"
,
Fframe_first_window
,
Sframe_first_window
,
0
,
1
,
0
,
0
)
(
frame
)
Lisp_Object
frame
;
{
Lisp_Object
w
;
w
=
FRAME_ROOT_WINDOW
(
selected_frame
);
while
(
NILP
(
XWINDOW
(
w
)
->
buffer
))
{
if
(
!
NILP
(
XWINDOW
(
w
)
->
hchild
))
w
=
XWINDOW
(
w
)
->
hchild
;
else
if
(
!
NILP
(
XWINDOW
(
w
)
->
vchild
))
w
=
XWINDOW
(
w
)
->
vchild
;
else
abort
();
}
return
w
;
}
DEFUN
(
"framep"
,
Fframep
,
Sframep
,
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! */
...
...
@@ -2078,6 +2100,7 @@ syms_of_frame ()
XFASTINT
(
Vterminal_frame
)
=
0
;
defsubr
(
&
Sselected_frame
);
defsubr
(
&
Sframe_first_window
);
defsubr
(
&
Sframep
);
defsubr
(
&
Sframe_char_height
);
defsubr
(
&
Sframe_char_width
);
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment