ead3f999010c2ff4865e89fcf404c4ae4069fb83 — Ihor Radchenko a month ago 093b21c
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
1 files changed, 4 insertions(+), 4 deletions(-)

M lisp/ox-html.el
M lisp/ox-html.el => lisp/ox-html.el +4 -4
@@ 3310,7 3310,7 @@ INFO is a plist holding contextual information.  See
	(pcase (org-element-type destination)
	  ;; ID link points to an external file.
	   (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>"
		(format "class=\"coderef\" onmouseover=\"CodeHighlightOn(this, \
'%s');\" onmouseout=\"CodeHighlightOff(this, '%s');\""
			fragment fragment)
		(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>"