X-Git-Url: http://cgit.sxemacs.org/?a=blobdiff_plain;f=lisp%2Fhex-util.el;h=6936bf3604297023a79f01de08018b65de82d942;hb=2ce8d66354a55ca69721c6833e2b50352aa4b49a;hp=ddf154d17a205cbd8df2864b91c05faa60ea800f;hpb=bf8fa218cb69bc983160459265344c8b2d825b22;p=gnus diff --git a/lisp/hex-util.el b/lisp/hex-util.el index ddf154d17..6936bf360 100644 --- a/lisp/hex-util.el +++ b/lisp/hex-util.el @@ -49,7 +49,7 @@ (aset dst idx (+ (* (hex-char-to-num (aref string pos)) 16) (hex-char-to-num (aref string (1+ pos))))) (setq idx (1+ idx) - pos (+ 2 pos))) + pos (+ 2 pos))) dst)) (defun encode-hex-string (string) @@ -65,7 +65,7 @@ ;;; (aset dst idx (num-to-hex-char (logand (aref string pos) 15))) (aset dst idx (num-to-hex-char (% (aref string pos) 16))) (setq idx (1+ idx) - pos (1+ pos))) + pos (1+ pos))) dst)) (provide 'hex-util)