mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-14 09:39:42 +00:00
Code Issues Releases Activity

Fix compilation warnings in rfc2104

Browse Source 
* lisp/net/rfc2104.el (rfc2104-hash): Remove superflous calls to
string-make-unibyte and avoid two compilation warnings.
This commit is contained in:
Lars Ingebrigtsen 2019-06-13 01:53:52 +02:00
parent 73ab8f4b8c
commit c717a5bf53
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/net/rfc2104.el
View File

@ -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)