(org-export-as-html): Let-bind `i'.

2 files changed, 14 insertions, 6 deletions

diff --git a/lisp/org/ChangeLog b/lisp/org/ChangeLog
index f95df7f7bfb..95601912fe5 100644
--- a/lisp/org/ChangeLog
+++ b/lisp/org/ChangeLog
@@ -1,3 +1,11 @@
+2008-08-10  Glenn Morris  <rgm@gnu.org>
+
+        * org-exp.el (org-export-as-html): Let-bind `i'.
+
+        * org.el (org-renumber-ordered-list): Fix bob/bobp typo.
+        (org-extract-attributes): Let-bind `key', `value'.
+        (org-make-tags-matcher): Let-bind `time-p'.
+
 2008-07-27  Carsten Dominik  <dominik@science.uva.nl>
 
         * org-install.el: New file.
diff --git a/lisp/org/org-exp.el b/lisp/org/org-exp.el
index a1baadc884c..bfdeb1271e8 100644
--- a/lisp/org/org-exp.el
+++ b/lisp/org/org-exp.el
@@ -2993,12 +2993,12 @@ lang=\"%s\" xml:lang=\"%s\">
             (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)