For symbols, use address as hash code.

* src/fns.c (sxhash): For symbols, use address as hash code.

2 files changed, 5 insertions, 4 deletions

diff --git a/src/ChangeLog b/src/ChangeLog
index 2d5de9be5d8..57c6aa31da5 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2014-09-16  Daniel Colascione  <dancol@dancol.org>
+
+        * fns.c (sxhash): For symbols, use address as hash code.
+
 2014-09-16  Dmitry Antipov  <dmantipov@yandex.ru>
 
         If USE_LOCAL_ALLOCATORS, allocate even more Lisp objects on stack.
diff --git a/src/fns.c b/src/fns.c
index afe293b6dd3..3461de5db08 100644
--- a/src/fns.c
+++ b/src/fns.c
@@ -4476,13 +4476,10 @@ sxhash (Lisp_Object obj, int depth)
       break;
 
     case Lisp_Misc:
+    case Lisp_Symbol:
       hash = XHASH (obj);
       break;
 
-    case Lisp_Symbol:
-      obj = SYMBOL_NAME (obj);
-      /* Fall through.  */
-
     case Lisp_String:
       hash = sxhash_string (SSDATA (obj), SBYTES (obj));
       break;