mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-08-22 07:48:35 +00:00
org.el (org-open-at-point): Fix opening all links at point
* org.el (org-open-at-point): Fix opening all links at point. Thanks to Ingo Lohmar for reporting this.
This commit is contained in:
parent
8b0fe31386
commit
de10210cf9
12
lisp/org.el
12
lisp/org.el
|
@ -9684,12 +9684,14 @@ application the system uses for this file type."
|
|||
"[ \t]:[^ \t\n]+:[ \t]*$")))
|
||||
(not (get-text-property (point) 'org-linked-text)))
|
||||
(or (let* ((lkall (org-offer-links-in-entry (current-buffer) (point) arg))
|
||||
(lk (car lkall))
|
||||
(lk0 (car lkall))
|
||||
(lk (if (stringp lk0) (list lk0) lk0))
|
||||
(lkend (cdr lkall)))
|
||||
(when lk
|
||||
(prog1 (search-forward lk nil lkend)
|
||||
(goto-char (match-beginning 0))
|
||||
(org-open-at-point))))
|
||||
(mapcar (lambda(l)
|
||||
(search-forward l nil lkend)
|
||||
(goto-char (match-beginning 0))
|
||||
(org-open-at-point))
|
||||
lk))
|
||||
(progn (require 'org-attach) (org-attach-reveal 'if-exists))))
|
||||
((run-hook-with-args-until-success 'org-open-at-point-functions))
|
||||
((and (org-at-timestamp-p t)
|
||||
|
|
Loading…
Reference in a new issue