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