From: Daniel Colascione <dancol@dancol.org>
Date: Tue, 16 Sep 2014 13:07:57 +0000 (-0700)
Subject: For symbols, use address as hash code.
X-Git-Tag: emacs-25.0.90~2635^2~679^2~281
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=89b34071dd6663bc5b302f4a4088433ea23d061e;p=emacs.git

For symbols, use address as hash code.

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

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;