Mercurial > emacs

changeset 97391:9da424c0c9c9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(org-export-as-html): Let-bind `i'.
author Glenn Morris <rgm@gnu.org>
date Sun, 10 Aug 2008 01:27:53 +0000
parents 11deca4a880b
children e01a98a71019
files lisp/org/org-exp.el
diffstat 1 files changed, 6 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- 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)