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
bcb2db92
Commit
bcb2db92
authored
May 22, 1993
by
Richard M. Stallman
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
(x_window_to_frame): Use XGCTYPE.
parent
1ce4cf38
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
5 additions
and
2 deletions
+5
-2
src/xfns.c
src/xfns.c
+5
-2
No files found.
src/xfns.c
View file @
bcb2db92
...
...
@@ -198,6 +198,8 @@ struct face *x_face_table[MAX_FACES_AND_GLYPHS];
/* Return the Emacs frame-object corresponding to an X window.
It could be the frame's main window or an icon window. */
/* This function can be called during GC, so use XGCTYPE. */
struct
frame
*
x_window_to_frame
(
wdesc
)
int
wdesc
;
...
...
@@ -205,10 +207,11 @@ x_window_to_frame (wdesc)
Lisp_Object
tail
,
frame
;
struct
frame
*
f
;
for
(
tail
=
Vframe_list
;
CONSP
(
tail
);
tail
=
XCONS
(
tail
)
->
cdr
)
for
(
tail
=
Vframe_list
;
XGCTYPE
(
tail
)
==
Lisp_Cons
;
tail
=
XCONS
(
tail
)
->
cdr
)
{
frame
=
XCONS
(
tail
)
->
car
;
if
(
XTYPE
(
frame
)
!=
Lisp_Frame
)
if
(
X
GC
TYPE
(
frame
)
!=
Lisp_Frame
)
continue
;
f
=
XFRAME
(
frame
);
if
(
FRAME_X_WINDOW
(
f
)
==
wdesc
...
...
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