lisp/org.el (org-mode): Fix thingatpt support for Emacs 27

This commit is contained in:
Ihor Radchenko 2024-05-26 17:53:57 +02:00
parent 66cb45658d
commit 6f152d8914
No known key found for this signature in database
GPG Key ID: 6470762A7DA11D8B
1 changed files with 4 additions and 3 deletions

View File

@ -5043,9 +5043,10 @@ The following commands are available:
(setq-local buffer-face-mode-face 'org-default)
;; `thing-at-point' support
(setq-local thing-at-point-provider-alist
(cons '(url . org--link-at-point)
thing-at-point-provider-alist))
(when (boundp 'thing-at-point-provider-alist)
(setq-local thing-at-point-provider-alist
(cons '(url . org--link-at-point)
thing-at-point-provider-alist)))
(when (boundp 'forward-thing-provider-alist)
(setq-local forward-thing-provider-alist
(cons '(url . org-next-link)