From: Kim F. Storm <storm@cua.dk>
Date: Fri, 24 Mar 2006 13:26:36 +0000 (+0000)
Subject: (sxhash_list): Include last non-nil CDR in hash.
X-Git-Tag: emacs-pretest-22.0.90~3447
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ea284f335c8d62274cee742b53a62c120ce50a6a;p=emacs.git

(sxhash_list): Include last non-nil CDR in hash.
---

diff --git a/src/fns.c b/src/fns.c
index bb78b9a407c..404a587b1cf 100644
--- a/src/fns.c
+++ b/src/fns.c
@@ -5114,6 +5114,12 @@ sxhash_list (list, depth)
 	hash = SXHASH_COMBINE (hash, hash2);
       }
 
+  if (!NILP (list))
+    {
+      unsigned hash2 = sxhash (list, depth + 1);
+      hash = SXHASH_COMBINE (hash, hash2);
+    }
+
   return hash;
 }