diff options
author | Bastien Guerry <bzg@altern.org> | 2011-02-13 12:43:39 +0100 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2011-02-13 12:43:39 +0100 |
commit | 706f2da458e9575fb3b9b1e706cd073582e4df74 (patch) | |
tree | 86f303d4503fb77e3fd2f40b40829d14c56f77de | |
parent | 7c489ff0f533e8ec33da77b48bfa68e2d9c146bf (diff) | |
download | org-mode-706f2da458e9575fb3b9b1e706cd073582e4df74.tar.gz |
org-ascii.el: Fix bug when picking up the underline char.
-rw-r--r-- | lisp/org-ascii.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/org-ascii.el b/lisp/org-ascii.el index 01106c3..08d94d2 100644 --- a/lisp/org-ascii.el +++ b/lisp/org-ascii.el @@ -653,8 +653,8 @@ publishing directory." (not (equal (char-before (1- (point))) ?\n))) (insert "\n")) (setq char (or (nth (max (- umax level) 0) - (reverse org-export-ascii-underline)) - (last org-export-ascii-underline))) + (reverse org-export-ascii-underline)) + (car (last org-export-ascii-underline)))) (unless org-export-with-tags (if (string-match (org-re "[ \t]+\\(:[[:alnum:]_@#%:]+:\\)[ \t]*$") title) (setq title (replace-match "" t t title)))) |