diff options
author | Manuel Giraud <manuel.giraud@univ-nantes.fr> | 2011-04-12 18:18:50 +0000 |
---|---|---|
committer | Carsten Dominik <carsten.dominik@gmail.com> | 2011-04-15 13:58:29 +0200 |
commit | c56bf33812a0c7ee5ddfa8c73e598348c3bbf47a (patch) | |
tree | 1fbd64ba91044b06e879daa3f201f6e24f95344e | |
parent | 4262dc1cbc4006d3ed7addc69fc53040bfc8cf92 (diff) | |
download | org-mode-c56bf33812a0c7ee5ddfa8c73e598348c3bbf47a.tar.gz |
HTML export: correct a bug in coderef link.
* org-html.el (org-html-make-link): correct a bug in coderef link.
-rw-r--r-- | lisp/org-html.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/org-html.el b/lisp/org-html.el index 58fbc05..5d53478 100644 --- a/lisp/org-html.el +++ b/lisp/org-html.el @@ -826,7 +826,8 @@ MAY-INLINE-P allows inlining it as an image." (not type) (string= type "http") (string= type "https") - (string= type "file")) + (string= type "file") + (string= type "coderef")) (if fragment (setq thefile (concat thefile "#" fragment)))) @@ -836,7 +837,8 @@ MAY-INLINE-P allows inlining it as an image." (setq thefile (let ((str (org-export-html-format-href thefile))) - (if (and type (not (string= "file" type))) + (if (and type (not (or (string= "file" type) + (string= "coderef" type)))) (concat type ":" str) str))) |