From ab33f3cfac01fc96db1df606227a2c3ecaf3e778 Mon Sep 17 00:00:00 2001 From: Bastien Guerry Date: Wed, 13 Mar 2013 12:05:15 +0100 Subject: [PATCH] ox-html.el (org-html-link): Minor code clean-up * ox-html.el (org-html-link): Minor code clean-up. --- lisp/ox-html.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/ox-html.el b/lisp/ox-html.el index 293aec38f..a3c68527e 100644 --- a/lisp/ox-html.el +++ b/lisp/ox-html.el @@ -2465,7 +2465,7 @@ standalone images, do the following. DESC is the description part of the link, or the empty string. INFO is a plist holding contextual information. See `org-export-data'." - (let* ((--link-org-files-as-html-maybe + (let* ((link-org-files-as-html-maybe (function (lambda (raw-path info) "Treat links to `file.org' as links to `file.html', if needed. @@ -2488,7 +2488,7 @@ INFO is a plist holding contextual information. See ((string= type "file") ;; Treat links to ".org" files as ".html", if needed. (setq raw-path - (funcall --link-org-files-as-html-maybe raw-path info)) + (funcall link-org-files-as-html-maybe raw-path info)) ;; If file path is absolute, prepend it with protocol ;; component - "file://". (when (file-name-absolute-p raw-path) @@ -2556,7 +2556,7 @@ INFO is a plist holding contextual information. See (plain-text (let ((fragment (concat "ID-" path)) ;; Treat links to ".org" files as ".html", if needed. - (path (funcall --link-org-files-as-html-maybe + (path (funcall link-org-files-as-html-maybe destination info))) (format "%s" path fragment attributes (or desc destination))))