From 3c05966347e7e2677c97bd0afdb511b3a59b5f4f Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Sat, 30 Sep 2017 17:06:09 +0200 Subject: [PATCH] Skip over unimportant contexts in +org/dwim-at-point --- modules/org/org/autoload/org.el | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/modules/org/org/autoload/org.el b/modules/org/org/autoload/org.el index 8097e9149..53e033b76 100644 --- a/modules/org/org/autoload/org.el +++ b/modules/org/org/autoload/org.el @@ -46,6 +46,10 @@ If on a: (let* ((scroll-pt (window-start)) (context (org-element-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 ((guard (org-element-property :checkbox (org-element-lineage context '(item) t))) (let ((match (and (org-at-item-checkbox-p) (match-string 1))))