[elpa] externals/org ead3f99901 2/2: Fix regression after 72b0e9ff0

[ELPA Syncer]

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

    Fix regression after 72b0e9ff0
    
    * lisp/ox-html.el (org-html-link): Fix code branches assuming that
    PATH variable strips link type.
    
    Reported-by: Daniel Clemente <n142857@gmail.com>
    Link: 
https://orgmode.org/list/CAJKAhPD=eMR2Tw3rsufPw_T6eEexpcHP=6PXKw3fLDtB2Z7qNg@mail.gmail.com
---
 lisp/ox-html.el | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/lisp/ox-html.el b/lisp/ox-html.el
index 6769028f3c..0471a573b5 100644
--- a/lisp/ox-html.el
+++ b/lisp/ox-html.el
@@ -3310,7 +3310,7 @@ INFO is a plist holding contextual information.  See
        (pcase (org-element-type destination)
          ;; ID link points to an external file.
          (`plain-text
-          (let ((fragment (concat org-html--id-attr-prefix path))
+          (let ((fragment (concat org-html--id-attr-prefix raw-path))
                 ;; Treat links to ".org" files as ".html", if needed.
                 (path (funcall link-org-files-as-html-maybe
                                destination info)))
@@ -3377,15 +3377,15 @@ INFO is a plist holding contextual information.  See
      ;; Coderef: replace link with the reference name or the
      ;; equivalent line number.
      ((string= type "coderef")
-      (let ((fragment (concat "coderef-" (org-html-encode-plain-text path))))
+      (let ((fragment (concat "coderef-" (org-html-encode-plain-text 
raw-path))))
        (format "<a href=\"#%s\" %s%s>%s</a>"
                fragment
                (format "class=\"coderef\" onmouseover=\"CodeHighlightOn(this, \
 '%s');\" onmouseout=\"CodeHighlightOff(this, '%s');\""
                        fragment fragment)
                attributes
-               (format (org-export-get-coderef-format path desc)
-                       (org-export-resolve-coderef path info)))))
+               (format (org-export-get-coderef-format raw-path desc)
+                       (org-export-resolve-coderef raw-path info)))))
      ;; External link with a description part.
      ((and path desc)
       (format "<a href=\"%s\"%s>%s</a>"