From 5c3c18816e1cc75f5f343423c0084c709bcd5080 Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Tue, 9 Aug 2022 03:24:55 +0200 Subject: [PATCH] ; * lisp/hex-util.el: Mention ash instead of lsh. --- lisp/hex-util.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lisp/hex-util.el b/lisp/hex-util.el index 0858e46ec54..101c8be7b48 100644 --- a/lisp/hex-util.el +++ b/lisp/hex-util.el @@ -41,8 +41,8 @@ (dst (make-string (/ len 2) 0)) (idx 0)(pos 0)) (while (< pos len) - ;; logior and lsh are not byte-coded. - ;; (aset dst idx (logior (lsh (hex-char-to-num (aref string pos)) 4) + ;; logior and ash are not byte-coded. + ;; (aset dst idx (logior (ash (hex-char-to-num (aref string pos)) 4) ;; (hex-char-to-num (aref string (1+ pos))))) (aset dst idx (+ (* (hex-char-to-num (aref string pos)) 16) (hex-char-to-num (aref string (1+ pos))))) @@ -56,8 +56,8 @@ (dst (make-string (* len 2) 0)) (idx 0)(pos 0)) (while (< pos len) - ;; logand and lsh are not byte-coded. - ;; (aset dst idx (num-to-hex-char (logand (lsh (aref string pos) -4) 15))) + ;; logand and ash are not byte-coded. + ;; (aset dst idx (num-to-hex-char (logand (ash (aref string pos) -4) 15))) (aset dst idx (num-to-hex-char (/ (aref string pos) 16))) (setq idx (1+ idx)) ;; (aset dst idx (num-to-hex-char (logand (aref string pos) 15))) -- 2.39.2