branch: externals/org
commit beb010a3a53d973c61e1ae03b0eecb9ab89e1017
Author: Nicolas Goaziou <[email protected]>
Commit: Nicolas Goaziou <[email protected]>
ol: Fix storing link from a keybinding help buffer
* lisp/ol.el (org-link--store-help): Store the function attached to
the binding instead of the binding itself.
---
lisp/ol.el | 3 +++
1 file changed, 3 insertions(+)
diff --git a/lisp/ol.el b/lisp/ol.el
index c210cd1..70f351a 100644
--- a/lisp/ol.el
+++ b/lisp/ol.el
@@ -1335,6 +1335,9 @@ PATH is a symbol name, as a string."
(let ((symbol
(save-excursion
(goto-char (point-min))
+ ;; In case the help is about the key-binding, store the
+ ;; function instead.
+ (search-forward "runs the command " (line-end-position) t)
(read (current-buffer)))))
(org-link-store-props :type "help" :link (format "help:%s" symbol)))))
