master 5c3c18816e 1/3: ; * lisp/hex-util.el: Mention ash instead of lsh.

[Stefan Kangas]

branch: master
commit 5c3c18816e1cc75f5f343423c0084c709bcd5080
Author: Stefan Kangas <stefan@marxist.se>
Commit: Stefan Kangas <stefan@marxist.se>

    ; * 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 0858e46ec5..101c8be7b4 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)))