diff options
author | Mattias EngdegÄrd <mattiase@acm.org> | 2024-04-28 15:24:46 +0200 |
---|---|---|
committer | Mattias EngdegÄrd <mattiase@acm.org> | 2024-04-28 16:48:44 +0200 |
commit | 1e931f1c3db1588ba402d0eab60f03cc036f814a (patch) | |
tree | 80a400687cec09de9738cde6164aa64cf65a8c7f /src | |
parent | 7341e600b7bc554df44784b6aa135bed8fcb61f1 (diff) |
* src/comp.c (comp_hash_string): Count bytes, not chars.
Diffstat (limited to 'src')
-rw-r--r-- | src/comp.c | 2 |
1 files changed, 1 insertions, 1 deletions
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)); |