From: Glenn Morris <rgm@gnu.org>
Date: Sun, 10 Aug 2008 01:27:58 +0000 (+0000)
Subject: (org-export-as-html): Let-bind `i'.
X-Git-Tag: emacs-pretest-23.0.90~3553
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5c94b31cbcebc400e64b14b7b60666d5995780e4;p=emacs.git

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

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)