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

Reply via email to