diff options
| author | Sébastien Delafond <sdelafond@gmail.com> | 2014-07-13 13:35:34 +0200 |
|---|---|---|
| committer | Sébastien Delafond <sdelafond@gmail.com> | 2014-07-13 13:35:34 +0200 |
| commit | 77ddd382df838e38504b822e729250b2a6dd9b63 (patch) | |
| tree | 797a630f5c1131dcbe01d3105f75b38fb03f92a2 /lisp/ox-texinfo.el | |
| parent | efc77ab6f5e8883fc38d8c6f75b6db54a0965c15 (diff) | |
Imported Upstream version 8.2.6
Diffstat (limited to 'lisp/ox-texinfo.el')
| -rw-r--r-- | lisp/ox-texinfo.el | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/lisp/ox-texinfo.el b/lisp/ox-texinfo.el index ef881af..a961d7a 100644 --- a/lisp/ox-texinfo.el +++ b/lisp/ox-texinfo.el @@ -1222,10 +1222,8 @@ INFO is a plist holding contextual information. See (path (cond ((member type '("http" "https" "ftp")) (concat type ":" raw-path)) - ((string= type "file") - (if (file-name-absolute-p raw-path) - (concat "file://" (expand-file-name raw-path)) - (concat "file://" raw-path))) + ((and (string= type "file") (file-name-absolute-p raw-path)) + (concat "file:" raw-path)) (t raw-path))) (email (if (string= type "mailto") (let ((text (replace-regexp-in-string |