From 5c94b31cbcebc400e64b14b7b60666d5995780e4 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Sun, 10 Aug 2008 01:27:58 +0000 Subject: [PATCH] (org-export-as-html): Let-bind `i'. --- lisp/org/ChangeLog | 8 ++++++++ lisp/org/org-exp.el | 12 ++++++------ 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 + + * 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 * 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) -- 2.39.5