Argh, it should be:
(defun org-switch-to-new-lists ()
"Make current buffer compatible with new list definition."
(goto-char (point-min))
(let ((case-fold-search t))
(while (< (point) (point-max))
(while (and (org-in-item-p)
(not (org-at-item-p))
(not (looking-at "^[ \t]*$"))
(not (and (org-in-regexps-block-p
"^[ \t]*#\\+begin_" "^[ \t]*#\\+end_")
(not (looking-at "^[ \t]*#\\+begin_"))))
(<= (org-get-indentation)
(save-excursion
(org-beginning-of-item)
(org-get-indentation))))
(newline))
(beginning-of-line 2))))
Sorry for the noise.
Regards,
-- Nicolas
_______________________________________________
Emacs-orgmode mailing list
Please use `Reply All' to send replies to the list.
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode
