diff options
author | Eric Schulte <schulte.eric@gmail.com> | 2010-06-28 22:06:49 -0700 |
---|---|---|
committer | Eric Schulte <schulte.eric@gmail.com> | 2010-06-28 22:06:49 -0700 |
commit | 452b00e7e1a21db21596a72ed729c43860beb340 (patch) | |
tree | 5c9b8c307842f7b95861c8347ba81aea7b37760e | |
parent | 2510d02be92c370ff193af29c89f60249de2aae6 (diff) | |
download | org-mode-452b00e7e1a21db21596a72ed729c43860beb340.tar.gz |
org-exp: fixed small bug, use match data before it's overwritten by looking-at
Patch by Carsten
* lisp/org-exp.el (org-export-mark-blockquote-verse-center): fixed
small bug, now grabbing match data before overwritten by looking-at
this fixes a problem with remainders of #+end_quote lines appearing
in exported output
-rw-r--r-- | lisp/org-exp.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/org-exp.el b/lisp/org-exp.el index f0c11d6..54afdac 100644 --- a/lisp/org-exp.el +++ b/lisp/org-exp.el @@ -1568,8 +1568,8 @@ These special cookies will later be interpreted by the backend." (setq beg (match-beginning 0) beg1 (1+ (match-end 0))) (when (re-search-forward (concat "^[ \t]*#\\+end_" type "\\>.*") nil t) - (setq end (+ (point-at-eol) (if (looking-at "\n$") 1 0)) - end1 (1- (match-beginning 0))) + (setq end1 (1- (match-beginning 0)) + end (+ (point-at-eol) (if (looking-at "\n$") 1 0))) (setq content (org-remove-indentation (buffer-substring beg1 end1))) (setq content (concat "ORG-" (upcase t1) "-START\n" content "\n" |