diff --git a/lisp/org-info.el b/lisp/org-info.el index 6dde36ceb..cc75e1006 100644 --- a/lisp/org-info.el +++ b/lisp/org-info.el @@ -66,7 +66,7 @@ (defun org-info-follow-link (name) "Follow an Info file and node link specified by NAME." - (if (or (string-match "\\(.*\\)[#:]:?\\(.*\\)" name) + (if (or (string-match "\\(.*\\)\\(:?#\\|::\\)\\(.*\\)" name) (string-match "\\(.*\\)" name)) (let ((filename (match-string 1 name)) (nodename-or-index (or (match-string 2 name) "Top"))) @@ -129,7 +129,7 @@ See `org-info-emacs-documents' and `org-info-other-documents' for details." (defun org-info-export (path desc format) "Export an info link. See `org-link-parameters' for details about PATH, DESC and FORMAT." - (let* ((parts (split-string path "[#:]:?")) + (let* ((parts (split-string path "#\\|::")) (manual (car parts)) (node (or (nth 1 parts) "Top"))) (pcase format