From: Mattias Engdegård <mattiase@acm.org>
Date: Wed, 20 Jul 2022 09:17:51 +0000 (+0200)
Subject: ; * lisp/org/ol.el (org-link--decode-compound): `lsh` -> `ash`
X-Git-Tag: emacs-29.0.90~1447^2~841
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=563bf2fae5ec238172f1f16c81e51b9aadd77017;p=emacs.git

; * lisp/org/ol.el (org-link--decode-compound): `lsh` -> `ash`
---

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