diff options
author | Eric Schulte <schulte.eric@gmail.com> | 2010-06-16 10:23:39 -0700 |
---|---|---|
committer | Eric Schulte <schulte.eric@gmail.com> | 2010-06-16 10:23:39 -0700 |
commit | f6e479009949c11c3c9e296d8f9c2f7667dd369a (patch) | |
tree | 4a5ddcf12f6160a3a88748c5f5d97fb3d02d1f7f | |
parent | d45826943a2dc546cc5c2fe1ba51fa9b26811174 (diff) | |
download | org-mode-f6e479009949c11c3c9e296d8f9c2f7667dd369a.tar.gz |
org-exp-blocks: cleanup trailing newline after block
* lisp/org-exp-blocks.el (org-export-blocks-preprocess):
cleanup trailing newline after block
-rw-r--r-- | lisp/org-exp-blocks.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/org-exp-blocks.el b/lisp/org-exp-blocks.el index cd5af17..4ff6c5c 100644 --- a/lisp/org-exp-blocks.el +++ b/lisp/org-exp-blocks.el @@ -178,7 +178,7 @@ specified in BLOCKS which default to the value of (goto-char (point-min)) (setq start (point)) (while (re-search-forward - "^\\([ \t]*\\)#\\+begin_\\(\\S-+\\)[ \t]*\\(.*\\)?[\r\n]\\([^\000]*?\\)[\r\n][ \t]*#\\+end_\\S-+.*" nil t) + "^\\([ \t]*\\)#\\+begin_\\(\\S-+\\)[ \t]*\\(.*\\)?[\r\n]\\([^\000]*?\\)[\r\n][ \t]*#\\+end_\\S-+.*[\r\n]?" nil t) (setq indentation (length (match-string 1))) (setq type (intern (downcase (match-string 2)))) (setq headers (save-match-data (org-split-string (match-string 3) "[ \t]+"))) |