[elpa] externals/org 1adbaca75a 26/50: Backport commit 563bf2fae from Emacs

[ELPA Syncer]

branch: externals/org
commit 1adbaca75a8cd3d0fbfb31ba184abe2dad2cf03b
Author: Mattias Engdegård <mattiase@acm.org>
Commit: Kyle Meyer <kyle@kyleam.com>

    Backport commit 563bf2fae from Emacs
    
    ; * lisp/org/ol.el (org-link--decode-compound): `lsh` -> `ash`
    563bf2fae5ec238172f1f16c81e51b9aadd77017
    Mattias Engdegård
    Wed Jul 20 13:51:55 2022 +0200
---
 lisp/ol.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/ol.el b/lisp/ol.el
index 1df59e2458..a9e613e0d4 100644
--- a/lisp/ol.el
+++ b/lisp/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