# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1218331673 0
# Node ID 9da424c0c9c9c78c83b97634b9ce74cb657460b8
# Parent  11deca4a880b3162538963e310398065c2276ce1
(org-export-as-html): Let-bind `i'.

diff -r 11deca4a880b -r 9da424c0c9c9 lisp/org/org-exp.el
--- a/lisp/org/org-exp.el	Sun Aug 10 01:27:40 2008 +0000
+++ b/lisp/org/org-exp.el	Sun Aug 10 01:27:53 2008 +0000
@@ -2993,12 +2993,12 @@
 	    (setq inverse nil)
 	    (throw 'nextline nil))
 	  (when inverse
-	    (setq i (org-get-string-indentation line))
-	    (if (> i 0)
-		(setq line (concat (mapconcat 'identity
-					      (make-list (* 2 i) "\\nbsp") "")
-				   " " (org-trim line))))
-	    (setq line (concat line " \\\\")))
+	    (let ((i (org-get-string-indentation line)))
+              (if (> i 0)
+                  (setq line (concat (mapconcat 'identity
+                                                (make-list (* 2 i) "\\nbsp") "")
+                                     " " (org-trim line))))
+              (setq line (concat line " \\\\"))))
 
 	  ;; make targets to anchors
 	  (while (string-match "<<<?\\([^<>]*\\)>>>?\\((INVISIBLE)\\)?[ \t]*\n?" line)