emacs-elpa-diffs
[Top][All Lists]
Advanced

[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))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]