lang/org: call push-button on buttons in org-mode

This commit is contained in:
Henrik Lissner 2021-03-22 01:06:36 -04:00
parent 5e7864838a
commit aafed6d8a0

View file

@ -160,6 +160,8 @@ If on a:
- link: follow it
- otherwise, refresh all inline images in current tree."
(interactive "P")
(if (button-at (point))
(call-interactively #'push-button)
(let* ((context (org-element-context))
(type (org-element-type context)))
;; skip over unimportant contexts
@ -268,7 +270,7 @@ If on a:
(call-interactively #'org-open-at-point)
(+org--toggle-inline-images-in-subtree
(org-element-property :begin context)
(org-element-property :end context)))))))
(org-element-property :end context))))))))
;;;###autoload
(defun +org/shift-return (&optional arg)