diff options
| author | Carsten Dominik <carsten.dominik@gmail.com> | 2010-03-26 08:15:42 +0100 |
|---|---|---|
| committer | Carsten Dominik <carsten.dominik@gmail.com> | 2010-03-26 08:15:42 +0100 |
| commit | b69adf673866078d3410d252a195bedc39fdd5c2 (patch) | |
| tree | b216171476dae24637f4422e2c1c921fe14e61c8 | |
| parent | 3f6a52dd8bf23b38be70b17b30868b884f4f00a2 (diff) | |
| download | org-mode-b69adf673866078d3410d252a195bedc39fdd5c2.tar.gz | |
Freemind export: Fix odd level issue
| -rwxr-xr-x | lisp/ChangeLog | 3 | ||||
| -rw-r--r-- | lisp/org-freemind.el | 3 |
2 files changed, 5 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 479aa80..c731546 100755 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2010-03-26 Carsten Dominik <carsten.dominik@gmail.com> + * org-freemind.el (org-freemind-write-mm-buffer): Fix another + problem with odd levels. + * org-ascii.el (org-export-as-ascii): Export email only if the author wants it. diff --git a/lisp/org-freemind.el b/lisp/org-freemind.el index abe3a54..094640e 100644 --- a/lisp/org-freemind.el +++ b/lisp/org-freemind.el @@ -706,7 +706,8 @@ Otherwise give an error say the file exists." (with-current-buffer mm-buffer (while (> current-level base-level) (insert "</node>\n") - (setq current-level (1- current-level)) + (setq current-level + (- current-level (if odd-only 2 1))) )) (with-current-buffer mm-buffer (insert "</map>") |