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 /contrib/lisp/ox-groff.el | |
| parent | efc77ab6f5e8883fc38d8c6f75b6db54a0965c15 (diff) | |
Imported Upstream version 8.2.6
Diffstat (limited to 'contrib/lisp/ox-groff.el')
| -rw-r--r-- | contrib/lisp/ox-groff.el | 11 |
1 files changed, 4 insertions, 7 deletions
diff --git a/contrib/lisp/ox-groff.el b/contrib/lisp/ox-groff.el index 1141292..8484def 100644 --- a/contrib/lisp/ox-groff.el +++ b/contrib/lisp/ox-groff.el @@ -1253,12 +1253,8 @@ INFO is a plist holding contextual information. See (path (cond ((member type '("http" "https" "ftp" "mailto")) (concat type ":" raw-path)) - ((string= type "file") - (when (string-match "\\(.+\\)::.+" raw-path) - (setq raw-path (match-string 1 raw-path))) - (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))) protocol) (cond @@ -1274,7 +1270,8 @@ INFO is a plist holding contextual information. See (let ((destination (org-export-resolve-radio-link link info))) (when destination (format "\\fI [%s] \\fP" - (org-export-solidify-link-text path))))) + (org-export-solidify-link-text + (org-element-property :value destination)))))) ;; Links pointing to a headline: find destination and build ;; appropriate referencing command. |