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
7fc9de26
Commit
7fc9de26
authored
Feb 14, 1994
by
Karl Heuer
Browse files
(check_x): Make it global.
(x-parse-geometry, x-list-fonts): call check_x.
parent
703e0710
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
3 additions
and
1 deletion
+3
-1
src/xfns.c
src/xfns.c
+3
-1
No files found.
src/xfns.c
View file @
7fc9de26
...
...
@@ -234,7 +234,7 @@ extern Lisp_Object Vwindow_system_version;
/* Error if we are not connected to X. */
static
void
void
check_x
()
{
if
(
x_current_display
==
0
)
...
...
@@ -1487,6 +1487,7 @@ Returns an alist of the form ((top . TOP), (left . LEFT) ... ).")
unsigned
int
width
,
height
;
Lisp_Object
values
[
4
];
check_x
();
CHECK_STRING
(
string
,
0
);
geometry
=
XParseGeometry
((
char
*
)
XSTRING
(
string
)
->
data
,
...
...
@@ -2525,6 +2526,7 @@ fonts), even if they match PATTERN and FACE.")
XFontStruct
*
size_ref
;
Lisp_Object
list
;
check_x
();
CHECK_STRING
(
pattern
,
0
);
if
(
!
NILP
(
face
))
CHECK_SYMBOL
(
face
,
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