From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Juri Linkov Newsgroups: gmane.emacs.bugs Subject: bug#16461: 24.3.50; electric eats too much Date: Fri, 17 Jan 2014 10:05:17 +0200 Organization: JURTA Message-ID: <87fvon58zo.fsf@mail.jurta.org> References: <87vbxk5ppo.fsf@mail.jurta.org> NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: text/plain X-Trace: ger.gmane.org 1389946033 26216 80.91.229.3 (17 Jan 2014 08:07:13 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Fri, 17 Jan 2014 08:07:13 +0000 (UTC) Cc: 16461@debbugs.gnu.org To: Stefan Monnier Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Fri Jan 17 09:07:19 2014 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1W44SU-0002pK-Mz for geb-bug-gnu-emacs@m.gmane.org; Fri, 17 Jan 2014 09:07:18 +0100 Original-Received: from localhost ([::1]:36735 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1W44SU-0002Ii-2B for geb-bug-gnu-emacs@m.gmane.org; Fri, 17 Jan 2014 03:07:18 -0500 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:36487) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1W44SK-0002II-SY for bug-gnu-emacs@gnu.org; Fri, 17 Jan 2014 03:07:14 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1W44SE-0001PC-TD for bug-gnu-emacs@gnu.org; Fri, 17 Jan 2014 03:07:08 -0500 Original-Received: from debbugs.gnu.org ([140.186.70.43]:40354) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1W44SE-0001P7-Pf for bug-gnu-emacs@gnu.org; Fri, 17 Jan 2014 03:07:02 -0500 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.80) (envelope-from ) id 1W44SE-0002MM-9u for bug-gnu-emacs@gnu.org; Fri, 17 Jan 2014 03:07:02 -0500 X-Loop: help-debbugs@gnu.org Resent-From: Juri Linkov Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Fri, 17 Jan 2014 08:07:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 16461 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: Original-Received: via spool by 16461-submit@debbugs.gnu.org id=B16461.13899459698992 (code B ref 16461); Fri, 17 Jan 2014 08:07:02 +0000 Original-Received: (at 16461) by debbugs.gnu.org; 17 Jan 2014 08:06:09 +0000 Original-Received: from localhost ([127.0.0.1]:54373 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1W44RM-0002Kv-BM for submit@debbugs.gnu.org; Fri, 17 Jan 2014 03:06:08 -0500 Original-Received: from [69.163.184.122] (port=38993 helo=ps18281.dreamhostps.com) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1W44RJ-0002Kk-Vi for 16461@debbugs.gnu.org; Fri, 17 Jan 2014 03:06:06 -0500 Original-Received: from localhost.jurta.org (ps18281.dreamhostps.com [69.163.184.122]) by ps18281.dreamhostps.com (Postfix) with ESMTP id 34B9E30021EED9; Fri, 17 Jan 2014 00:06:05 -0800 (PST) In-Reply-To: (Stefan Monnier's message of "Thu, 16 Jan 2014 09:02:59 -0500") User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.3.50 (x86_64-pc-linux-gnu) X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.15 Precedence: list X-detected-operating-system: by eggs.gnu.org: GNU/Linux 3.x X-Received-From: 140.186.70.43 X-BeenThere: bug-gnu-emacs@gnu.org List-Id: "Bug reports for GNU Emacs, the Swiss army knife of text editors" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Original-Sender: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.bugs:83629 Archived-At: > But I also think that indent-line-to should *not* eat ^L. This patch fixes the problem and doesn't eat ^L: === modified file 'lisp/indent.el' --- lisp/indent.el 2014-01-15 08:22:41 +0000 +++ lisp/indent.el 2014-01-17 08:05:10 +0000 @@ -265,7 +265,7 @@ (defun indent-line-to (column) "Indent current line to COLUMN. This function removes or adds spaces and tabs at beginning of line only if necessary. It leaves point at end of indentation." - (back-to-indentation) + (backward-to-indentation 0) (let ((cur-col (current-column))) (cond ((< cur-col column) (if (>= (- column (* (/ cur-col tab-width) tab-width)) tab-width) @@ -274,7 +274,7 @@ (defun indent-line-to (column) (indent-to column)) ((> cur-col column) ; too far right (after tab?) (delete-region (progn (move-to-column column t) (point)) - (progn (back-to-indentation) (point))))))) + (progn (backward-to-indentation 0) (point))))))) (defun current-left-margin () "Return the left margin to use for this line.