Pārlūkot izejas kodu

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.
Bastien Guerry 12 gadi atpakaļ
vecāks
revīzija
de10210cf9
1 mainītis faili ar 7 papildinājumiem un 5 dzēšanām
  1. 7 5
      lisp/org.el

+ 7 - 5
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)