# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 1099760487 0
# Node ID 75429b9aa2f2ca2aa8220ba231034d7cb0d98f74
# Parent  db8c9a3a77cd5d301afde1a1bfcdb2470b4af44e
(sxhash): As far as possible, merge calculation of
hash code for symbols and strings.

diff -r db8c9a3a77cd -r 75429b9aa2f2 src/fns.c
--- a/src/fns.c	Sat Nov 06 17:00:37 2004 +0000
+++ b/src/fns.c	Sat Nov 06 17:01:27 2004 +0000
@@ -5007,15 +5007,14 @@
       hash = XUINT (obj);
       break;
 
-    case Lisp_Symbol:
-      hash = sxhash_string (SDATA (SYMBOL_NAME (obj)),
-			    SCHARS (SYMBOL_NAME (obj)));
-      break;
-
     case Lisp_Misc:
       hash = XUINT (obj);
       break;
 
+    case Lisp_Symbol:
+      obj = SYMBOL_NAME (obj);
+      /* Fall through.  */
+
     case Lisp_String:
       hash = sxhash_string (SDATA (obj), SCHARS (obj));
       break;