From mboxrd@z Thu Jan  1 00:00:00 1970
From: Michael Brand <michael.ch.brand@gmail.com>
Subject: Re: Corrupted TBLFM after table edit
Date: Thu, 9 Jan 2014 12:04:04 +0100
Message-ID: <CALn3zohazZGOMHeS8atpr39gQ7nNdFcBsX_574efo+qPQgzysg@mail.gmail.com>
References: <CALn3zogTnzpJcdHrb6MZByFw_1Xoa-ihyQvvDTmkn-7YbX6vVw@mail.gmail.com>
	<87wqi9wjye.fsf@bzg.ath.cx>
Mime-Version: 1.0
Content-Type: text/plain; charset=ISO-8859-1
Return-path: <emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org>
Received: from eggs.gnu.org ([2001:4830:134:3::10]:47094)
	by lists.gnu.org with esmtp (Exim 4.71)
	(envelope-from <michael.ch.brand@gmail.com>) id 1W1DPD-0002c1-OG
	for emacs-orgmode@gnu.org; Thu, 09 Jan 2014 06:04:08 -0500
Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71)
	(envelope-from <michael.ch.brand@gmail.com>) id 1W1DPC-0008Np-Ip
	for emacs-orgmode@gnu.org; Thu, 09 Jan 2014 06:04:07 -0500
In-Reply-To: <87wqi9wjye.fsf@bzg.ath.cx>
List-Id: "General discussions about Org-mode." <emacs-orgmode.gnu.org>
List-Unsubscribe: <https://lists.gnu.org/mailman/options/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: <https://lists.gnu.org/mailman/listinfo/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=subscribe>
Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org
Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org
To: Bastien <bzg@gnu.org>
Cc: Org Mode <emacs-orgmode@gnu.org>

Hi Bastien

On Thu, Jan 9, 2014 at 11:03 AM, Bastien <bzg@gnu.org> wrote:
> This is now fixed, thanks.

The release_8.2.5c-8-ga2619b7 this refers to solves only a part of the
bugs introduced with the greedy (re-search-forward "^\\S-*$\\|\\'" nil
t). It does not work before the first headline, does not cover #+TBLFM
in list items etc. without end.

I suggest to solve this completely differently by replacing the greedy
(re-search-forward "^\\S-*$\\|\\'" nil t) and not using s-end any
more. I would change the "while" to

    (while (let ((case-fold-search t)) (looking-at "[ \t]*#\\+tblfm:"))
      [...]
      (forward-line))

which is simple and water-proof.

Michael