daniel/ox-rst
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Doesn't modify path

Browse Source
This commit is contained in:
IGARASHI Masanao
2014-11-16 09:48:56 +09:00
parent eb6c6563b4
commit 31c71d172a
1 changed files with 1 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
ox-rst.el
View File

@@ -1000,15 +1000,7 @@ INFO is a plist holding contextual information."
;; 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 (cond ((and home use-abs-url)
;; component - "file://".
(cond ((file-name-absolute-p raw-path)
(setq raw-path
(concat "file://" (expand-file-name
(replace-regexp-in-string
"^/+" "/"
raw-path)))))
((and home use-abs-url)
(setq raw-path (setq raw-path
(concat (file-name-as-directory home) raw-path))))) (concat (file-name-as-directory home) raw-path)))))
(t raw-path))) (t raw-path)))