From 31c71d172a35152be84e31e91b314bd5193487b5 Mon Sep 17 00:00:00 2001 From: IGARASHI Masanao Date: Sun, 16 Nov 2014 09:48:56 +0900 Subject: [PATCH] Doesn't modify path --- ox-rst.el | 10 +--------- 1 file changed, 1 insertion(+), 9 deletions(-) diff --git a/ox-rst.el b/ox-rst.el index be358c5..be88488 100644 --- a/ox-rst.el +++ b/ox-rst.el @@ -1000,15 +1000,7 @@ INFO is a plist holding contextual information." ;; Treat links to ".org" files as ".html", if needed. (setq raw-path (funcall link-org-files-as-html-maybe raw-path info)) - ;; If file path is absolute, prepend it with protocol - ;; 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) + (cond ((and home use-abs-url) (setq raw-path (concat (file-name-as-directory home) raw-path))))) (t raw-path)))