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