tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

lisp/ol.el (org--re-list-looking-at): Fix Emacs <29 compatibility

This commit is contained in:
Ihor Radchenko 2024-02-29 16:00:06 +03:00
parent c88da815ed
commit b127d7257e
No known key found for this signature in database
GPG Key ID: 6470762A7DA11D8B
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/ol.el
View File

@ -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