[elpa] externals/org beb010a 4/4: ol: Fix storing link from a keybinding help buffer

[ELPA Syncer]

branch: externals/org
commit beb010a3a53d973c61e1ae03b0eecb9ab89e1017
Author: Nicolas Goaziou <mail@nicolasgoaziou.fr>
Commit: Nicolas Goaziou <mail@nicolasgoaziou.fr>

    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)))))