From ead3f999010c2ff4865e89fcf404c4ae4069fb83 Mon Sep 17 00:00:00 2001 From: Ihor Radchenko Date: Wed, 10 Apr 2024 17:02:01 +0300 Subject: [PATCH] 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 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 6769028f3..0471a573b 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 "%s" 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 "%s"