From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Wed, 12 Jun 2019 23:53:52 +0000 (+0200)
Subject: Fix compilation warnings in rfc2104
X-Git-Tag: emacs-27.0.90~2585
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c717a5bf53a9f08f2123968b62800a8450589719;p=emacs.git

Fix compilation warnings in rfc2104

* lisp/net/rfc2104.el (rfc2104-hash): Remove superflous calls to
string-make-unibyte and avoid two compilation warnings.
---

diff --git a/lisp/net/rfc2104.el b/lisp/net/rfc2104.el
index 9d4957ddb5d..5de8401d5b6 100644
--- a/lisp/net/rfc2104.el
+++ b/lisp/net/rfc2104.el
@@ -99,8 +99,7 @@
       (aset ipad i (logxor rfc2104-ipad c))
       (aset opad i (logxor rfc2104-opad c)))
     ;; Perform inner hash.
-    (setq partial (string-make-unibyte
-		   (funcall hash (concat ipad text))))
+    (setq partial (funcall hash (concat ipad text)))
     ;; Pack latter part of opad.
     (cl-do ((r 0 (+ 2 r))
             (w block-length (1+ w)))
@@ -109,7 +108,7 @@
             (+ (* 16 (aref rfc2104-nybbles (aref partial     r)))
                (      aref rfc2104-nybbles (aref partial (1+ r))))))
     ;; Perform outer hash.
-    (string-make-unibyte (funcall hash opad))))
+    (funcall hash opad)))
 
 (provide 'rfc2104)