tec/org-mode
tec/org-mode
1
0
Fork 0
forked from mirrors/org-mode
Code Pull requests Releases Activity

ol: Fix info links with backquotes and backslashes

Browse source 
* lisp/ol.el (org-store-link): Remove spurious backslash appearing in
some Info buffers.

Reported-by: Achilles Yuce <ayuce@posteo.mx>
<http://lists.gnu.org/r/emacs-orgmode/2020-04/msg00405.html>
This commit is contained in:
Nicolas Goaziou 2020-04-26 10:36:39 +02:00
parent 0b3a2b3271
commit f3c137a697
1 changed files with 10 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
lisp/ol.el
View file

@ -1454,10 +1454,16 @@ non-nil."
(org-link-store-props :type "calendar" :date cd))) (org-link-store-props :type "calendar" :date cd)))
((eq major-mode 'help-mode) ((eq major-mode 'help-mode)
(setq link (concat "help:" (save-excursion (let ((symbol (replace-regexp-in-string
(goto-char (point-min)) ;; Help mode escapes backquotes and backslashes
(looking-at "^[^ ]+") ;; before displaying them. E.g., "`" appears
(match-string 0)))) ;; 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")) (org-link-store-props :type "help"))
((eq major-mode 'w3-mode) ((eq major-mode 'w3-mode)