diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 02dae8527..8245444ce 100755 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2009-03-17 Carsten Dominik + + * org.el (org-open-at-point): Fix tags searches by mouse click. + 2009-03-16 Carsten Dominik * org-export-latex.el (org-export-latex-preprocess): Implement the diff --git a/lisp/org.el b/lisp/org.el index bba3ae703..dabf3065e 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -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