From 54ca60ed0808072b8f9634e0751a5703d15cc3bd Mon Sep 17 00:00:00 2001
From: "Kim F. Storm" <storm@cua.dk>
Date: Fri, 24 Mar 2006 13:26:36 +0000
Subject: (sxhash_list): Include last non-nil CDR in hash.

---
 src/fns.c | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'src/fns.c')

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;
 }
 
-- 
cgit v1.2.1