[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master c717a5b 2/2: Fix compilation warnings in rfc2104
From: |
Lars Ingebrigtsen |
Subject: |
[Emacs-diffs] master c717a5b 2/2: Fix compilation warnings in rfc2104 |
Date: |
Wed, 12 Jun 2019 19:54:09 -0400 (EDT) |
branch: master
commit c717a5bf53a9f08f2123968b62800a8450589719
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>
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 9d4957d..5de8401 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)