summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBastien Guerry <bzg@altern.org>2013-03-13 11:05:15 (GMT)
committer Bastien Guerry <bzg@altern.org>2013-03-13 11:05:15 (GMT)
commitab33f3cfac01fc96db1df606227a2c3ecaf3e778 (patch)
tree9e72108237968942eb1ad3ce277642ae5f7565ca
parent9f17654913c326dbf5c093891e32547b84140274 (diff)
downloadorg-mode-ab33f3cfac01fc96db1df606227a2c3ecaf3e778.zip
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.el6
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))))