[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/org b127d7257e 3/3: lisp/ol.el (org--re-list-looking-at
From: |
ELPA Syncer |
Subject: |
[elpa] externals/org b127d7257e 3/3: lisp/ol.el (org--re-list-looking-at): Fix Emacs <29 compatibility |
Date: |
Thu, 29 Feb 2024 09:58:45 -0500 (EST) |
branch: externals/org
commit b127d7257e1f6a3d234d309d6cee975eb6e86868
Author: Ihor Radchenko <yantar92@posteo.net>
Commit: Ihor Radchenko <yantar92@posteo.net>
lisp/ol.el (org--re-list-looking-at): Fix Emacs <29 compatibility
---
lisp/ol.el | 7 ++++++-
1 file changed, 6 insertions(+), 1 deletion(-)
diff --git a/lisp/ol.el b/lisp/ol.el
index 6e5efc6ecb..fa16b59200 100644
--- a/lisp/ol.el
+++ b/lisp/ol.el
@@ -2206,7 +2206,12 @@ BOUND, NOERROR, and COUNT are passed to
`re-search-forward'."
INHIBIT-MODIFY is passed to `looking-at'."
(catch :found
(while regexp-list
- (when (looking-at (pop regexp-list) inhibit-modify)
+ (when
+ (if inhibit-modify
+ (looking-at-p (pop regexp-list))
+ ;; FIXME: In Emacs <29, `looking-at' does not accept
+ ;; optional INHIBIT-MODIFY argument.
+ (looking-at (pop regexp-list)))
(throw :found t)))))
;;;###autoload