From mboxrd@z Thu Jan  1 00:00:00 1970
From: Nicolas Goaziou <n.goaziou@gmail.com>
Subject: Re: [ANN] List improvement v.2
Date: Sun, 15 Aug 2010 16:07:35 +0200
Message-ID: <87vd7c6kbc.wl%n.goaziou@gmail.com>
References: <87ocdzw7gq.wl%n.goaziou@gmail.com>
	<256365B6-8D44-4EC3-A4A5-935ED090DFFD@gmail.com>
	<87wrrs6mgx.wl%n.goaziou@gmail.com>
Mime-Version: 1.0 (generated by SEMI 1.14.6 - "Maruoka")
Content-Type: text/plain; charset=US-ASCII
Return-path: <emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org>
Received: from [140.186.70.92] (port=44816 helo=eggs.gnu.org)
	by lists.gnu.org with esmtp (Exim 4.43) id 1Okdsg-0001OL-Op
	for emacs-orgmode@gnu.org; Sun, 15 Aug 2010 10:08:11 -0400
Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.69)
	(envelope-from <n.goaziou@gmail.com>) id 1Okdsf-000519-LL
	for emacs-orgmode@gnu.org; Sun, 15 Aug 2010 10:08:10 -0400
Received: from mail-wy0-f169.google.com ([74.125.82.169]:37374)
	by eggs.gnu.org with esmtp (Exim 4.69)
	(envelope-from <n.goaziou@gmail.com>) id 1Okdsf-000510-Cv
	for emacs-orgmode@gnu.org; Sun, 15 Aug 2010 10:08:09 -0400
Received: by wyg36 with SMTP id 36so5160776wyg.0
	for <emacs-orgmode@gnu.org>; Sun, 15 Aug 2010 07:08:08 -0700 (PDT)
In-Reply-To: <87wrrs6mgx.wl%n.goaziou@gmail.com>
List-Id: "General discussions about Org-mode." <emacs-orgmode.gnu.org>
List-Unsubscribe: <http://lists.gnu.org/mailman/listinfo/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=unsubscribe>
List-Archive: <http://lists.gnu.org/archive/html/emacs-orgmode>
List-Post: <mailto:emacs-orgmode@gnu.org>
List-Help: <mailto:emacs-orgmode-request@gnu.org?subject=help>
List-Subscribe: <http://lists.gnu.org/mailman/listinfo/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=subscribe>
Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org
Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org
To: Nicolas Goaziou <n.goaziou@gmail.com>
Cc: Org Mode List <emacs-orgmode@gnu.org>, Carsten Dominik <carsten.dominik@gmail.com>

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