lang/org: call push-button on buttons in org-mode
This commit is contained in:
parent
5e7864838a
commit
aafed6d8a0
1 changed files with 98 additions and 96 deletions
|
@ -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)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue