awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-05 12:37:33 -05:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Henrik Lissner
2021-03-22 01:06:36 -04:00
parent 5e7864838a
commit aafed6d8a0
1 changed files with 98 additions and 96 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
modules/lang/org/autoload/org.el
View File

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