diff options
author | Bastien Guerry <bzg@altern.org> | 2013-03-13 12:05:15 +0100 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2013-03-13 12:05:15 +0100 |
commit | ab33f3cfac01fc96db1df606227a2c3ecaf3e778 (patch) | |
tree | 9e72108237968942eb1ad3ce277642ae5f7565ca | |
parent | 9f17654913c326dbf5c093891e32547b84140274 (diff) | |
download | org-mode-ab33f3cfac01fc96db1df606227a2c3ecaf3e778.tar.gz |
ox-html.el (org-html-link): Minor code clean-up
* ox-html.el (org-html-link): Minor code clean-up.
-rw-r--r-- | lisp/ox-html.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/ox-html.el b/lisp/ox-html.el index 293aec3..a3c6852 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 "<a href=\"%s#%s\"%s>%s</a>" path fragment attributes (or desc destination)))) |