From mboxrd@z Thu Jan  1 00:00:00 1970
Path: news.gmane.org!not-for-mail
From: Richard Stallman <rms@gnu.org>
Newsgroups: gmane.emacs.devel
Subject: Re: [Proposal] M-x tabify to indent only when needed.
Date: Mon, 24 Jul 2006 17:50:27 -0400
Message-ID: <E1G58Jn-0005k5-0l@fencepost.gnu.org>
References: <8764hm7vwo.fsf@lrde.org>
Reply-To: rms@gnu.org
NNTP-Posting-Host: main.gmane.org
Content-Type: text/plain; charset=ISO-8859-15
X-Trace: sea.gmane.org 1153777898 32737 80.91.229.2 (24 Jul 2006 21:51:38 GMT)
X-Complaints-To: usenet@sea.gmane.org
NNTP-Posting-Date: Mon, 24 Jul 2006 21:51:38 +0000 (UTC)
Cc: emacs-devel@gnu.org
Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Mon Jul 24 23:51:36 2006
Return-path: <emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org>
Envelope-to: ged-emacs-devel@m.gmane.org
Original-Received: from lists.gnu.org ([199.232.76.165])
	by ciao.gmane.org with esmtp (Exim 4.43)
	id 1G58Kq-0008Po-1m
	for ged-emacs-devel@m.gmane.org; Mon, 24 Jul 2006 23:51:32 +0200
Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org)
	by lists.gnu.org with esmtp (Exim 4.43)
	id 1G58Kp-0001yA-CA
	for ged-emacs-devel@m.gmane.org; Mon, 24 Jul 2006 17:51:31 -0400
Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43)
	id 1G58Jp-0001Si-LR
	for emacs-devel@gnu.org; Mon, 24 Jul 2006 17:50:29 -0400
Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43)
	id 1G58Jp-0001SL-08
	for emacs-devel@gnu.org; Mon, 24 Jul 2006 17:50:29 -0400
Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org)
	by lists.gnu.org with esmtp (Exim 4.43) id 1G58Jo-0001SG-Qh
	for emacs-devel@gnu.org; Mon, 24 Jul 2006 17:50:28 -0400
Original-Received: from [199.232.76.164] (helo=fencepost.gnu.org)
	by monty-python.gnu.org with esmtp (Exim 4.52) id 1G58Kz-0003ZH-Gn
	for emacs-devel@gnu.org; Mon, 24 Jul 2006 17:51:41 -0400
Original-Received: from rms by fencepost.gnu.org with local (Exim 4.34)
	id 1G58Jn-0005k5-0l; Mon, 24 Jul 2006 17:50:27 -0400
Original-To: michael.cadilhac@lrde.org (=?iso-8859-1?Q?Micha=EBl?= Cadilhac)
In-reply-to: <8764hm7vwo.fsf@lrde.org> (michael.cadilhac@lrde.org)
X-BeenThere: emacs-devel@gnu.org
X-Mailman-Version: 2.1.5
Precedence: list
List-Id: "Emacs development discussions." <emacs-devel.gnu.org>
List-Unsubscribe: <http://lists.gnu.org/mailman/listinfo/emacs-devel>,
	<mailto:emacs-devel-request@gnu.org?subject=unsubscribe>
List-Archive: <http://lists.gnu.org/pipermail/emacs-devel>
List-Post: <mailto:emacs-devel@gnu.org>
List-Help: <mailto:emacs-devel-request@gnu.org?subject=help>
List-Subscribe: <http://lists.gnu.org/mailman/listinfo/emacs-devel>,
	<mailto:emacs-devel-request@gnu.org?subject=subscribe>
Original-Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org
Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org
Xref: news.gmane.org gmane.emacs.devel:57582
Archived-At: <http://permalink.gmane.org/gmane.emacs.devel/57582>

    ! 	  (unless (save-match-data
    ! 		    (save-excursion
    ! 		      (goto-char (match-beginning 0))
    ! 		      (string-match
    ! 		       (format "^\t* \\{0,%d\\}$"
    ! 			       (- tab-width (1+ (mod (current-column) tab-width))))
    ! 		       (match-string 0))))

That would be very slow.  Please do it without using regexps,
perhaps using skip-chars-forward.