From 9ff77b1e579b78c06a3923ef7b710562fdb98614 Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Tue, 19 Jun 2018 10:44:56 +0200 Subject: [PATCH] org-info: Fix path parsing * lisp/org-info.el (org-info-follow-link): (org-info-export): Manual is separated from node name by either "#" or "::", not ":". --- lisp/org-info.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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