Explorar o código

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

* ox-html.el (org-html-link): Minor code clean-up.
Bastien Guerry %!s(int64=12) %!d(string=hai) anos
pai
achega
ab33f3cfac
Modificáronse 1 ficheiros con 3 adicións e 3 borrados
  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))))