branch: externals/org
commit 3d353b006551dcd7cc8a093ae977ad55da368170
Author: Nicolas Goaziou <[email protected]>
Commit: Nicolas Goaziou <[email protected]>
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
