From 563bf2fae5ec238172f1f16c81e51b9aadd77017 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Mattias=20Engdeg=C3=A5rd?= Date: Wed, 20 Jul 2022 11:17:51 +0200 Subject: [PATCH] ; * lisp/org/ol.el (org-link--decode-compound): `lsh` -> `ash` --- lisp/org/ol.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/org/ol.el b/lisp/org/ol.el index 1df59e2458f..a9e613e0d4e 100644 --- a/lisp/org/ol.el +++ b/lisp/org/ol.el @@ -646,7 +646,7 @@ followed by another \"%[A-F0-9]{2}\" group." (cons 6 128)))) (when (>= val 192) (setq eat (car shift-xor))) (setq val (logxor val (cdr shift-xor))) - (setq sum (+ (lsh sum (car shift-xor)) val)) + (setq sum (+ (ash sum (car shift-xor)) val)) (when (> eat 0) (setq eat (- eat 1))) (cond ((= 0 eat) ;multi byte -- 2.39.5