mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-08-26 12:32:53 +00:00
Bugfix: Make mouse click on tags do a tags search.
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:
parent
ad11d7f675
commit
5a286e45da
|
@ -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
10
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
|
||||
|
|
Loading…
Reference in a new issue