From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.io!.POSTED.blaine.gmane.org!not-for-mail From: Ken Mankoff Newsgroups: gmane.emacs.bugs Subject: bug#73218: [PATCH] Fix Fortran indent below do_not_a_loop=42 Date: Thu, 12 Sep 2024 11:44:44 -0700 Message-ID: <87o74semoz.fsf@kenmankoff.com> Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" Injection-Info: ciao.gmane.io; posting-host="blaine.gmane.org:116.202.254.214"; logging-data="3302"; mail-complaints-to="usenet@ciao.gmane.io" To: 73218@debbugs.gnu.org Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane-mx.org@gnu.org Fri Sep 13 05:59:18 2024 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 1soxSo-0000ik-Bx for geb-bug-gnu-emacs@m.gmane-mx.org; Fri, 13 Sep 2024 05:59:18 +0200 Original-Received: from localhost ([::1] helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1soxSb-0007VS-D9; Thu, 12 Sep 2024 23:59:07 -0400 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1soxSQ-0006wr-Mp for bug-gnu-emacs@gnu.org; Thu, 12 Sep 2024 23:58:56 -0400 Original-Received: from debbugs.gnu.org ([2001:470:142:5::43]) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1soxSQ-0000ru-6X for bug-gnu-emacs@gnu.org; Thu, 12 Sep 2024 23:58:54 -0400 DKIM-Signature: v=1; a=rsa-sha256; q=dns/txt; c=relaxed/relaxed; d=debbugs.gnu.org; s=debbugs-gnu-org; h=MIME-Version:Date:From:To:Subject; bh=qIUkvcR5HioN9ozhxWeVGgmHP7RQi2DIgBZSiQ5ZBuQ=; b=jPGZSzdxDV6qnF3gdCQsNM3B2FA2pguql6doHjNSmJg3SWGHm9rlzZHBm8v1lF6iJp77+yHh3JCPqOM0aJQuY5UgQxXjgEltiB21AtUasfgVug1NKW0UsnXV3/Ah0cdvORQfdbqba/i+Fq+Yiq76f1oTuCYnKVSK9IjFM89rUVcxP1HjJrUjSkOyBnZHMsJVFzAJVl9P0ZE6prBexY25ufb61BrGd8i8ti0eCDcsp6V8Slm2gysPt8O/t8HjcsiqAB+SPUGczYUOqGnqs+7Y/kQPpc2qAs5syM0+pGmcBy2MrRaK1n49KC4NQ5uDvpBI7VR1LQTlc62tpOrS7yrssg==; Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1soxSY-0007RX-J1 for bug-gnu-emacs@gnu.org; Thu, 12 Sep 2024 23:59:02 -0400 X-Loop: help-debbugs@gnu.org Resent-From: Ken Mankoff Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Fri, 13 Sep 2024 03:59:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: report 73218 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: patch X-Debbugs-Original-To: bug-gnu-emacs@gnu.org Original-Received: via spool by submit@debbugs.gnu.org id=B.172619991328556 (code B ref -1); Fri, 13 Sep 2024 03:59:02 +0000 Original-Received: (at submit) by debbugs.gnu.org; 13 Sep 2024 03:58:33 +0000 Original-Received: from localhost ([127.0.0.1]:42178 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1soxS0-0007QQ-WB for submit@debbugs.gnu.org; Thu, 12 Sep 2024 23:58:33 -0400 Original-Received: from lists.gnu.org ([209.51.188.17]:35012) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1soooN-0002TH-Cr for submit@debbugs.gnu.org; Thu, 12 Sep 2024 14:45:00 -0400 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1soooE-0000f6-Sl for bug-gnu-emacs@gnu.org; Thu, 12 Sep 2024 14:44:50 -0400 Original-Received: from mail-pl1-f176.google.com ([209.85.214.176]) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1soooC-0002uZ-JE for bug-gnu-emacs@gnu.org; Thu, 12 Sep 2024 14:44:50 -0400 Original-Received: by mail-pl1-f176.google.com with SMTP id d9443c01a7336-20570b42f24so15563815ad.1 for ; Thu, 12 Sep 2024 11:44:47 -0700 (PDT) X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20230601; t=1726166686; x=1726771486; h=mime-version:message-id:date:subject:to:from:x-gm-message-state :from:to:cc:subject:date:message-id:reply-to; bh=qIUkvcR5HioN9ozhxWeVGgmHP7RQi2DIgBZSiQ5ZBuQ=; b=Q4q20O70v0mjOVzewc1rSzV2E0NGULCZKar2y56iLvt9n7OmCs5iWBPFBTBrrtKWUS Qc/yWI5Mj3hcInc6nQqYE7bhSjziD2gxrS3kN1K35D2jxVA2QedXCMyJpQCL/j5p2Vob 2KAJUJWQ8ljiNI8xFMLIa0S0HoZYyMZtx68oU0EwdVahpXQWfnSdgeHQwVItTrIkIK14 87HY5VB1pwHQl4k7GGJKcquZCtszIUtj98tCi6kr92o75P79sDaySMhXUJNSXQPOC2E2 oAkNtHYqT+wjQFHlzGgOvx3mbFPQF7Xo8vBwbYYROXsWUWUOvloeknd5CezXvHz4Tl6a qZyw== X-Gm-Message-State: AOJu0YwXnNtXihlwLLfByibPQzwkjF+07UKL1AFaUh0/BgQqf1pr9v+N u8Pdf1ybSyS+jDc9nCUp3G8+DaVvI7MRGDoyHA5+8hfQIthSgVwmFBH9Iw== X-Google-Smtp-Source: AGHT+IFBhDOvDmTwEYQjRdqjIz1LOCSK+CqNaNm6sRE1IUAbZ5RYi0JediZa67jOOhDXarIN155MNg== X-Received: by 2002:a17:902:e548:b0:205:894b:b5b0 with SMTP id d9443c01a7336-2076e38f0e8mr48397515ad.33.1726166685856; Thu, 12 Sep 2024 11:44:45 -0700 (PDT) Original-Received: from t480 (97-126-4-246.tukw.qwest.net. [97.126.4.246]) by smtp.gmail.com with ESMTPSA id d9443c01a7336-2076b01aee5sm17191065ad.300.2024.09.12.11.44.44 for (version=TLS1_3 cipher=TLS_AES_256_GCM_SHA384 bits=256/256); Thu, 12 Sep 2024 11:44:44 -0700 (PDT) Received-SPF: pass client-ip=209.85.214.176; envelope-from=mankoff@gmail.com; helo=mail-pl1-f176.google.com X-Spam_score_int: -15 X-Spam_score: -1.6 X-Spam_bar: - X-Spam_report: (-1.6 / 5.0 requ) BAYES_00=-1.9, FREEMAIL_FORGED_FROMDOMAIN=0.001, FREEMAIL_FROM=0.001, HEADER_FROM_DIFFERENT_DOMAINS=0.25, RCVD_IN_DNSWL_NONE=-0.0001, RCVD_IN_MSPIKE_H2=-0.001, SPF_HELO_NONE=0.001, SPF_PASS=-0.001 autolearn=no autolearn_force=no X-Spam_action: no action X-Mailman-Approved-At: Thu, 12 Sep 2024 23:58:28 -0400 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-bounces+geb-bug-gnu-emacs=m.gmane-mx.org@gnu.org Xref: news.gmane.io gmane.emacs.bugs:291643 Archived-At: --=-=-= Content-Type: text/plain Tags: patch Hello, Following up from https://lists.gnu.org/archive/html/emacs-devel/2024-08/msg00904.html I'm submitting a patch to fix Fortran indentation due to an overly aggressive match for do loops. In GNU Emacs 29.3 (build 1, x86_64-pc-linux-gnu, GTK+ Version 3.24.33, cairo version 1.16.0) of 2024-08-20 built on t480 Repository revision: ae8f815613c2e072e92aa8fe7b4bcf2fdabc7408 Repository branch: HEAD Windowing system distributor 'The X.Org Foundation', version 11.0.12101004 System Description: Ubuntu 22.04.5 LTS Configured using: 'configure --prefix=/home/kdm/local/emacs' --=-=-= Content-Type: text/patch Content-Disposition: attachment; filename=0001-Fix-Fortran-indent-below-do_not_a_loop-42.patch >From ee63122df9d4ad4904030568d56d0ab9f2d200ea Mon Sep 17 00:00:00 2001 From: "Kenneth D. Mankoff" Date: Thu, 12 Sep 2024 11:34:38 -0700 Subject: [PATCH] Fix Fortran indent below do_not_a_loop=42 --- lisp/progmodes/fortran.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/progmodes/fortran.el b/lisp/progmodes/fortran.el index 8a726dfe66e..0643df64f65 100644 --- a/lisp/progmodes/fortran.el +++ b/lisp/progmodes/fortran.el @@ -1631,7 +1631,7 @@ fortran-calculate-indent (setq icol (+ icol fortran-if-indent))) ((looking-at "where[ \t]*(.*)[ \t]*\n") (setq icol (+ icol fortran-if-indent))) - ((looking-at "do\\b") + ((looking-at "do[\\ |0-9]+.*=[\\ a-z0-9_]*,[\\ a-z0-9_]*") (setq icol (+ icol fortran-do-indent))) ((looking-at "\\(structure\\|union\\|map\\|interface\\)\ -- 2.34.1 --=-=-=--