mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-08-26 12:32:53 +00:00
Code Releases Activity

Bugfix: Make mouse click on tags do a tags search.

Browse source 
This used to work, but the tags search part was no longer reached
because of a bug in the sequence of checking regular expressions.
This commit is contained in:
Carsten Dominik 2009-03-17 11:59:35 +01:00
parent ad11d7f675
commit 5a286e45da
2 changed files with 9 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/ChangeLog
View file

@ -1,3 +1,7 @@
2009-03-17 Carsten Dominik <carsten.dominik@gmail.com>
* org.el (org-open-at-point): Fix tags searches by mouse click.
2009-03-16 Carsten Dominik <carsten.dominik@gmail.com>
* org-export-latex.el (org-export-latex-preprocess): Implement the

10
lisp/org.el
View file

@ -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