diff --git a/lisp/ol.el b/lisp/ol.el index 3a801db4c..452ed95bc 100644 --- a/lisp/ol.el +++ b/lisp/ol.el @@ -1557,10 +1557,16 @@ non-nil." (org-link-store-props :type "calendar" :date cd))) ((eq major-mode 'help-mode) - (setq link (concat "help:" (save-excursion - (goto-char (point-min)) - (looking-at "^[^ ]+") - (match-string 0)))) + (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)) + (looking-at "^[^ ]+") + (match-string 0))))) + (setq link (concat "help:" symbol))) (org-link-store-props :type "help")) ((eq major-mode 'w3-mode)