Browse Source

ox-html.el (org-html-link): Minor code clean-up

* ox-html.el (org-html-link): Minor code clean-up.
Bastien Guerry 12 years ago
parent
commit
ab33f3cfac
1 changed files with 3 additions and 3 deletions
  1. 3 3
      lisp/ox-html.el

+ 3 - 3
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))))