|
@@ -7423,17 +7423,17 @@ application the system uses for this file type."
|
|
|
(org-in-regexp org-plain-link-re))
|
|
|
(setq type (match-string 1) path (match-string 2))
|
|
|
(throw 'match t)))
|
|
|
- (when (org-in-regexp "\\<\\([^><\n]+\\)\\>")
|
|
|
- (setq type "tree-match"
|
|
|
- path (match-string 1))
|
|
|
- (throw 'match t))
|
|
|
(save-excursion
|
|
|
(when (org-in-regexp (org-re "\\(:[[:alnum:]_@:]+\\):[ \t]*$"))
|
|
|
(setq type "tags"
|
|
|
path (match-string 1))
|
|
|
(while (string-match ":" path)
|
|
|
(setq path (replace-match "+" t t path)))
|
|
|
- (throw 'match t))))
|
|
|
+ (throw 'match t)))
|
|
|
+ (when (org-in-regexp "<\\([^><\n]+\\)>")
|
|
|
+ (setq type "tree-match"
|
|
|
+ path (match-string 1))
|
|
|
+ (throw 'match t)))
|
|
|
(unless path
|
|
|
(error "No link found"))
|
|
|
;; Remove any trailing spaces in path
|