From unknown Sat Aug 16 16:06:28 2025 X-Loop: help-debbugs@gnu.org Subject: bug#33208: 26.1; mark-defun gives incorrect results in some fixed format FORTRAN Resent-From: "Fairey, Robin M." Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Tue, 30 Oct 2018 17:23:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: report 33208 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: To: 33208@debbugs.gnu.org X-Debbugs-Original-To: "bug-gnu-emacs@gnu.org" Received: via spool by submit@debbugs.gnu.org id=B.154092016710971 (code B ref -1); Tue, 30 Oct 2018 17:23:02 +0000 Received: (at submit) by debbugs.gnu.org; 30 Oct 2018 17:22:47 +0000 Received: from localhost ([127.0.0.1]:55841 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1gHXj2-0002qp-7O for submit@debbugs.gnu.org; Tue, 30 Oct 2018 13:22:46 -0400 Received: from eggs.gnu.org ([208.118.235.92]:56901) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1gHXYY-0002aG-VB for submit@debbugs.gnu.org; Tue, 30 Oct 2018 13:11:55 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1gHXYS-0007gr-VX for submit@debbugs.gnu.org; Tue, 30 Oct 2018 13:11:49 -0400 X-Spam-Checker-Version: SpamAssassin 3.3.2 (2011-06-06) on eggs.gnu.org X-Spam-Level: *** X-Spam-Status: No, score=3.3 required=5.0 tests=BAYES_50, RECEIVED_FROM_WINDOWS_HOST autolearn=disabled version=3.3.2 Received: from lists.gnu.org ([2001:4830:134:3::11]:51996) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_256_CBC_SHA1:32) (Exim 4.71) (envelope-from ) id 1gHXYS-0007gT-RX for submit@debbugs.gnu.org; Tue, 30 Oct 2018 13:11:48 -0400 Received: from eggs.gnu.org ([2001:4830:134:3::10]:38229) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1gHXYR-0005pe-Lj for bug-gnu-emacs@gnu.org; Tue, 30 Oct 2018 13:11:48 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1gHXYO-0007cG-5l for bug-gnu-emacs@gnu.org; Tue, 30 Oct 2018 13:11:47 -0400 Received: from mail-sn1nam02on0057.outbound.protection.outlook.com ([104.47.36.57]:40212 helo=NAM02-SN1-obe.outbound.protection.outlook.com) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_256_CBC_SHA1:32) (Exim 4.71) (envelope-from ) id 1gHXYN-0007PG-Sg for bug-gnu-emacs@gnu.org; Tue, 30 Oct 2018 13:11:44 -0400 DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=InternationalTech.onmicrosoft.com; s=selector1-itiglobal-com0i; h=From:Date:Subject:Message-ID:Content-Type:MIME-Version:X-MS-Exchange-SenderADCheck; bh=Qb93jm3pI1gmUdgUbOPIg1enNTktrct7Hir6wa6hHIY=; b=UteopC3e4NNYJQL2MXencSRl4JSAc7OiNf3d88shYObCxkrWvWCrU5g/BhpppFb57kNeofXGluraCQn50UtBxjc+IM5QwjHi6Nk9fLHvY3K5r7Ohz9vFvo4VBpiAnaoo3reYT9bJo5R0sJSbr2OBCVwTjEF9ZMx2K2oSkSQqYwg= Received: from BYAPR13MB2280.namprd13.prod.outlook.com (52.135.229.10) by BYAPR13MB2262.namprd13.prod.outlook.com (52.135.228.156) with Microsoft SMTP Server (version=TLS1_2, cipher=TLS_ECDHE_RSA_WITH_AES_256_GCM_SHA384) id 15.20.1294.15; Tue, 30 Oct 2018 17:11:14 +0000 Received: from BYAPR13MB2280.namprd13.prod.outlook.com ([fe80::10b6:c327:db24:8747]) by BYAPR13MB2280.namprd13.prod.outlook.com ([fe80::10b6:c327:db24:8747%2]) with mapi id 15.20.1294.018; Tue, 30 Oct 2018 17:11:14 +0000 From: "Fairey, Robin M." Thread-Topic: 26.1; mark-defun gives incorrect results in some fixed format FORTRAN Thread-Index: AdRwc47+bll6AZIUQYuo7lYLcn4DZA== Date: Tue, 30 Oct 2018 17:11:14 +0000 Message-ID: Accept-Language: en-GB, en-US Content-Language: en-US X-MS-Has-Attach: X-MS-TNEF-Correlator: x-originating-ip: [195.26.46.14] x-ms-publictraffictype: Email x-microsoft-exchange-diagnostics: 1; BYAPR13MB2262; 6:UT0jxovB10xCD37oCrMDV46cqVooFhbdidmFaNxulVEOvOBW/V6U61ZA7xLhgbukg4EqO566Ykw4Qmu8/mC9WlobTXHnMZS9DdQ9wEaGKMiZOv18EeAb8k8op35w2oX4xeiQLNCBQUPZULEpmCxv/DatyeWdK3QTSDhpT2HGdLa6GUpuLvxPfKhKN7fQlIwVltNQSwvEObtLED3FNde3wtMqrQ4dmyqCfKRIt4S/oFxYoSD4t6aNHz2NXmxf5iDQKBt0S/bngS6hUSYfzKM3JgVKBxo/IXoKnmhMkKO93KilzMhsD10MBhXv4tPmTf5FY3hI5FP8+MQD4XuKFoEX5GazQJj8pEMIU70SwZIn29dnzZhy5FWovjhKBeOnsIe14wzR429SfXwn07XP46nCeCoVMhBSo2bvjJCk2HW6j/zNvqdcHeZ3eOqBC5F9iL5usnLYyYxg9Dogaw8FrWNR7Q==; 5:kg6oEdiRqzmB/DpdaYkjfvNQ6gc3SWp3+GW1Ewft85Vp2t+VhmfhypRtFdaNxd2KNHtkvLkAiVgI6vAjtxtTOX9zZyWdksh7VYOxHgv99DppQLalq/ybbNo12HR3LLqdqL3WiEkw4znpouQARSxr4xzanC523SPyGrmZ1IJifik=; 7:r+eKyEQLKbxsCuADerU82UxFWeQTBXQnF7+kQS9j4VGwJXY3pn6I6nMWo0WzijAdUJYwdl9ENSkHW5BGZ/ToHWvN7AHFB+1iidutNj13jCmIy/8L5mm0As4oE3dNr/yz2rjAX6EznFd5otkYg2og2Q== x-ms-exchange-antispam-srfa-diagnostics: SOS; x-ms-office365-filtering-correlation-id: 36b7e76c-e27d-4bdf-a9d0-08d63e8ab2f1 x-microsoft-antispam: BCL:0; PCL:0; RULEID:(7020095)(4652040)(8989299)(4534185)(4627221)(201703031133081)(201702281549075)(8990200)(5600074)(711020)(2017052603328)(7153060)(7193020); SRVR:BYAPR13MB2262; x-ms-traffictypediagnostic: BYAPR13MB2262: authentication-results: spf=none (sender IP is ) smtp.mailfrom=Robin.Fairey@iti-global.com; x-microsoft-antispam-prvs: x-exchange-antispam-report-test: UriScan:(163750095850)(190756311086443)(788757137089); x-ms-exchange-senderadcheck: 1 x-exchange-antispam-report-cfa-test: BCL:0; PCL:0; RULEID:(6040522)(2401047)(8121501046)(5005006)(10201501046)(3002001)(93006095)(93001095)(3231382)(944501410)(52105095)(148016)(149066)(150057)(6041310)(20161123560045)(20161123564045)(20161123562045)(20161123558120)(201703131423095)(201702281528075)(20161123555045)(201703061421075)(201703061406153)(201708071742011)(7699051)(76991095); SRVR:BYAPR13MB2262; BCL:0; PCL:0; RULEID:; SRVR:BYAPR13MB2262; x-forefront-prvs: 08417837C5 x-forefront-antispam-report: SFV:NSPM; SFS:(10009020)(366004)(39840400004)(136003)(376002)(396003)(346002)(199004)(189003)(6116002)(476003)(305945005)(14444005)(8936002)(33656002)(256004)(5024004)(3846002)(14454004)(5660300001)(7736002)(53936002)(71190400001)(71200400001)(5640700003)(6436002)(66066001)(81166006)(81156014)(316002)(55016002)(25786009)(68736007)(86362001)(74316002)(575784001)(97736004)(8676002)(2900100001)(5250100002)(2501003)(99286004)(72206003)(478600001)(7696005)(6506007)(102836004)(26005)(186003)(2351001)(106356001)(551544002)(9686003)(45080400002)(6916009)(2906002)(105586002)(486006); DIR:OUT; SFP:1101; SCL:1; SRVR:BYAPR13MB2262; H:BYAPR13MB2280.namprd13.prod.outlook.com; FPR:; SPF:None; LANG:en; PTR:InfoNoRecords; A:1; MX:1; received-spf: None (protection.outlook.com: iti-global.com does not designate permitted sender hosts) x-microsoft-antispam-message-info: OUZpFGaAdxke4ss6qYNWWKxHA42+qmgcVu3Cj04gMyWP7ra1xGE8YQpkwnjHESqDeBnbvvpNGWumpNMQkfQNH8eDiShRktbVaUmUBMdJgk0niVK6LGLhaevTWmloxoOl/try4n122QpLWGIwz7BwghFrLkVd2dkn/Ci9Bo5b76vaTmeVvK6OPjH8jIjxWxnCoyDPayZHn78W8IqhwkHd0HzOwcocYxKSy9ivY8lwUX4bfTT3kv/qMNwP2QUa+TWMxScME4e8pcoqLVLDlAXPuaJ3kOQB8qIu5Y0IvjkY551d3vnKKsCoHX5OlaE6a8vncaXL2MzknwlJT+ssiiKasL1rBBJQ8T+YyB0n/pJA4oM= spamdiagnosticoutput: 1:99 spamdiagnosticmetadata: NSPM Content-Type: text/plain; charset="us-ascii" Content-Transfer-Encoding: quoted-printable MIME-Version: 1.0 X-OriginatorOrg: iti-global.com X-MS-Exchange-CrossTenant-Network-Message-Id: 36b7e76c-e27d-4bdf-a9d0-08d63e8ab2f1 X-MS-Exchange-CrossTenant-originalarrivaltime: 30 Oct 2018 17:11:14.7674 (UTC) X-MS-Exchange-CrossTenant-fromentityheader: Hosted X-MS-Exchange-CrossTenant-id: 01c352d2-55fa-4bb0-8b55-679fbb97f30e X-MS-Exchange-Transport-CrossTenantHeadersStamped: BYAPR13MB2262 X-detected-operating-system: by eggs.gnu.org: Windows 7 or 8 [fuzzy] X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6.x X-Received-From: 2001:4830:134:3::11 X-Spam-Score: -4.3 (----) X-Mailman-Approved-At: Tue, 30 Oct 2018 13:22:43 -0400 X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -5.3 (-----) Starting from emacs -Q, - Open a new fixed format fortran file ( C-x C-f t e s t . f o r ) - Populate it with the following text: SUBROUTINE ONE END SUBROUTINE C------------------------------------------------------------------------ SUBROUTINE TWO END SUBROUTINE C------------------------------------------------------------------------ SUBROUTINE THREE END SUBROUTINE Position point on line 6 (the blank line in TWO), and observe that M-x mark-defun marks TWO and THREE instead of just TWO. Inserting an additional newline between the comment line and the start of TWO results in correct behaviour. In GNU Emacs 26.1 (build 1, x86_64-w64-mingw32) of 2018-05-30 built on CIRROCUMULUS Repository revision: 07f8f9bc5a51f5aa94eb099f3e15fbe0c20ea1ea Windowing system distributor 'Microsoft Corp.', version 10.0.17134 Configured using: 'configure --without-dbus --host=3Dx86_64-w64-mingw32 --without-compress-install 'CFLAGS=3D-O2 -static -g3'' Configured features: XPM JPEG TIFF GIF PNG RSVG SOUND NOTIFY ACL GNUTLS LIBXML2 ZLIB TOOLKIT_SCROLL_BARS THREADS LCMS2 Important settings: value of $LANG: ENG locale-coding-system: cp1252 Major mode: Fortran Minor modes in effect: which-function-mode: t show-paren-mode: t delete-selection-mode: t cua-mode: t global-eldoc-mode: t mouse-wheel-mode: t menu-bar-mode: t file-name-shadow-mode: t global-font-lock-mode: t font-lock-mode: t blink-cursor-mode: t auto-composition-mode: t auto-encryption-mode: t auto-compression-mode: t column-number-mode: t line-number-mode: t transient-mark-mode: t abbrev-mode: t Load-path shadows: None found. Features: (shadow sort mail-extr emacsbug message rmc puny seq byte-opt gv bytecomp byte-compile cconv dired dired-loaddefs format-spec rfc822 mml mml-sec password-cache epa derived epg epg-config gnus-util rmail rmail-loaddefs mm-decode mm-bodies mm-encode mail-parse rfc2231 mailabbrev gmm-utils mailheader sendmail rfc2047 rfc2045 ietf-drums mm-util mail-prsvr mail-utils fortran cus-edit easymenu wid-edit elec-pair which-func imenu paren linum cus-start cus-load easy-mmode delsel cua-base edmacro kmacro cl-loaddefs cl-lib compile comint ansi-color ring time-date mule-util tooltip eldoc electric uniquify ediff-hook vc-hooks lisp-float-type mwheel dos-w32 ls-lisp disp-table term/w32-win w32-win w32-vars term/common-win tool-bar dnd fontset image regexp-opt fringe tabulated-list replace newcomment text-mode elisp-mode lisp-mode prog-mode register page menu-bar rfn-eshadow isearch timer select scroll-bar mouse jit-lock font-lock syntax facemenu font-core term/tty-colors frame cl-generic cham georgian utf-8-lang misc-lang vietnamese tibetan thai tai-viet lao korean japanese eucjp-ms cp51932 hebrew greek romanian slovak czech european ethiopic indian cyrillic chinese composite charscript charprop case-table epa-hook jka-cmpr-hook help simple abbrev obarray minibuffer cl-preloaded nadvice loaddefs button faces cus-face macroexp files text-properties overlay sha1 md5 base64 format env code-pages mule custom widget hashtable-print-readable backquote w32notify w32 lcms2 multi-tty make-network-process emacs) Memory information: ((conses 16 130339 12789) (symbols 56 23060 1) (miscs 48 54 129) (strings 32 36988 1359) (string-bytes 1 987122) (vectors 16 16244) (vector-slots 8 507996 7504) (floats 8 65 211) (intervals 56 396 0) (buffers 992 14)) CONFIDENTIALITY NOTICE: This email message and any attachments to it, is in= tended only for the individual or entity to which it is addressed and may c= ontain confidential material. If you are not the intended recipient, or the= employee or agent responsible for delivering it to the intended recipient,= please do not disclose, copy, forward, or retain. If you have received thi= s in error, please contact the sender by reply email, erase the original me= ssage from your computer system, and destroy all copies of the original mes= sage. Thank You. From unknown Sat Aug 16 16:06:28 2025 X-Loop: help-debbugs@gnu.org Subject: bug#33208: 26.1; mark-defun gives incorrect results in some fixed format FORTRAN Resent-From: Lars Ingebrigtsen Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Wed, 09 Dec 2020 16:38:01 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 33208 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: To: "Fairey, Robin M." Cc: 33208@debbugs.gnu.org Received: via spool by 33208-submit@debbugs.gnu.org id=B33208.160753185616054 (code B ref 33208); Wed, 09 Dec 2020 16:38:01 +0000 Received: (at 33208) by debbugs.gnu.org; 9 Dec 2020 16:37:36 +0000 Received: from localhost ([127.0.0.1]:35880 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1kn2TA-0004As-H6 for submit@debbugs.gnu.org; Wed, 09 Dec 2020 11:37:36 -0500 Received: from quimby.gnus.org ([95.216.78.240]:40070) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1kn2T8-0004AZ-Pr for 33208@debbugs.gnu.org; Wed, 09 Dec 2020 11:37:35 -0500 DKIM-Signature: v=1; a=rsa-sha256; q=dns/txt; c=relaxed/relaxed; d=gnus.org; s=20200322; h=Content-Type:MIME-Version:Message-ID:In-Reply-To:Date: References:Subject:Cc:To:From:Sender:Reply-To:Content-Transfer-Encoding: Content-ID:Content-Description:Resent-Date:Resent-From:Resent-Sender: Resent-To:Resent-Cc:Resent-Message-ID:List-Id:List-Help:List-Unsubscribe: List-Subscribe:List-Post:List-Owner:List-Archive; bh=TgF7A2ZNeWEJAqWSJw/6/W5b8HHOLSmoTm5RI8tUXtU=; b=lg9C+MdDF3B+dHWWBzWB8bFWMb 0za0zDiI9MV5blGWH3NRUunJ90O+9QT7/gfZO8kF/fRaLR9e6ljWWK1gwXtSBgrUJceeBxplb+MXN oQk5tcYq9It7nwkpcGSOK21m2+nNANxBO2oyNgrfRX03f6c+r/O4RfH3+5rGpPzoHXO8=; Received: from cm-84.212.202.86.getinternet.no ([84.212.202.86] helo=xo) by quimby.gnus.org with esmtpsa (TLS1.3:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.92) (envelope-from ) id 1kn2Sz-0003CJ-Sy; Wed, 09 Dec 2020 17:37:28 +0100 From: Lars Ingebrigtsen References: X-Now-Playing: Joan as Police Woman's _Cover Two_: "Spread" Date: Wed, 09 Dec 2020 17:37:24 +0100 In-Reply-To: (Robin M. Fairey's message of "Tue, 30 Oct 2018 17:11:14 +0000") Message-ID: <87czzjylyz.fsf@gnus.org> User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/28.0.50 (gnu/linux) MIME-Version: 1.0 Content-Type: text/plain X-Spam-Report: Spam detection software, running on the system "quimby.gnus.org", has NOT identified this incoming email as spam. The original message has been attached to this so you can view it or label similar future email. If you have any questions, see @@CONTACT_ADDRESS@@ for details. Content preview: "Fairey, Robin M." writes: > Starting from emacs -Q, > - Open a new fixed format fortran file ( C-x C-f t e s t . f o r ) > - Populate it with the following text: > SUBROUTINE ONE > > END SUBROUTINE > C [...] Content analysis details: (-2.9 points, 5.0 required) pts rule name description ---- ---------------------- -------------------------------------------------- -1.0 ALL_TRUSTED Passed through trusted hosts only via SMTP -1.9 BAYES_00 BODY: Bayes spam probability is 0 to 1% [score: 0.0000] X-Spam-Score: 0.0 (/) X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -1.0 (-) "Fairey, Robin M." writes: > Starting from emacs -Q, > - Open a new fixed format fortran file ( C-x C-f t e s t . f o r ) > - Populate it with the following text: > SUBROUTINE ONE > > END SUBROUTINE > C------------------------------------------------------------------------ > SUBROUTINE TWO > > END SUBROUTINE > C------------------------------------------------------------------------ > SUBROUTINE THREE > > END SUBROUTINE > > Position point on line 6 (the blank line in TWO), and observe that > M-x mark-defun marks TWO and THREE instead of just TWO. > > Inserting an additional newline between the comment line and the start > of TWO results in correct behaviour. Looks like the interface of beginning-of-defun-function has changed -- it now takes an optional arg, and fortran-beginning-of-subprogram didn't implement that. I've now fixed that in Emacs 28, and mark-defun now seems to work fine for me there. (I don't know Fortran, so my testing is limited, though.) -- (domestic pets only, the antidote for overdose, milk.) bloggy blog: http://lars.ingebrigtsen.no From debbugs-submit-bounces@debbugs.gnu.org Wed Dec 09 11:37:43 2020 Received: (at control) by debbugs.gnu.org; 9 Dec 2020 16:37:43 +0000 Received: from localhost ([127.0.0.1]:35883 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1kn2TG-0004BA-QR for submit@debbugs.gnu.org; Wed, 09 Dec 2020 11:37:43 -0500 Received: from quimby.gnus.org ([95.216.78.240]:40084) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1kn2TF-0004Ar-JQ for control@debbugs.gnu.org; Wed, 09 Dec 2020 11:37:41 -0500 DKIM-Signature: v=1; a=rsa-sha256; q=dns/txt; c=relaxed/relaxed; d=gnus.org; s=20200322; h=Subject:From:To:Message-Id:Date:Sender:Reply-To:Cc: MIME-Version:Content-Type:Content-Transfer-Encoding:Content-ID: Content-Description:Resent-Date:Resent-From:Resent-Sender:Resent-To:Resent-Cc :Resent-Message-ID:In-Reply-To:References:List-Id:List-Help:List-Unsubscribe: List-Subscribe:List-Post:List-Owner:List-Archive; bh=p7AGdYYW/4Bh6NZOgI0eGQBTDE58AU2JRcVRzfWM0Fs=; b=YeXsTMFspd2BVtjgomr5z8D9Hg GBRtk02gqpKrKw8U9Rf/SFjXtr+O6rYCbKgpu3YG/m384MG6khswjpKJG81A+J9egF3QlvFsHViSC MrUtMLtfnoKjRGWgdJ2ER9J2C2VyOOP2h2O7+Pt6Iaab4CD7dZ1vclvneDbCDKQWsIz4=; Received: from cm-84.212.202.86.getinternet.no ([84.212.202.86] helo=xo) by quimby.gnus.org with esmtpsa (TLS1.3:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.92) (envelope-from ) id 1kn2T7-0003CS-Vq for control@debbugs.gnu.org; Wed, 09 Dec 2020 17:37:36 +0100 Date: Wed, 09 Dec 2020 17:37:32 +0100 Message-Id: <87blf3ylyr.fsf@gnus.org> To: control@debbugs.gnu.org From: Lars Ingebrigtsen Subject: control message for bug #33208 X-Spam-Report: Spam detection software, running on the system "quimby.gnus.org", has NOT identified this incoming email as spam. The original message has been attached to this so you can view it or label similar future email. If you have any questions, see @@CONTACT_ADDRESS@@ for details. Content preview: tags 33208 fixed close 33208 28.1 quit Content analysis details: (-2.9 points, 5.0 required) pts rule name description ---- ---------------------- -------------------------------------------------- -1.0 ALL_TRUSTED Passed through trusted hosts only via SMTP -1.9 BAYES_00 BODY: Bayes spam probability is 0 to 1% [score: 0.0000] X-Spam-Score: 0.0 (/) X-Debbugs-Envelope-To: control X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -1.0 (-) tags 33208 fixed close 33208 28.1 quit From unknown Sat Aug 16 16:06:28 2025 X-Loop: help-debbugs@gnu.org Subject: bug#33208: 26.1; mark-defun gives incorrect results in some fixed format FORTRAN Resent-From: Tomas Nordin Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Thu, 10 Dec 2020 21:02:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 33208 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: fixed To: Lars Ingebrigtsen , "Fairey, Robin M." Cc: 33208@debbugs.gnu.org Received: via spool by 33208-submit@debbugs.gnu.org id=B33208.16076340953647 (code B ref 33208); Thu, 10 Dec 2020 21:02:02 +0000 Received: (at 33208) by debbugs.gnu.org; 10 Dec 2020 21:01:35 +0000 Received: from localhost ([127.0.0.1]:39435 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1knT3z-0000wZ-3e for submit@debbugs.gnu.org; Thu, 10 Dec 2020 16:01:35 -0500 Received: from mout02.posteo.de ([185.67.36.66]:49671) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1knT3w-0000wH-02 for 33208@debbugs.gnu.org; Thu, 10 Dec 2020 16:01:22 -0500 Received: from submission (posteo.de [89.146.220.130]) by mout02.posteo.de (Postfix) with ESMTPS id 46B70240100 for <33208@debbugs.gnu.org>; Thu, 10 Dec 2020 22:01:13 +0100 (CET) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/simple; d=posteo.net; s=2017; t=1607634073; bh=wsoCOm3JO+IlWdXcl0TRh9nCWCdi5O1uaw7rY5Wj3q4=; h=From:To:Cc:Subject:Date:From; b=LAu53AWcVZDPCzJno6CWBeldgSp0c6kmutqHru96EQLQmNubievH94CVCG5HGv9GF kyozACfyk04txs6jZtLL+iZbvfQNvmdkIBdS8WBWKaz/2xjShq+UO49Ir76gYoQoIU 2rW1NctvkUX4dR36TXQxynBjQfMSO2GlDtAENELtCBt+6EI+xfmL9Q/eDeptaRo0M/ lzpoUkHIe0nbw9i2sVC4lnbM5bAjIDMx53cxGqkAm4c4bvrcrRPzQQpRSERz7l2VN/ eeYdYm2vk7agw62yXipKmTipCN1s+MNxPMFGhZZ0iO5HzQJVxsNcNafkbFIp23iMs0 AJOuWlUtIa4ww== Received: from customer (localhost [127.0.0.1]) by submission (posteo.de) with ESMTPSA id 4CsRCr3kr6z9rxh; Thu, 10 Dec 2020 22:01:12 +0100 (CET) From: Tomas Nordin In-Reply-To: <87czzjylyz.fsf@gnus.org> References: <87czzjylyz.fsf@gnus.org> Date: Thu, 10 Dec 2020 22:01:11 +0100 Message-ID: <87im991ilk.fsf@posteo.net> MIME-Version: 1.0 Content-Type: text/plain X-Spam-Score: -2.3 (--) X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -1.0 (-) Lars Ingebrigtsen writes: > "Fairey, Robin M." writes: > >> Starting from emacs -Q, >> - Open a new fixed format fortran file ( C-x C-f t e s t . f o r ) >> - Populate it with the following text: >> SUBROUTINE ONE >> >> END SUBROUTINE >> C------------------------------------------------------------------------ >> SUBROUTINE TWO >> >> END SUBROUTINE >> C------------------------------------------------------------------------ >> SUBROUTINE THREE >> >> END SUBROUTINE >> >> Position point on line 6 (the blank line in TWO), and observe that >> M-x mark-defun marks TWO and THREE instead of just TWO. >> >> Inserting an additional newline between the comment line and the start >> of TWO results in correct behaviour. > > Looks like the interface of beginning-of-defun-function has changed -- > it now takes an optional arg, and fortran-beginning-of-subprogram didn't > implement that. > > I've now fixed that in Emacs 28, and mark-defun now seems to work fine > for me there. (I don't know Fortran, so my testing is limited, though.) But does fortran-beginning-of-subprogram do what it documents now after the fix when arg < 0? I cannot recall ever writing anything in Fortran so I should just keep silent, but I spent much time recently studying the beginning-of-defun and friends, so this caught my eye. Best regards -- Tomas From unknown Sat Aug 16 16:06:28 2025 X-Loop: help-debbugs@gnu.org Subject: bug#33208: 26.1; mark-defun gives incorrect results in some fixed format FORTRAN Resent-From: Lars Ingebrigtsen Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Fri, 11 Dec 2020 15:19:01 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 33208 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: fixed To: Tomas Nordin Cc: "Fairey, Robin M." , 33208@debbugs.gnu.org Received: via spool by 33208-submit@debbugs.gnu.org id=B33208.160769993530733 (code B ref 33208); Fri, 11 Dec 2020 15:19:01 +0000 Received: (at 33208) by debbugs.gnu.org; 11 Dec 2020 15:18:55 +0000 Received: from localhost ([127.0.0.1]:42640 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1knkC6-0007zd-ON for submit@debbugs.gnu.org; Fri, 11 Dec 2020 10:18:54 -0500 Received: from quimby.gnus.org ([95.216.78.240]:35286) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1knkC5-0007zQ-4P for 33208@debbugs.gnu.org; Fri, 11 Dec 2020 10:18:53 -0500 DKIM-Signature: v=1; a=rsa-sha256; q=dns/txt; c=relaxed/relaxed; d=gnus.org; s=20200322; h=Content-Type:MIME-Version:Message-ID:In-Reply-To:Date: References:Subject:Cc:To:From:Sender:Reply-To:Content-Transfer-Encoding: Content-ID:Content-Description:Resent-Date:Resent-From:Resent-Sender: Resent-To:Resent-Cc:Resent-Message-ID:List-Id:List-Help:List-Unsubscribe: List-Subscribe:List-Post:List-Owner:List-Archive; bh=QUhRlpN90lyrI8LTB0WRqC/75E1GIOUctVMCEOOea/M=; b=tTWnIFYscC3sj8eQI6t+yEpOOA rpNRZ1aCuZAc3fiZ7Ql+G5B7t+kkZDfe/QMHsrgRf4rqkNEg0H6M0jYschGBEnn5qzS5dO6D3YkOr gX86guUfTHNQPLASs5FKBMokrYltrm9RP9lReg7f3VfHxG0FDi6h9eWMWMeMOF9efxjA=; Received: from cm-84.212.202.86.getinternet.no ([84.212.202.86] helo=xo) by quimby.gnus.org with esmtpsa (TLS1.3:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.92) (envelope-from ) id 1knkBt-0003u3-59; Fri, 11 Dec 2020 16:18:47 +0100 From: Lars Ingebrigtsen References: <87czzjylyz.fsf@gnus.org> <87im991ilk.fsf@posteo.net> X-Now-Playing: Porridge Radio's _Every Bad_: "(Something)" Date: Fri, 11 Dec 2020 16:18:39 +0100 In-Reply-To: <87im991ilk.fsf@posteo.net> (Tomas Nordin's message of "Thu, 10 Dec 2020 22:01:11 +0100") Message-ID: <87blf09xrk.fsf@gnus.org> User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/28.0.50 (gnu/linux) MIME-Version: 1.0 Content-Type: text/plain X-Spam-Report: Spam detection software, running on the system "quimby.gnus.org", has NOT identified this incoming email as spam. The original message has been attached to this so you can view it or label similar future email. If you have any questions, see @@CONTACT_ADDRESS@@ for details. Content preview: Tomas Nordin writes: > But does fortran-beginning-of-subprogram do what it documents now after > the fix when arg < 0? No, it was badly phrased -- it only affects what's the current subprogram if we're between subprograms. I've now made the doc string more accurate. Content analysis details: (-2.9 points, 5.0 required) pts rule name description ---- ---------------------- -------------------------------------------------- -1.0 ALL_TRUSTED Passed through trusted hosts only via SMTP -1.9 BAYES_00 BODY: Bayes spam probability is 0 to 1% [score: 0.0000] X-Spam-Score: 0.0 (/) X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -1.0 (-) Tomas Nordin writes: > But does fortran-beginning-of-subprogram do what it documents now after > the fix when arg < 0? No, it was badly phrased -- it only affects what's the current subprogram if we're between subprograms. I've now made the doc string more accurate. -- (domestic pets only, the antidote for overdose, milk.) bloggy blog: http://lars.ingebrigtsen.no From unknown Sat Aug 16 16:06:28 2025 X-Loop: help-debbugs@gnu.org Subject: bug#33208: 26.1; mark-defun gives incorrect results in some fixed format FORTRAN Resent-From: Tomas Nordin Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Fri, 11 Dec 2020 18:51:01 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 33208 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: fixed To: Lars Ingebrigtsen Cc: "Fairey, Robin M." , 33208@debbugs.gnu.org Received: via spool by 33208-submit@debbugs.gnu.org id=B33208.16077126412900 (code B ref 33208); Fri, 11 Dec 2020 18:51:01 +0000 Received: (at 33208) by debbugs.gnu.org; 11 Dec 2020 18:50:41 +0000 Received: from localhost ([127.0.0.1]:42940 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1knnV3-0000kh-A2 for submit@debbugs.gnu.org; Fri, 11 Dec 2020 13:50:41 -0500 Received: from mout02.posteo.de ([185.67.36.66]:46701) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1knnV0-0000kQ-VQ for 33208@debbugs.gnu.org; Fri, 11 Dec 2020 13:50:39 -0500 Received: from submission (posteo.de [89.146.220.130]) by mout02.posteo.de (Postfix) with ESMTPS id 7182A2400FB for <33208@debbugs.gnu.org>; Fri, 11 Dec 2020 19:50:32 +0100 (CET) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/simple; d=posteo.net; s=2017; t=1607712632; bh=aIcU1po70UxTjeKmlRBA8UErw42pqX0OaQ+PUHhWINw=; h=From:To:Cc:Subject:Date:From; b=cjyUU4H+DwJEzliBFamgPF+aIGiwiFa/x8SEXlXceu7Yf5yr/6Nky3IOWQ9t99SJi 4M4xH8J5lFR4sQBTl7ih9E8vSIWD46FwYiYtLJucJBhbM+Zmg7YoqJgzOKaonIy4tK JmWGBK065NyEPojzQtZmveyUBv0/CEbWjdxtgtleWawgEWLdEs2qR3usHXCehP3VJT iqZuXj7KeNRIVliOJqdH8qUdfHvvrQ9tTymozcQ2MK6g1DQRmwQGwf04NCjRUaU8b+ JEHobZr/Z9iRUhmzMQ63F9Jlk3OxCSf0KEKdfG3UwFabR77bTw6VjnbU181BJTPHNk 558NOSkNcnmiA== Received: from customer (localhost [127.0.0.1]) by submission (posteo.de) with ESMTPSA id 4Ct0Gb5PDcz6tmL; Fri, 11 Dec 2020 19:50:31 +0100 (CET) From: Tomas Nordin In-Reply-To: <87blf09xrk.fsf@gnus.org> References: <87czzjylyz.fsf@gnus.org> <87im991ilk.fsf@posteo.net> <87blf09xrk.fsf@gnus.org> Date: Fri, 11 Dec 2020 19:50:31 +0100 Message-ID: <87zh2kyy6g.fsf@posteo.net> MIME-Version: 1.0 Content-Type: text/plain X-Spam-Score: -2.3 (--) X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -3.3 (---) Lars Ingebrigtsen writes: > Tomas Nordin writes: > >> But does fortran-beginning-of-subprogram do what it documents now after >> the fix when arg < 0? > > No, it was badly phrased -- it only affects what's the current > subprogram if we're between subprograms. I've now made the doc string > more accurate. Nice (for the Fortran hackers :)