diff options
author | David Maus <dmaus@ictsoc.de> | 2010-09-07 20:04:35 +0200 |
---|---|---|
committer | David Maus <dmaus@ictsoc.de> | 2010-09-07 20:04:35 +0200 |
commit | 510ada442ed65e1e8f65a54849036e19bbbd023a (patch) | |
tree | e1bd8570cd82045466c5f57b60e3542cfc35f2e3 | |
parent | 82b7d0bf0786cb74dc3309f53d307e9b215e1d99 (diff) | |
download | org-mode-510ada442ed65e1e8f65a54849036e19bbbd023a.tar.gz |
Bind and set link path for link type specific markup function
* org-ascii.el (org-export-as-ascii): Bind and set link path for link
type specific markup function.
-rw-r--r-- | lisp/org-ascii.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/org-ascii.el b/lisp/org-ascii.el index a7b8801..9978708 100644 --- a/lisp/org-ascii.el +++ b/lisp/org-ascii.el @@ -311,7 +311,7 @@ publishing directory." :add-text (plist-get opt-plist :text)) "\n")) thetoc have-headings first-heading-pos - table-open table-buffer link-buffer link type desc desc0 rpl wrap fnc) + table-open table-buffer link-buffer link type path desc desc0 rpl wrap fnc) (let ((inhibit-read-only t)) (org-unmodified (remove-text-properties (point-min) (point-max) @@ -432,7 +432,8 @@ publishing directory." (setq line (org-html-expand-for-ascii line)) ;; Replace links with the description when possible (while (string-match org-bracket-link-analytic-regexp++ line) - (setq link (concat (match-string 1 line) (match-string 3 line)) + (setq path (match-string 3 line) + link (concat (match-string 1 line) path) type (match-string 1 line) desc0 (match-string 5 line) desc (or desc0 link)) |