|
@@ -720,7 +720,7 @@ MAY-INLINE-P allows inlining it as an image."
|
|
|
;;Substitute just if original path was absolute.
|
|
|
;;(Otherwise path must remain relative)
|
|
|
(if (file-name-absolute-p path)
|
|
|
- (expand-file-name path)
|
|
|
+ (concat "file://" (expand-file-name path))
|
|
|
path)))
|
|
|
((string= type "")
|
|
|
(list nil path))
|
|
@@ -756,8 +756,7 @@ 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))
|
|
|
- (org-string-match-p "^//" str))
|
|
|
+ (if (and type (not (string= "file" type)))
|
|
|
(concat type ":" str)
|
|
|
str)))
|
|
|
|