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
b2791413
Commit
b2791413
authored
Oct 04, 1994
by
Karl Heuer
Browse files
(Fstring_equal, Fstring_lessp): Delete now-redundant XSETTYPE.
parent
dfa21eaa
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
4 additions
and
4 deletions
+4
-4
src/fns.c
src/fns.c
+4
-4
No files found.
src/fns.c
View file @
b2791413
...
...
@@ -134,9 +134,9 @@ Symbols are also allowed; their print names are used instead.")
register
Lisp_Object
s1
,
s2
;
{
if
(
SYMBOLP
(
s1
))
XSETSTRING
(
s1
,
XSYMBOL
(
s1
)
->
name
)
,
XSETTYPE
(
s1
,
Lisp_String
)
;
XSETSTRING
(
s1
,
XSYMBOL
(
s1
)
->
name
);
if
(
SYMBOLP
(
s2
))
XSETSTRING
(
s2
,
XSYMBOL
(
s2
)
->
name
)
,
XSETTYPE
(
s2
,
Lisp_String
)
;
XSETSTRING
(
s2
,
XSYMBOL
(
s2
)
->
name
);
CHECK_STRING
(
s1
,
0
);
CHECK_STRING
(
s2
,
1
);
...
...
@@ -158,9 +158,9 @@ Symbols are also allowed; their print names are used instead.")
register
int
end
;
if
(
SYMBOLP
(
s1
))
XSETSTRING
(
s1
,
XSYMBOL
(
s1
)
->
name
)
,
XSETTYPE
(
s1
,
Lisp_String
)
;
XSETSTRING
(
s1
,
XSYMBOL
(
s1
)
->
name
);
if
(
SYMBOLP
(
s2
))
XSETSTRING
(
s2
,
XSYMBOL
(
s2
)
->
name
)
,
XSETTYPE
(
s2
,
Lisp_String
)
;
XSETSTRING
(
s2
,
XSYMBOL
(
s2
)
->
name
);
CHECK_STRING
(
s1
,
0
);
CHECK_STRING
(
s2
,
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