From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Leo Liu Newsgroups: gmane.emacs.bugs Subject: bug#14381: 24.3; smie-auto-fill infinite loop Date: Fri, 10 May 2013 21:06:15 +0800 Message-ID: NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: ger.gmane.org 1368191224 31502 80.91.229.3 (10 May 2013 13:07:04 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Fri, 10 May 2013 13:07:04 +0000 (UTC) To: 14381@debbugs.gnu.org Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Fri May 10 15:07:03 2013 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 1Uan2M-0003eU-4j for geb-bug-gnu-emacs@m.gmane.org; Fri, 10 May 2013 15:07:02 +0200 Original-Received: from localhost ([::1]:32876 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Uan2L-0001NU-Md for geb-bug-gnu-emacs@m.gmane.org; Fri, 10 May 2013 09:07:01 -0400 Original-Received: from eggs.gnu.org ([208.118.235.92]:54925) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Uan2I-0001NP-0k for bug-gnu-emacs@gnu.org; Fri, 10 May 2013 09:06:59 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1Uan2D-0000bi-2v for bug-gnu-emacs@gnu.org; Fri, 10 May 2013 09:06:57 -0400 Original-Received: from debbugs.gnu.org ([140.186.70.43]:59570) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Uan2C-0000bd-W8 for bug-gnu-emacs@gnu.org; Fri, 10 May 2013 09:06:53 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.72) (envelope-from ) id 1Uan2M-0001UW-5V for bug-gnu-emacs@gnu.org; Fri, 10 May 2013 09:07:02 -0400 X-Loop: help-debbugs@gnu.org Resent-From: Leo Liu Original-Sender: debbugs-submit-bounces@debbugs.gnu.org Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Fri, 10 May 2013 13:07:01 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: report 14381 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: X-Debbugs-Original-To: bug-gnu-emacs@gnu.org Original-Received: via spool by submit@debbugs.gnu.org id=B.13681912135692 (code B ref -1); Fri, 10 May 2013 13:07:01 +0000 Original-Received: (at submit) by debbugs.gnu.org; 10 May 2013 13:06:53 +0000 Original-Received: from localhost ([127.0.0.1]:35446 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.72) (envelope-from ) id 1Uan2B-0001TX-4y for submit@debbugs.gnu.org; Fri, 10 May 2013 09:06:53 -0400 Original-Received: from eggs.gnu.org ([208.118.235.92]:43431) by debbugs.gnu.org with esmtp (Exim 4.72) (envelope-from ) id 1Uan27-0001TG-M5 for submit@debbugs.gnu.org; Fri, 10 May 2013 09:06:48 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1Uan1s-0000Xj-MR for submit@debbugs.gnu.org; Fri, 10 May 2013 09:06:37 -0400 Original-Received: from lists.gnu.org ([208.118.235.17]:42362) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Uan1s-0000Xf-JD for submit@debbugs.gnu.org; Fri, 10 May 2013 09:06:32 -0400 Original-Received: from eggs.gnu.org ([208.118.235.92]:54757) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Uan1q-0001HJ-D9 for bug-gnu-emacs@gnu.org; Fri, 10 May 2013 09:06:32 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1Uan1l-0000Vx-UR for bug-gnu-emacs@gnu.org; Fri, 10 May 2013 09:06:30 -0400 Original-Received: from mail-pd0-f172.google.com ([209.85.192.172]:58816) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Uan1l-0000Vt-Ga for bug-gnu-emacs@gnu.org; Fri, 10 May 2013 09:06:25 -0400 Original-Received: by mail-pd0-f172.google.com with SMTP id 6so2758947pdd.3 for ; Fri, 10 May 2013 06:06:24 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20120113; h=x-received:from:to:subject:date:message-id:mime-version :content-type; bh=NgPDKFyyZQ1tKZya6M5ETbk1/jIqNO3ip8FyOhZvPr8=; b=pCnaC7rPRFTm6OyUcbKaDnIYgv/Ijqjz1WUK6WQY0Y1I5BqASme/kdQcJQPaz3Q1uQ drAti+vJCFRrmVQBeuJcehAfH1qe8be9NM4ulY8KOxbgMVm4bW3zcXM/7V0j5ZCj8M5N SHlj/ZiGm7Bfz29LMvdveGlQKfudCzKPPVapBpVUOgjN6OMX1ybfQRvPKz8BYdbg/TTb G9iJNzB+biZd1KuwFZYyruvaGbT7LSqxlkzyy1Lyda/z+qs9l+IUNxQHoT+XP7DoTh2B iLepQHN2qr8ARBB/5wQGX4F5yQjD3t3OFQizYRugVKwv0OF4welS+OYLe764Bhtlhtp3 4j9A== X-Received: by 10.68.218.8 with SMTP id pc8mr17117639pbc.115.1368191184440; Fri, 10 May 2013 06:06:24 -0700 (PDT) Original-Received: from Zeuss-MacBook.local ([119.161.133.157]) by mx.google.com with ESMTPSA id do4sm2687432pbc.8.2013.05.10.06.06.22 for (version=TLSv1.2 cipher=RC4-SHA bits=128/128); Fri, 10 May 2013 06:06:23 -0700 (PDT) X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.2.x-3.x [generic] [fuzzy] X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6.x X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.13 Precedence: list X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6.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:74120 Archived-At: --=-=-= Content-Type: text/plain 1. emacs -q 2. open the attached bug.m file 3. move to the end of second line 4. M-: (smie-auto-fill) Should enter an infinite loop. Debugger entered--Lisp error: (quit) syntax-ppss() smie-indent-comment-inside() run-hook-with-args-until-success(smie-indent-comment-inside) smie-indent-calculate() (let* ((newcol (smie-indent-calculate)) (newgain (- curcol newcol))) (when (> newgain gain) (setq gain newgain) (setq bsf (point)))) (while (<= (setq curcol (current-column)) fc) (let* ((newcol (smie-indent-calculate)) (newgain (- curcol newcol))) (when (> newgain gain) (setq gain newgain) (setq bsf (point)))) (smie-indent-forward-token)) (let ((bsf (point)) (gain 0) curcol) (while (<= (setq curcol (current-column)) fc) (let* ((newcol (smie-indent-calculate)) (newgain (- curcol newcol))) (when (> newgain gain) (setq gain newgain) (setq bsf (point)))) (smie-indent-forward-token)) (when (> gain 0) (goto-char bsf) (newline-and-indent))) (save-excursion (beginning-of-line) (smie-indent-forward-token) (let ((bsf (point)) (gain 0) curcol) (while (<= (setq curcol (current-column)) fc) (let* ((newcol (smie-indent-calculate)) (newgain (- curcol newcol))) (when (> newgain gain) (setq gain newgain) (setq bsf (point)))) (smie-indent-forward-token)) (when (> gain 0) (goto-char bsf) (newline-and-indent)))) (cond ((not (or (nth 8 (save-excursion (syntax-ppss (line-beginning-position)))) (nth 8 (syntax-ppss)))) (save-excursion (beginning-of-line) (smie-indent-forward-token) (let ((bsf (point)) (gain 0) curcol) (while (<= (setq curcol (current-column)) fc) (let* ((newcol ...) (newgain ...)) (when (> newgain gain) (setq gain newgain) (setq bsf ...))) (smie-indent-forward-token)) (when (> gain 0) (goto-char bsf) (newline-and-indent))))) (t (do-auto-fill))) (while (and fc (> (current-column) fc)) (cond ((not (or (nth 8 (save-excursion (syntax-ppss ...))) (nth 8 (syntax-ppss)))) (save-excursion (beginning-of-line) (smie-indent-forward-token) (let ((bsf (point)) (gain 0) curcol) (while (<= (setq curcol ...) fc) (let* (... ...) (when ... ... ...)) (smie-indent-forward-token)) (when (> gain 0) (goto-char bsf) (newline-and-indent))))) (t (do-auto-fill)))) (let ((fc (current-fill-column))) (while (and fc (> (current-column) fc)) (cond ((not (or (nth 8 (save-excursion ...)) (nth 8 (syntax-ppss)))) (save-excursion (beginning-of-line) (smie-indent-forward-token) (let ((bsf ...) (gain 0) curcol) (while (<= ... fc) (let* ... ...) (smie-indent-forward-token)) (when (> gain 0) (goto-char bsf) (newline-and-indent))))) (t (do-auto-fill))))) smie-auto-fill() eval((smie-auto-fill) nil) eval-expression((smie-auto-fill) nil) call-interactively(eval-expression nil nil) --=-=-= Content-Type: text/plain Content-Disposition: attachment; filename=bug.m Content-Description: bug.m ## -*-Octave-*- printf ("aaaa dddd dddd dddd dddd dddd dddd dddd dddd dddd dddd dddd dddd #i", abcd) --=-=-=--