summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNicolas Goaziou <mail@nicolasgoaziou.fr>2019-02-14 01:16:16 +0100
committerNicolas Goaziou <mail@nicolasgoaziou.fr>2019-02-14 01:16:16 +0100
commit0ceb59c377e7cb8fb5e64789e231a29b0a35e2a7 (patch)
tree6286e48d272d1714ef2dbb634752f8a1bd9e4c2c
parent1cdcf36a0394c3e53b8fd633abfc94e8db98ae40 (diff)
parentba974fecf933e2e74782008924e95c7a3cebde81 (diff)
downloadorg-mode-0ceb59c377e7cb8fb5e64789e231a29b0a35e2a7.tar.gz
Merge branch 'master' of code.orgmode.org:bzg/org-mode
-rw-r--r--lisp/org.el9
1 files changed, 8 insertions, 1 deletions
diff --git a/lisp/org.el b/lisp/org.el
index 9b1e3ad..24f5266 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -10086,7 +10086,14 @@ a link."
(>= (point) (match-beginning 5))
(< (point) (match-end 5)))
;; On tags.
- (org-tags-view arg (substring (match-string 5) 0 -1))
+ (org-tags-view
+ arg
+ (save-excursion
+ (let* ((beg (match-beginning 5))
+ (end (match-end 5))
+ (beg-tag (or (search-backward ":" beg 'at-limit) (point)))
+ (end-tag (search-forward ":" end nil 2)))
+ (buffer-substring (1+ beg-tag) (1- end-tag)))))
;; Not on tags.
(pcase (org-offer-links-in-entry (current-buffer) (point) arg)
(`(nil . ,_)