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
34ca5317
Commit
34ca5317
authored
Nov 15, 1994
by
Karl Heuer
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
(x_window_to_frame, x_any_window_to_frame, x_top_window_to_frame): Use the new
type-test macros.
parent
c1a2bfad
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
7 additions
and
10 deletions
+7
-10
src/xfns.c
src/xfns.c
+7
-10
No files found.
src/xfns.c
View file @
34ca5317
...
...
@@ -260,7 +260,7 @@ check_x_display_info (frame)
/* 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
X
GC
TYPE
. */
/* This function can be called during GC, so use GC
_xxx type test macros
. */
struct
frame
*
x_window_to_frame
(
wdesc
)
...
...
@@ -269,11 +269,10 @@ x_window_to_frame (wdesc)
Lisp_Object
tail
,
frame
;
struct
frame
*
f
;
for
(
tail
=
Vframe_list
;
XGCTYPE
(
tail
)
==
Lisp_Cons
;
tail
=
XCONS
(
tail
)
->
cdr
)
for
(
tail
=
Vframe_list
;
GC_CONSP
(
tail
);
tail
=
XCONS
(
tail
)
->
cdr
)
{
frame
=
XCONS
(
tail
)
->
car
;
if
(
X
GC
TYPE
(
frame
)
!=
Lisp_Frame
)
if
(
!
GC
_FRAMEP
(
frame
))
continue
;
f
=
XFRAME
(
frame
);
#ifdef USE_X_TOOLKIT
...
...
@@ -304,11 +303,10 @@ x_any_window_to_frame (wdesc)
struct
frame
*
f
;
struct
x_display
*
x
;
for
(
tail
=
Vframe_list
;
XGCTYPE
(
tail
)
==
Lisp_Cons
;
tail
=
XCONS
(
tail
)
->
cdr
)
for
(
tail
=
Vframe_list
;
GC_CONSP
(
tail
);
tail
=
XCONS
(
tail
)
->
cdr
)
{
frame
=
XCONS
(
tail
)
->
car
;
if
(
X
GC
TYPE
(
frame
)
!=
Lisp_Frame
)
if
(
!
GC
_FRAMEP
(
frame
))
continue
;
f
=
XFRAME
(
frame
);
if
(
f
->
display
.
nothing
==
1
)
...
...
@@ -337,11 +335,10 @@ x_top_window_to_frame (wdesc)
struct
frame
*
f
;
struct
x_display
*
x
;
for
(
tail
=
Vframe_list
;
XGCTYPE
(
tail
)
==
Lisp_Cons
;
tail
=
XCONS
(
tail
)
->
cdr
)
for
(
tail
=
Vframe_list
;
GC_CONSP
(
tail
);
tail
=
XCONS
(
tail
)
->
cdr
)
{
frame
=
XCONS
(
tail
)
->
car
;
if
(
X
GC
TYPE
(
frame
)
!=
Lisp_Frame
)
if
(
!
GC
_FRAMEP
(
frame
))
continue
;
f
=
XFRAME
(
frame
);
if
(
f
->
display
.
nothing
==
1
)
...
...
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