Просмотр исходного кода

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

* ox-html.el (org-html-link): Minor code clean-up.
Bastien Guerry 13 лет назад
Родитель
Сommit
ab33f3cfac
1 измененных файлов с 3 добавлено и 3 удалено
  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.
 DESC is the description part of the link, or the empty string.
 INFO is a plist holding contextual information.  See
 INFO is a plist holding contextual information.  See
 `org-export-data'."
 `org-export-data'."
-  (let* ((--link-org-files-as-html-maybe
+  (let* ((link-org-files-as-html-maybe
 	  (function
 	  (function
 	   (lambda (raw-path info)
 	   (lambda (raw-path info)
 	     "Treat links to `file.org' as links to `file.html', if needed.
 	     "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")
 	   ((string= type "file")
 	    ;; Treat links to ".org" files as ".html", if needed.
 	    ;; Treat links to ".org" files as ".html", if needed.
 	    (setq raw-path
 	    (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
 	    ;; If file path is absolute, prepend it with protocol
 	    ;; component - "file://".
 	    ;; component - "file://".
 	    (when (file-name-absolute-p raw-path)
 	    (when (file-name-absolute-p raw-path)
@@ -2556,7 +2556,7 @@ INFO is a plist holding contextual information.  See
 	  (plain-text
 	  (plain-text
 	   (let ((fragment (concat "ID-" path))
 	   (let ((fragment (concat "ID-" path))
 		 ;; Treat links to ".org" files as ".html", if needed.
 		 ;; 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)))
 				destination info)))
 	     (format "<a href=\"%s#%s\"%s>%s</a>"
 	     (format "<a href=\"%s#%s\"%s>%s</a>"
 		     path fragment attributes (or desc destination))))
 		     path fragment attributes (or desc destination))))