mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-02 08:22:22 +00:00
Code Issues Releases Activity

(sxhash): As far as possible, merge calculation of

Browse Source 
hash code for symbols and strings.
This commit is contained in:
Eli Zaretskii 2004-11-06 17:01:27 +00:00
parent 4211ee7d6c
commit 32bfb2d565
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/fns.c
View File

@ -5007,15 +5007,14 @@ sxhash (obj, depth)
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;