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

diff --git a/lisp/org/ChangeLog b/lisp/org/ChangeLog
index f95df7f7bfb81d4dfc5ce9aa4e9610dbb8587f07..95601912fe537e2c842e9e469d02d42de8f4429a 100644 (file)
--- 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 a1baadc884c31b8ff6841cb851d5485f8f43346a..bfdeb1271e81c9578b3a073933af879f22d6e3b8 100644 (file)
--- 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)