Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
ba32f2db
Commit
ba32f2db
authored
Mar 25, 1994
by
Karl Heuer
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
(Fframe_first_window): New function.
parent
121e4555
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
27 additions
and
0 deletions
+27
-0
src/frame.c
src/frame.c
+27
-0
No files found.
src/frame.c
View file @
ba32f2db
...
...
@@ -464,6 +464,33 @@ DEFUN ("window-frame", Fwindow_frame, Swindow_frame, 1, 1, 0,
return
XWINDOW
(
window
)
->
frame
;
}
DEFUN
(
"frame-first-window"
,
Fframe_first_window
,
Sframe_first_window
,
0
,
1
,
0
,
"Returns the topmost, leftmost window of FRAME.
\n
\
If omitted, FRAME defaults to the currently selected frame."
)
(
frame
)
Lisp_Object
frame
;
{
Lisp_Object
w
;
if
(
NILP
(
frame
))
w
=
selected_frame
->
root_window
;
else
{
CHECK_LIVE_FRAME
(
frame
,
0
);
w
=
XFRAME
(
frame
)
->
root_window
;
}
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
(
"frame-root-window"
,
Fframe_root_window
,
Sframe_root_window
,
0
,
1
,
0
,
"Returns the root-window of FRAME.
\n
\
If omitted, FRAME defaults to the currently selected frame."
)
...
...
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