[elpa] externals/org f32f5982a7 4/4: * lisp/ol-info.el (org-info-map-html-url): Prioritize custom URLs

[ELPA Syncer]

branch: externals/org
commit f32f5982a76217629dad8b8fd82d53212576aee6
Author: Ihor Radchenko <yantar92@posteo.net>
Commit: Ihor Radchenko <yantar92@posteo.net>

    * lisp/ol-info.el (org-info-map-html-url): Prioritize custom URLs
    
    When deriving info page URL, prioritizeable
    `org-info-other-documents'.
---
 lisp/ol-info.el | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/lisp/ol-info.el b/lisp/ol-info.el
index 1350516319..0f8ab643e0 100644
--- a/lisp/ol-info.el
+++ b/lisp/ol-info.el
@@ -157,11 +157,11 @@ If FILENAME refers to an official GNU document, return a 
URL pointing to
 the official page for that document, e.g., use \"gnu.org\" for all Emacs
 related documents.  Otherwise, append \".html\" extension to FILENAME.
 See `org-info-emacs-documents' and `org-info-other-documents' for details."
-  (cond ((member filename org-info-emacs-documents)
-        (format "https://www.gnu.org/software/emacs/manual/html_mono/%s.html";
-                filename))
-       ((cdr (assoc filename org-info-other-documents)))
-       (t (concat filename ".html"))))
+  (cond ((cdr (assoc filename org-info-other-documents)))
+        ((member filename org-info-emacs-documents)
+         (format "https://www.gnu.org/software/emacs/manual/html_mono/%s.html";
+                filename))
+        (t (concat filename ".html"))))
 
 (defun org-info--expand-node-name (node)
   "Expand Info NODE to HTML cross reference."