Mercurial > emacs
comparison lisp/org/org-exp.el @ 101833:97ed2489367d
2009-02-06 Carsten Dominik <dominik@science.uva.nl>
* org-exp.el (org-export-preprocess-string): Fix bug with skipping
text before first headline.
| author | Carsten Dominik <dominik@science.uva.nl> |
|---|---|
| date | Fri, 06 Feb 2009 11:47:58 +0000 |
| parents | 6d71fc980cde |
| children | 31625710c524 |
comparison
equal
deleted
inserted
replaced
| 101832:aa61f808aca4 | 101833:97ed2489367d |
|---|---|
| 1536 (plist-get parameters :drawers)) | 1536 (plist-get parameters :drawers)) |
| 1537 | 1537 |
| 1538 ;; Get the correct stuff before the first headline | 1538 ;; Get the correct stuff before the first headline |
| 1539 (when (plist-get parameters :skip-before-1st-heading) | 1539 (when (plist-get parameters :skip-before-1st-heading) |
| 1540 (goto-char (point-min)) | 1540 (goto-char (point-min)) |
| 1541 (when (re-search-forward "\\(^#.*\n\\)^\\*+[ \t]" nil t) | 1541 (when (re-search-forward "^\\(#.*\n\\)?\\*+[ \t]" nil t) |
| 1542 (delete-region (point-min) (match-beginning 0)) | 1542 (delete-region (point-min) (match-beginning 0)) |
| 1543 (goto-char (point-min)) | 1543 (goto-char (point-min)) |
| 1544 (insert "\n"))) | 1544 (insert "\n"))) |
| 1545 (when (plist-get parameters :add-text) | 1545 (when (plist-get parameters :add-text) |
| 1546 (goto-char (point-min)) | 1546 (goto-char (point-min)) |