diff options
| author | Karl Heuer <kwzh@gnu.org> | 1994-10-04 13:35:44 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1994-10-04 13:35:44 +0000 |
| commit | 98fb42a7679ce925c9dd75c8bb35c3a32950073f (patch) | |
| tree | b70acc97cb575900987976ed9459bba123126dcb /src/fns.c | |
| parent | 3adeb8fb32e68ed1881e19bb3601cfee226865d6 (diff) | |
| download | emacs-98fb42a7679ce925c9dd75c8bb35c3a32950073f.tar.gz | |
(Fstring_equal, Fstring_lessp): Delete now-redundant XSETTYPE.
Diffstat (limited to 'src/fns.c')
| -rw-r--r-- | src/fns.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/fns.c b/src/fns.c index 8eede17b37c..60ab95f5cfe 100644 --- a/src/fns.c +++ b/src/fns.c @@ -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); |