Selaa lähdekoodia

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.
David Maus 14 vuotta sitten
vanhempi
commit
510ada442e
1 muutettua tiedostoa jossa 3 lisäystä ja 2 poistoa
  1. 3 2
      lisp/org-ascii.el

+ 3 - 2
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))