From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.io!.POSTED.blaine.gmane.org!not-for-mail From: Andreas Schwab Newsgroups: gmane.emacs.bugs Subject: bug#47146: 27.0.50; Unexpected indentation for pcase forms in emacs-lisp-mode Date: Thu, 18 Mar 2021 15:03:29 +0100 Message-ID: <87eegch83y.fsf@igel.home> References: <87y2elrp46.fsf@gnus.org> Mime-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: 8bit Injection-Info: ciao.gmane.io; posting-host="blaine.gmane.org:116.202.254.214"; logging-data="20308"; mail-complaints-to="usenet@ciao.gmane.io" User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/27.1.91 (gnu/linux) Cc: 47146@debbugs.gnu.org, Markus Triska , Stefan Monnier To: Lars Ingebrigtsen Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane-mx.org@gnu.org Thu Mar 18 15:04:12 2021 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane-mx.org Original-Received: from lists.gnu.org ([209.51.188.17]) by ciao.gmane.io with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.92) (envelope-from ) id 1lMtG0-00059p-4Z for geb-bug-gnu-emacs@m.gmane-mx.org; Thu, 18 Mar 2021 15:04:12 +0100 Original-Received: from localhost ([::1]:56744 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1lMtFz-0006Pb-5d for geb-bug-gnu-emacs@m.gmane-mx.org; Thu, 18 Mar 2021 10:04:11 -0400 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]:51010) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1lMtFs-0006PP-2A for bug-gnu-emacs@gnu.org; Thu, 18 Mar 2021 10:04:04 -0400 Original-Received: from debbugs.gnu.org ([209.51.188.43]:36075) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1lMtFr-0005nJ-R2 for bug-gnu-emacs@gnu.org; Thu, 18 Mar 2021 10:04:03 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1lMtFq-0007HR-5e for bug-gnu-emacs@gnu.org; Thu, 18 Mar 2021 10:04:02 -0400 X-Loop: help-debbugs@gnu.org Resent-From: Andreas Schwab Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Thu, 18 Mar 2021 14:04:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 47146 X-GNU-PR-Package: emacs Original-Received: via spool by 47146-submit@debbugs.gnu.org id=B47146.161607621827954 (code B ref 47146); Thu, 18 Mar 2021 14:04:02 +0000 Original-Received: (at 47146) by debbugs.gnu.org; 18 Mar 2021 14:03:38 +0000 Original-Received: from localhost ([127.0.0.1]:47621 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1lMtFR-0007Go-Od for submit@debbugs.gnu.org; Thu, 18 Mar 2021 10:03:37 -0400 Original-Received: from mail-out.m-online.net ([212.18.0.10]:56248) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1lMtFO-0007Ge-PZ for 47146@debbugs.gnu.org; Thu, 18 Mar 2021 10:03:36 -0400 Original-Received: from frontend01.mail.m-online.net (unknown [192.168.8.182]) by mail-out.m-online.net (Postfix) with ESMTP id 4F1TJh1t0bz1s0tN; Thu, 18 Mar 2021 15:03:31 +0100 (CET) Original-Received: from localhost (dynscan1.mnet-online.de [192.168.6.70]) by mail.m-online.net (Postfix) with ESMTP id 4F1TJg6YChz1qql1; Thu, 18 Mar 2021 15:03:31 +0100 (CET) X-Virus-Scanned: amavisd-new at mnet-online.de Original-Received: from mail.mnet-online.de ([192.168.8.182]) by localhost (dynscan1.mail.m-online.net [192.168.6.70]) (amavisd-new, port 10024) with ESMTP id qO0aPNjdxb-0; Thu, 18 Mar 2021 15:03:31 +0100 (CET) X-Auth-Info: H3op1Zo3zlaObjmuvyooHTL5GfazW4wpGDVWKIfTS166eOPb/Qh4+3azfgGJVroD Original-Received: from igel.home (ppp-46-244-182-233.dynamic.mnet-online.de [46.244.182.233]) (using TLSv1.2 with cipher ECDHE-RSA-AES256-GCM-SHA384 (256/256 bits)) (No client certificate requested) by mail.mnet-online.de (Postfix) with ESMTPSA; Thu, 18 Mar 2021 15:03:31 +0100 (CET) Original-Received: by igel.home (Postfix, from userid 1000) id F117E2C3210; Thu, 18 Mar 2021 15:03:29 +0100 (CET) X-Yow: I love FRUIT PICKERS!! In-Reply-To: <87y2elrp46.fsf@gnus.org> (Lars Ingebrigtsen's message of "Thu, 18 Mar 2021 06:46:01 +0100") X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list 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-mx.org@gnu.org Original-Sender: "bug-gnu-emacs" Xref: news.gmane.io gmane.emacs.bugs:202598 Archived-At: On Mär 18 2021, Lars Ingebrigtsen wrote: > Markus Triska writes: > >> Starting Emacs with: >> >> $ emacs -Q >> >> I get the following indentation: >> >> (defun word (arg) >> (pcase arg >> ('love >> 'amour) >> ('always >> 'toujours) >> ('if >> 'si) >> ('emacs >> 'emacs))) > > I guess `lisp-indent-calc-next' is interpreting the "('if" as if it were > "(if"? It's lisp-indent-function that calculates the indentation. It is called with a pps state where start of last complete sexp terminated points to `if' and start of innermost containing list points to the preceding paren. It then determines that `if' has a lisp-indent-function property of 2. So if there is any bug, it is probably in parse-partial-sexp. Andreas. -- Andreas Schwab, schwab@linux-m68k.org GPG Key fingerprint = 7578 EB47 D4E5 4D69 2510 2552 DF73 E780 A9DA AEC1 "And now for something completely different."