From f3c137a69797b0432db4dd887c547b2d69c4ed4d Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Sun, 26 Apr 2020 10:36:39 +0200 Subject: [PATCH] ol: Fix info links with backquotes and backslashes * lisp/ol.el (org-store-link): Remove spurious backslash appearing in some Info buffers. Reported-by: Achilles Yuce --- lisp/ol.el | 14 ++++++++++---- 1 file changed, 10 insertions(+), 4 deletions(-) diff --git a/lisp/ol.el b/lisp/ol.el index 9bdd3ad3f..32f2e97b3 100644 --- a/lisp/ol.el +++ b/lisp/ol.el @@ -1454,10 +1454,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)