Pārlūkot izejas kodu

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 ":".
Nicolas Goaziou 7 gadi atpakaļ
vecāks
revīzija
9ff77b1e57
1 mainītis faili ar 2 papildinājumiem un 2 dzēšanām
  1. 2 2
      lisp/org-info.el

+ 2 - 2
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