From: Mattias Engdegård <mattiase@acm.org>
Date: Sun, 28 Apr 2024 13:24:46 +0000 (+0200)
Subject: * src/comp.c (comp_hash_string): Count bytes, not chars.
X-Git-Tag: archive/raspbian/1%30.1+1-3+rpi1^2~2^2~20^2~1749
X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=1e931f1c3db1588ba402d0eab60f03cc036f814a;p=emacs.git

* src/comp.c (comp_hash_string): Count bytes, not chars.
---

diff --git a/src/comp.c b/src/comp.c
index 99f51e07048..3ac6896aee1 100644
--- a/src/comp.c
+++ b/src/comp.c
@@ -744,7 +744,7 @@ static Lisp_Object
 comp_hash_string (Lisp_Object string)
 {
   Lisp_Object digest = make_uninit_string (MD5_DIGEST_SIZE * 2);
-  md5_buffer (SSDATA (string), SCHARS (string), SSDATA (digest));
+  md5_buffer (SSDATA (string), SBYTES (string), SSDATA (digest));
   hexbuf_digest (SSDATA (digest), SDATA (digest), MD5_DIGEST_SIZE);
 
   return Fsubstring (digest, Qnil, make_fixnum (HASH_LENGTH));