diff options
author | Bastien Guerry <bzg@altern.org> | 2013-01-11 12:11:09 +0100 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2013-01-11 12:11:09 +0100 |
commit | de10210cf9805df3e4df1f807d0c609f6f24f296 (patch) | |
tree | c7e3108a6b0f437cbff147544bd162d7468f5f98 | |
parent | 8b0fe31386939c02bcbcba7e1c5ea69858e50aa8 (diff) | |
download | org-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.el | 12 |
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) |