[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 563bf2fae5 1/2: ; * lisp/org/ol.el (org-link--decode-compound): `
From: |
Mattias Engdegård |
Subject: |
master 563bf2fae5 1/2: ; * lisp/org/ol.el (org-link--decode-compound): `lsh` -> `ash` |
Date: |
Wed, 20 Jul 2022 07:53:16 -0400 (EDT) |
branch: master
commit 563bf2fae5ec238172f1f16c81e51b9aadd77017
Author: Mattias Engdegård <mattiase@acm.org>
Commit: Mattias Engdegård <mattiase@acm.org>
; * 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 1df59e2458..a9e613e0d4 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