diff options
| author | Karl Heuer | 1994-10-04 13:35:44 +0000 |
|---|---|---|
| committer | Karl Heuer | 1994-10-04 13:35:44 +0000 |
| commit | b279141386ae0c76048ccc05fcbb95e8656683d0 (patch) | |
| tree | 973d04688cc0b47c31bafcdd4088986a8ae2ba9b /src | |
| parent | dfa21eaa9a54b1ea3352f2d1f40c9bbad93d6171 (diff) | |
| download | emacs-b279141386ae0c76048ccc05fcbb95e8656683d0.tar.gz emacs-b279141386ae0c76048ccc05fcbb95e8656683d0.zip | |
(Fstring_equal, Fstring_lessp): Delete now-redundant XSETTYPE.
Diffstat (limited to 'src')
| -rw-r--r-- | src/fns.c | 8 |
1 files changed, 4 insertions, 4 deletions
| @@ -134,9 +134,9 @@ Symbols are also allowed; their print names are used instead.") | |||
| 134 | register Lisp_Object s1, s2; | 134 | register Lisp_Object s1, s2; |
| 135 | { | 135 | { |
| 136 | if (SYMBOLP (s1)) | 136 | if (SYMBOLP (s1)) |
| 137 | XSETSTRING (s1, XSYMBOL (s1)->name), XSETTYPE (s1, Lisp_String); | 137 | XSETSTRING (s1, XSYMBOL (s1)->name); |
| 138 | if (SYMBOLP (s2)) | 138 | if (SYMBOLP (s2)) |
| 139 | XSETSTRING (s2, XSYMBOL (s2)->name), XSETTYPE (s2, Lisp_String); | 139 | XSETSTRING (s2, XSYMBOL (s2)->name); |
| 140 | CHECK_STRING (s1, 0); | 140 | CHECK_STRING (s1, 0); |
| 141 | CHECK_STRING (s2, 1); | 141 | CHECK_STRING (s2, 1); |
| 142 | 142 | ||
| @@ -158,9 +158,9 @@ Symbols are also allowed; their print names are used instead.") | |||
| 158 | register int end; | 158 | register int end; |
| 159 | 159 | ||
| 160 | if (SYMBOLP (s1)) | 160 | if (SYMBOLP (s1)) |
| 161 | XSETSTRING (s1, XSYMBOL (s1)->name), XSETTYPE (s1, Lisp_String); | 161 | XSETSTRING (s1, XSYMBOL (s1)->name); |
| 162 | if (SYMBOLP (s2)) | 162 | if (SYMBOLP (s2)) |
| 163 | XSETSTRING (s2, XSYMBOL (s2)->name), XSETTYPE (s2, Lisp_String); | 163 | XSETSTRING (s2, XSYMBOL (s2)->name); |
| 164 | CHECK_STRING (s1, 0); | 164 | CHECK_STRING (s1, 0); |
| 165 | CHECK_STRING (s2, 1); | 165 | CHECK_STRING (s2, 1); |
| 166 | 166 | ||