[elpa] externals/org 3d353b0 3/4: ol: Fix org-link--store-help

[ELPA Syncer]

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

    ol: Fix org-link--store-help
    
    * lisp/ol.el (org-link--store-help): Read symbol without relying on
    a hack.
---
 lisp/ol.el | 14 ++++----------
 1 file changed, 4 insertions(+), 10 deletions(-)

diff --git a/lisp/ol.el b/lisp/ol.el
index 6f55a46..c210cd1 100644
--- a/lisp/ol.el
+++ b/lisp/ol.el
@@ -1333,16 +1333,10 @@ PATH is a symbol name, as a string."
   "Store \"help\" type link."
   (when (eq major-mode 'help-mode)
     (let ((symbol
-           (replace-regexp-in-string
-           ;; Help mode escapes backquotes and backslashes before
-           ;; displaying them.  E.g., "`" appears as "\'" for
-           ;; reasons.  Work around this.
-           (rx "\\" (group (or "`" "\\"))) "\\1"
-           (save-excursion
-             (goto-char (point-min))
-              (re-search-forward "\\S_" (line-end-position) t)
-             (buffer-substring (point-min) (point))))))
-      (org-link-store-props :type "help" :link (concat "help:" symbol)))))
+           (save-excursion
+            (goto-char (point-min))
+             (read (current-buffer)))))
+      (org-link-store-props :type "help" :link (format "help:%s" symbol)))))
 
 (org-link-set-parameters "help"
                          :follow #'org-link--open-help