ob-exp: Fix small bug
authorNicolas Goaziou <n.goaziou@gmail.com>
Tue, 23 Oct 2012 20:27:58 +0000 (22:27 +0200)
committerNicolas Goaziou <n.goaziou@gmail.com>
Tue, 23 Oct 2012 20:27:58 +0000 (22:27 +0200)
* lisp/ob-exp.el (org-export-blocks-preprocess): Pos can sometimes be
  set to a value greater than start, because of indentation, and lead
  to a search bound error.

lisp/ob-exp.el

index 8d11e45..a2b0f48 100644 (file)
@@ -291,7 +291,7 @@ this template."
                                           (indent-line-to ind))
                         ;; Indent everything.
                         (indent-code-rigidly match-start (point) ind)))))
-             (setq pos (point))
+             (setq pos (line-beginning-position))
               ;; Cleanup markers.
              (set-marker match-start nil)
              (set-marker begin nil)