emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Skip over unimportant contexts in +org/dwim-at-point

Browse source
This commit is contained in:
Henrik Lissner 2017-09-30 17:06:09 +02:00
parent ce17ecd239
commit 3c05966347
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 4 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

4
modules/org/org/autoload/org.el
View file

@ -46,6 +46,10 @@ If on a:
(let* ((scroll-pt (window-start)) (let* ((scroll-pt (window-start))
(context (org-element-context)) (context (org-element-context))
(type (org-element-type context))) (type (org-element-type context)))
;; skip over unimportant contexts
(while (and context (memq type '(verbatim code bold italic underline strike-through)))
(setq context (org-element-property :parent context)
type (org-element-type context)))
(pcase type (pcase type
((guard (org-element-property :checkbox (org-element-lineage context '(item) t))) ((guard (org-element-property :checkbox (org-element-lineage context '(item) t)))
(let ((match (and (org-at-item-checkbox-p) (match-string 1)))) (let ((match (and (org-at-item-checkbox-p) (match-string 1))))