summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBastien Guerry <bzg@altern.org>2013-01-11 12:11:09 +0100
committerBastien Guerry <bzg@altern.org>2013-01-11 12:11:09 +0100
commitde10210cf9805df3e4df1f807d0c609f6f24f296 (patch)
treec7e3108a6b0f437cbff147544bd162d7468f5f98
parent8b0fe31386939c02bcbcba7e1c5ea69858e50aa8 (diff)
downloadorg-mode-de10210cf9805df3e4df1f807d0c609f6f24f296.tar.gz
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.
-rw-r--r--lisp/org.el12
1 files changed, 7 insertions, 5 deletions
diff --git a/lisp/org.el b/lisp/org.el
index 782e2a6..c996693 100644
--- a/lisp/org.el
+++ b/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)