From c717a5bf53a9f08f2123968b62800a8450589719 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Thu, 13 Jun 2019 01:53:52 +0200 Subject: [PATCH] Fix compilation warnings in rfc2104 * lisp/net/rfc2104.el (rfc2104-hash): Remove superflous calls to string-make-unibyte and avoid two compilation warnings. --- lisp/net/rfc2104.el | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) 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) -- 2.39.5