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
98381190
Commit
98381190
authored
Mar 25, 1994
by
Karl Heuer
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
(x_set_frame_parameters, x_get_arg, x_window, Fx_create_frame,
Fx_create_frame): Use assignment, not initialization.
parent
0b67772d
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
12 additions
and
7 deletions
+12
-7
src/xfns.c
src/xfns.c
+12
-7
No files found.
src/xfns.c
View file @
98381190
...
...
@@ -460,9 +460,10 @@ x_set_frame_parameters (f, alist)
left
=
val
;
else
{
register
Lisp_Object
param_index
=
Fget
(
prop
,
Qx_frame_parameter
);
register
Lisp_Object
old_value
=
get_frame_param
(
f
,
prop
);
register
Lisp_Object
param_index
,
old_value
;
param_index
=
Fget
(
prop
,
Qx_frame_parameter
);
old_value
=
get_frame_param
(
f
,
prop
);
store_frame_param
(
f
,
prop
,
val
);
if
(
XTYPE
(
param_index
)
==
Lisp_Int
&&
XINT
(
param_index
)
>=
0
...
...
@@ -1432,7 +1433,8 @@ x_get_arg (alist, param, attribute, class, type)
/* As a special case, we map the values `true' and `on'
to Qt, and `false' and `off' to Qnil. */
{
Lisp_Object
lower
=
Fdowncase
(
tem
);
Lisp_Object
lower
;
lower
=
Fdowncase
(
tem
);
if
(
!
strcmp
(
XSTRING
(
tem
)
->
data
,
"on"
)
||
!
strcmp
(
XSTRING
(
tem
)
->
data
,
"true"
))
return
Qt
;
...
...
@@ -1833,11 +1835,12 @@ x_window (f)
place where that assumption isn't correct; f->name is set, but
the X server hasn't been told. */
{
Lisp_Object
name
=
f
->
name
;
Lisp_Object
name
;
int
explicit
=
f
->
explicit_name
;
f
->
name
=
Qnil
;
f
->
explicit_name
=
0
;
name
=
f
->
name
;
f
->
name
=
Qnil
;
x_set_name
(
f
,
name
,
explicit
);
}
...
...
@@ -2144,8 +2147,9 @@ be shared by the new frame.")
/* Make the window appear on the frame and enable display,
unless the caller says not to. */
{
Lisp_Object
visibility
=
x_get_arg
(
parms
,
Qvisibility
,
0
,
0
,
symbol
)
;
Lisp_Object
visibility
;
visibility
=
x_get_arg
(
parms
,
Qvisibility
,
0
,
0
,
symbol
);
if
(
EQ
(
visibility
,
Qunbound
))
visibility
=
Qt
;
...
...
@@ -2384,8 +2388,9 @@ be shared by the new frame.")
/* Make the window appear on the frame and enable display. */
{
Lisp_Object
visibility
=
x_get_arg
(
parms
,
Qvisibility
,
0
,
0
,
symbol
)
;
Lisp_Object
visibility
;
visibility
=
x_get_arg
(
parms
,
Qvisibility
,
0
,
0
,
symbol
);
if
(
EQ
(
visibility
,
Qunbound
))
visibility
=
Qt
;
...
...
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