[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/org ac1c72376c 1/2: org-open-at-point-global: Match mul
|
From: |
ELPA Syncer |
|
Subject: |
[elpa] externals/org ac1c72376c 1/2: org-open-at-point-global: Match multiline links |
|
Date: |
Sun, 21 Jan 2024 09:58:29 -0500 (EST) |
branch: externals/org
commit ac1c72376c9bc13a02c80b13057dddbd15b5318c
Author: Ihor Radchenko <yantar92@posteo.net>
Commit: Ihor Radchenko <yantar92@posteo.net>
org-open-at-point-global: Match multiline links
* lisp/org.el (org-open-at-point-global): Match multiline links
spanning up to a paragraph.
Reported-by: Omar AntolĂn Camarena <omar@matem.unam.mx>
Link: https://orgmode.org/list/87o7df7psx.fsf@localhost
---
lisp/org.el | 11 ++++++++++-
1 file changed, 10 insertions(+), 1 deletion(-)
diff --git a/lisp/org.el b/lisp/org.el
index 8929a72172..1d53ee72e3 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -8441,7 +8441,16 @@ Raise a user error when there is nothing to follow."
(interactive)
(let ((tap-url (thing-at-point 'url))
(tap-email (thing-at-point 'email)))
- (cond ((org-in-regexp org-link-any-re)
+ (cond ((org-in-regexp
+ org-link-any-re
+ (let ((origin (point)))
+ (max
+ (save-excursion
+ (backward-paragraph)
+ (count-lines (point) origin))
+ (save-excursion
+ (forward-paragraph)
+ (count-lines origin (point))))))
(org-link-open-from-string (match-string-no-properties 0)))
((or (org-in-regexp org-ts-regexp-both nil t)
(org-in-regexp org-tsr-regexp-both nil t))