0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-08-26 00:32:53 +00:00

ASCII export: Fix issues with new link export

This commit is contained in:
Carsten Dominik 2009-02-28 21:56:55 +01:00
parent b3374a7bb1
commit 2b4788ae9d
2 changed files with 11 additions and 3 deletions

View file

@ -1,3 +1,10 @@
2009-02-28 Carsten Dominik <carsten.dominik@gmail.com>
* org-exp.el (org-export-as-ascii): Reverse link buffer before
outputting it.
(org-export-ascii-push-links): Fix bug with pussing links into the
export buffer.
2009-02-27 Carsten Dominik <carsten.dominik@gmail.com>
* org-archive.el (org-archive-subtree): Do not add 1 to level if

View file

@ -2781,7 +2781,7 @@ underlined headlines. The default is 3."
(org-init-section-numbers)
(while (setq line (pop lines))
(when (and link-buffer (string-match "^\\*+ " line))
(org-export-ascii-push-links link-buffer)
(org-export-ascii-push-links (nreverse link-buffer))
(setq link-buffer nil))
(setq wrap nil)
;; Remove the quoted HTML tags.
@ -2848,7 +2848,7 @@ underlined headlines. The default is 3."
(if wrap (setq line (org-export-ascii-wrap line wrap))))
(insert line "\n"))))
(org-export-ascii-push-links link-buffer)
(org-export-ascii-push-links (nreverse link-buffer))
(normal-mode)
@ -2957,7 +2957,8 @@ underlined headlines. The default is 3."
"^\\(\\([ \t]*\\)\\|\\(\\*+ \\)\\)[^ \t\n]" nil t))
(setq ind (or (match-string 2)
(make-string (length (match-string 3)) ?\ )))))
(mapc (lambda (x) (insert ind "[" (car x) "]: " link)) link-buffer))
(mapc (lambda (x) (insert ind "[" (car x) "]: " (cdr x) "\n"))
link-buffer))
(insert "\n")))
(defun org-insert-centered (s &optional underline)