ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

org: Refine open at point for tags to use just the tag at point 

* lisp/org.el (org-open-at-point): On a tag open a tags view for just
  the tag at point.  Recent behavior for multiple tags was to open a
  tags view for the complete tag string.
This commit is contained in:
Marco Wahl 2019-02-13 23:29:26 +01:00
parent 84a8fe1dd9
commit ba974fecf9
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/org.el
View File

@ -10086,7 +10086,14 @@ a link."
(>= (point) (match-beginning 5)) (>= (point) (match-beginning 5))
(< (point) (match-end 5))) (< (point) (match-end 5)))
;; On tags. ;; 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. ;; Not on tags.
(pcase (org-offer-links-in-entry (current-buffer) (point) arg) (pcase (org-offer-links-in-entry (current-buffer) (point) arg)
(`(nil . ,_) (`(nil . ,_)