Mercurial > emacs

changeset 9289:e5a850de0ba8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Fstring_equal, Fstring_lessp): Delete now-redundant XSETTYPE.
author Karl Heuer <kwzh@gnu.org>
date Tue, 04 Oct 1994 13:35:44 +0000
parents 9f9984bed1b3
children 27aad4f82051
files src/fns.c
diffstat 1 files changed, 4 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/src/fns.c	Tue Oct 04 13:14:12 1994 +0000
+++ b/src/fns.c	Tue Oct 04 13:35:44 1994 +0000
@@ -134,9 +134,9 @@
      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 @@
   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);