diff options
| author | Stefan Kangas <stefan@marxist.se> | 2022-08-09 03:24:55 +0200 |
|---|---|---|
| committer | Stefan Kangas <stefan@marxist.se> | 2022-08-09 13:20:00 +0200 |
| commit | 5c3c18816e1cc75f5f343423c0084c709bcd5080 (patch) | |
| tree | 04a15400aa02c6bd74b907ae96cc706bc1e3681d /lisp/hex-util.el | |
| parent | 7497aeff644f9d1ce542de12d8301fd13a85e90a (diff) | |
| download | emacs-5c3c18816e1cc75f5f343423c0084c709bcd5080.tar.gz emacs-5c3c18816e1cc75f5f343423c0084c709bcd5080.tar.bz2 emacs-5c3c18816e1cc75f5f343423c0084c709bcd5080.zip | |
; * lisp/hex-util.el: Mention ash instead of lsh.
Diffstat (limited to 'lisp/hex-util.el')
| -rw-r--r-- | lisp/hex-util.el | 8 |
1 files 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))) |