forked from mirrors/org-mode
Merge branch 'maint'
This commit is contained in:
commit
3c4cb7b296
14
lisp/ol.el
14
lisp/ol.el
|
@ -1557,10 +1557,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)
|
||||||
|
|
Loading…
Reference in a new issue