diff options
| author | Sebastien Delafond <seb@debian.org> | 2014-06-13 13:20:31 +0200 |
|---|---|---|
| committer | Sébastien Delafond <sdelafond@gmail.com> | 2014-07-13 13:35:34 +0200 |
| commit | 2d3359e41007641d7a8e5b088d9286aef64d99e7 (patch) | |
| tree | 61ce84dac761e0621913843f7b8d7b02202b4823 /lisp/ox-texinfo.el | |
| parent | bc6d49d7f92105a118915fdd4918a90b57b848bd (diff) | |
| parent | 77ddd382df838e38504b822e729250b2a6dd9b63 (diff) | |
Imported Debian patch 8.2.6-1
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 |