andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Glenn Morris 2008-08-10 01:27:58 +00:00
parent 3281cf1113
commit 5c94b31cbc
2 changed files with 14 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/org/ChangeLog
View file

@ -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.

12
lisp/org/org-exp.el
View file

@ -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)