From debbugs-submit-bounces@debbugs.gnu.org Mon Jun 24 03:38:52 2019 Received: (at submit) by debbugs.gnu.org; 24 Jun 2019 07:38:52 +0000 Received: from localhost ([127.0.0.1]:55477 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1hfJYx-0006qx-MX for submit@debbugs.gnu.org; Mon, 24 Jun 2019 03:38:52 -0400 Received: from lists.gnu.org ([209.51.188.17]:42011) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1hfJYv-0006qp-MH for submit@debbugs.gnu.org; Mon, 24 Jun 2019 03:38:50 -0400 Received: from eggs.gnu.org ([2001:470:142:3::10]:56515) by lists.gnu.org with esmtp (Exim 4.86_2) (envelope-from ) id 1hfJYu-0003oo-3W for bug-gnu-emacs@gnu.org; Mon, 24 Jun 2019 03:38: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,FREEMAIL_FROM, RCVD_IN_DNSWL_NONE,RECEIVED_FROM_WINDOWS_HOST,URIBL_BLOCKED autolearn=disabled version=3.3.2 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1hfJYs-0004ez-Ne for bug-gnu-emacs@gnu.org; Mon, 24 Jun 2019 03:38:48 -0400 Received: from smtp6-g21.free.fr ([212.27.42.6]:1686) by eggs.gnu.org with esmtps (TLS1.0:DHE_RSA_AES_256_CBC_SHA1:32) (Exim 4.71) (envelope-from ) id 1hfJYs-0004cA-EQ for bug-gnu-emacs@gnu.org; Mon, 24 Jun 2019 03:38:46 -0400 Received: from dagon (unknown [IPv6:2a01:e34:ef19:c0f0:b0a6:58d4:ec2b:f090]) (Authenticated sender: pascal.quesseveur) by smtp6-g21.free.fr (Postfix) with ESMTPSA id 8DD337802D7 for ; Mon, 24 Jun 2019 07:38:40 +0000 (UTC) From: Pascal Quesseveur To: bug-gnu-emacs@gnu.org Subject: 26.2; Indentation problem with Delphi inline variables Date: Mon, 24 Jun 2019 09:38:40 +0200 Message-ID: <83k1db8mbj.fsf@gmail.com> MIME-Version: 1.0 Content-Type: text/plain X-detected-operating-system: by eggs.gnu.org: Windows NT kernel [generic] [fuzzy] X-Received-From: 212.27.42.6 X-Spam-Score: -0.3 (/) X-Debbugs-Envelope-To: submit 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.3 (-) Indentation doesn't work properly when using inline variable introduced by Delphi 10.3 (using Emacs 26.2, opascal, opascal-indent-level is 3): for i := 0 to str.Length - 1 do Write (str.Chars[i]); for var i := 0 to str.Length - 1 do Write (str.Chars[i]); In GNU Emacs 26.2 (build 2, x86_64-pc-linux-gnu, GTK+ Version 3.22.30) of 2019-04-12 built on lgw01-amd64-060 Windowing system distributor 'The X.Org Foundation', version 11.0.11906000 System Description: Ubuntu 18.04.2 LTS Configured using: 'configure --build=x86_64-linux-gnu --prefix=/usr '--includedir=${prefix}/include' '--mandir=${prefix}/share/man' '--infodir=${prefix}/share/info' --sysconfdir=/etc --localstatedir=/var --disable-silent-rules '--libdir=${prefix}/lib/x86_64-linux-gnu' '--libexecdir=${prefix}/lib/x86_64-linux-gnu' --disable-maintainer-mode --disable-dependency-tracking --prefix=/usr --sharedstatedir=/var/lib --program-suffix=26 --with-modules --with-file-notification=inotify --with-mailutils --with-x=yes --with-x-toolkit=gtk3 --with-xwidgets --with-lcms2 'CFLAGS=-g -O2 -fdebug-prefix-map=/build/emacs26-CYbeHB/emacs26-26.2~1.gitfd1b34b=. -fstack-protector-strong -Wformat -Werror=format-security -no-pie' 'CPPFLAGS=-Wdate-time -D_FORTIFY_SOURCE=2' 'LDFLAGS=-Wl,-Bsymbolic-functions -Wl,-z,relro -no-pie'' Configured features: XPM JPEG TIFF GIF PNG RSVG IMAGEMAGICK SOUND GPM DBUS GSETTINGS GLIB NOTIFY LIBSELINUX GNUTLS LIBXML2 FREETYPE M17N_FLT LIBOTF XFT ZLIB TOOLKIT_SCROLL_BARS GTK3 X11 XDBE XIM MODULES THREADS XWIDGETS LIBSYSTEMD LCMS2 Important settings: value of $LANG: fr_FR.UTF-8 locale-coding-system: utf-8-unix Major mode: Summary Minor modes in effect: display-time-mode: t shell-dirtrack-mode: t icomplete-mode: t auto-image-file-mode: t show-paren-mode: t tooltip-mode: t global-eldoc-mode: t electric-indent-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 buffer-read-only: t column-number-mode: t line-number-mode: t transient-mark-mode: t Load-path shadows: /home/local/emacs-site/lisp/bbdb/bbdb-vcard-export hides /home/local/emacs-site/lisp/utils/bbdb-vcard-export /usr/share/emacs/site-lisp/dictionaries-common/ispell hides /usr/share/emacs/26.2/lisp/textmodes/ispell /usr/share/emacs/site-lisp/dictionaries-common/flyspell hides /usr/share/emacs/26.2/lisp/textmodes/flyspell Features: (shadow warnings emacsbug flow-fill url-http url-gw url-auth url-queue url-cache gnus-fun mm-archive sort smiley gnus-cite gnus-bcklg gnus-async qp gnus-ml disp-table gnus-topic nndraft nnmh gnus-agent gnus-srvr gnus-score score-mode nnvirtual gnus-msg nnml utf-7 nnfolder cl-extra help-mode gnus-cache network-stream nsm starttls gnus-demon nntp elec-pair highlight-current-line color-theme time tumblesocks tumblesocks-view tumblesocks-compose markdown-mode thingatpt noutline outline htmlize tumblesocks-user tumblesocks-api json map oauth sasl sasl-anonymous sasl-login sasl-plain hex-util hmac-sha1 shr svg xml dom browse-url html2help footnote muse-odf muse-xml muse-help muse-bbcode muse-blosxom muse-wiki muse-texinfo texnfo-upd texinfo muse-latex muse-html muse-docbook muse-xml-common cus-edit cus-start cus-load muse-publish muse-project muse-protocols muse-regexps muse muse-nested-tags muse-mode u-vm-color org-import-icalendar icalendar diary-lib diary-loaddefs bbdb-gnus gnus-art mm-uu mml2015 mm-view mml-smime smime dig gnus-sum gnus-group gnus-undo gnus-start gnus-cloud nnimap nnmail mail-source tls gnutls utf7 netrc nnoo gnus-spec gnus-int gnus-range gnus-win gnus nnheader bbdb-snarf mail-extr bbdb-com smtpmail sendmail message rmc puny dired-explore dired-sort-menu wid-edit acid dired-arc file-op dired-x dired dired-loaddefs rfc822 mml mml-sec gnus-util rmail rmail-loaddefs mm-decode mm-bodies mm-encode mail-parse rfc2231 rfc2047 rfc2045 mm-util ietf-drums mail-prsvr mailabbrev mail-utils gmm-utils mailheader bbdb-vcard-export bbdb-export bbdb-autoloads bbdb timezone tramp tramp-compat tramp-loaddefs trampver ucs-normalize shell pcomplete parse-time format-spec which idb gud comint ansi-color ring jsee javadoc-lookup ido seq jserial jswat qproj-java jdok tempo url url-proxy url-privacy url-expand url-methods url-history url-cookie url-domsuf url-util url-parse auth-source eieio byte-opt bytecomp byte-compile cconv eieio-core eieio-loaddefs password-cache url-vars mailcap xml-parse doxymacs qproj-cpp qproj server dos-indent generic generic-x cc-mode cc-fonts cc-guess cc-menus cc-cmds cc-styles cc-align cc-engine cc-vars cc-defs w3m-load lunar solar cal-dst cal-tex cal-iso cal-menu calendar cal-loaddefs epa-file epa derived epg epg-config preview prv-emacs info reporter desktop frameset latex tex-buf tex font-latex tex-site ps-mule ipp cl-seq cl-macs cl gv easymenu printing ps-print ps-print-loaddefs ps-def lpr genconv icomplete+ easy-mmode icomplete edmacro kmacro cl-loaddefs cl-lib advice image-file paren time-date mule-util tooltip eldoc electric uniquify ediff-hook vc-hooks lisp-float-type mwheel term/x-win x-win term/common-win x-dnd 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 threads dbusbind inotify lcms2 dynamic-setting system-font-setting font-render-setting xwidget-internal move-toolbar gtk x-toolkit x multi-tty make-network-process emacs) Memory information: ((conses 16 734770 64386) (symbols 48 112551 2) (miscs 40 1112 393) (strings 32 173012 10074) (string-bytes 1 6028761) (vectors 16 66422) (vector-slots 8 1165711 31400) (floats 8 1171 900) (intervals 56 928 423) (buffers 992 37)) -- Pascal Quesseveur From debbugs-submit-bounces@debbugs.gnu.org Mon Jun 24 09:45:51 2019 Received: (at 36348) by debbugs.gnu.org; 24 Jun 2019 13:45:51 +0000 Received: from localhost ([127.0.0.1]:55823 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1hfPI7-0001kA-07 for submit@debbugs.gnu.org; Mon, 24 Jun 2019 09:45:51 -0400 Received: from mailscanner.iro.umontreal.ca ([132.204.25.50]:24389) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1hfPI4-0001jw-5M for 36348@debbugs.gnu.org; Mon, 24 Jun 2019 09:45:49 -0400 Received: from pmg2.iro.umontreal.ca (localhost.localdomain [127.0.0.1]) by pmg2.iro.umontreal.ca (Proxmox) with ESMTP id 9EACA81162; Mon, 24 Jun 2019 09:45:42 -0400 (EDT) Received: from mail01.iro.umontreal.ca (unknown [172.31.2.1]) by pmg2.iro.umontreal.ca (Proxmox) with ESMTP id 6FF2C80B8C; Mon, 24 Jun 2019 09:45:37 -0400 (EDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/simple; d=iro.umontreal.ca; s=mail; t=1561383937; bh=J6LgAlueRYZWQ4Ly/q2Wf/4/Vd6npX7NQsvAVx6HyJw=; h=From:To:Cc:Subject:In-Reply-To:References:Date:From; b=Yqa/dMy2sgQOhIgcLJH3de1xSG1n4nsbb6fQjBlm88l4Xj/8e7vacW9xQdxZdUkoL b1ToItqbhixPs8ECzSqdQIVuIJRvvWop97I+JWLMA0QmnSUJzwymq/3JT16V86CiMl R/TcV3Bc3DIHsl+81dmSLaqfWyValV4Ag58bmVRQaVWkmPDw24CuqJrYxrw1W3Y76F 7YHIfi4yV+pjBI4Q5aNQibE1669RGOwlTe8rH5olfe1JxtyY33KMtwg1nobDVVZmCK /MVXPcvZqXb6NlvOvMSzUpqoxGWwbJgo5IeQa5HU+c9kYw39MryQuLnikUk8hNA/69 +1wigcaowSPJA== Received: from pastel (unknown [216.154.44.223]) by mail01.iro.umontreal.ca (Postfix) with ESMTPSA id 0B76B1203CF; Mon, 24 Jun 2019 09:45:36 -0400 (EDT) From: Stefan Monnier To: Pascal Quesseveur Subject: Re: bug#36348: 26.2; Indentation problem with Delphi inline variables In-Reply-To: <83k1db8mbj.fsf@gmail.com> (Pascal Quesseveur's message of "Mon, 24 Jun 2019 09:38:40 +0200") Message-ID: References: <83k1db8mbj.fsf@gmail.com> User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/27.0.50 (gnu/linux) Date: Mon, 24 Jun 2019 09:45:31 -0400 MIME-Version: 1.0 Content-Type: text/plain X-SPAM-INFO: Spam detection results: 0 ALL_TRUSTED -1 Passed through trusted hosts only via SMTP AWL 0.040 Adjusted score from AWL reputation of From: address BAYES_00 -1.9 Bayes spam probability is 0 to 1% DKIM_SIGNED 0.1 Message has a DKIM or DK signature, not necessarily valid DKIM_VALID -0.1 Message has at least one valid DKIM or DK signature DKIM_VALID_AU -0.1 Message has a valid DKIM or DK signature from author's domain X-SPAM-LEVEL: X-Spam-Score: 0.0 (/) X-Debbugs-Envelope-To: 36348 Cc: 36348@debbugs.gnu.org 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 (-) > Indentation doesn't work properly when using inline variable > introduced by Delphi 10.3 (using Emacs 26.2, opascal, > opascal-indent-level is 3): > > for i := 0 to str.Length - 1 do > Write (str.Chars[i]); > > for var i := 0 to str.Length - 1 do > Write (str.Chars[i]); Emacs comes with 2 Pascal modes: the `pascal-mode` and the `opascal-mode`. Since you're using Delphi, opascal-mode is indeed the right choice, but I think we should try and consolidate the two modes, so I'm curious to know if you've tried to use pascal-mode on your code to see how its indentation code fares in comparison. Stefan From debbugs-submit-bounces@debbugs.gnu.org Mon Jul 22 13:12:15 2019 Received: (at 36348-done) by debbugs.gnu.org; 22 Jul 2019 17:12:15 +0000 Received: from localhost ([127.0.0.1]:33551 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1hpbrD-00046Y-7O for submit@debbugs.gnu.org; Mon, 22 Jul 2019 13:12:15 -0400 Received: from mailscanner.iro.umontreal.ca ([132.204.25.50]:3280) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1hpbrB-000465-5T for 36348-done@debbugs.gnu.org; Mon, 22 Jul 2019 13:12:13 -0400 Received: from pmg2.iro.umontreal.ca (localhost.localdomain [127.0.0.1]) by pmg2.iro.umontreal.ca (Proxmox) with ESMTP id 7F2998119A; Mon, 22 Jul 2019 13:12:06 -0400 (EDT) Received: from mail01.iro.umontreal.ca (unknown [172.31.2.1]) by pmg2.iro.umontreal.ca (Proxmox) with ESMTP id 2A55A80D66; Mon, 22 Jul 2019 13:12:05 -0400 (EDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/simple; d=iro.umontreal.ca; s=mail; t=1563815525; bh=hWDYGBva9u4Pc3/pslWJDEHphSkg/dp23Ldn67Fczyg=; h=From:To:Cc:Subject:References:Date:In-Reply-To:From; b=PUe9oZQ1q8jWpaFm3xCdibNYfvzJrny1lH51G1VXsOK3OD8fJeG29HKqt/HhY00tZ Kt1hEBcFEHGXpDtvMZ+OmAQT7N1syS5RfIOE25OE3e3/gKcPBNGoFmv6PnzErhechF 75BlFMIKy3GKtv30U3fKbCaKLNINaj3aGyLve5PR4F85KksHgBC2UWnAghO2JaGPj7 Zk2pD2kdttepbwjlRsIG9MBH2JzZNlaMxiMTN8PcKLodDAAU94uCiGzJi0ff9ex4SU /3bKnjSKsKpNWtYdVJI/8VVlztYh4z8KBdF5lYjWaM2DzDYVXdg+d2k5OHC/pEhMEt osuqQrXpyBOyA== Received: from alfajor (modemcable157.163-203-24.mc.videotron.ca [24.203.163.157]) by mail01.iro.umontreal.ca (Postfix) with ESMTPSA id 027F4121487; Mon, 22 Jul 2019 13:12:04 -0400 (EDT) From: Stefan Monnier To: Pascal Quesseveur Subject: Re: bug#36348: 26.2; Indentation problem with Delphi inline variables Message-ID: References: <83k1db8mbj.fsf@gmail.com> Date: Mon, 22 Jul 2019 13:12:04 -0400 In-Reply-To: <83k1db8mbj.fsf@gmail.com> (Pascal Quesseveur's message of "Mon, 24 Jun 2019 09:38:40 +0200") User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/27.0.50 (gnu/linux) MIME-Version: 1.0 Content-Type: text/plain X-SPAM-INFO: Spam detection results: 0 ALL_TRUSTED -1 Passed through trusted hosts only via SMTP AWL 0.513 Adjusted score from AWL reputation of From: address BAYES_00 -1.9 Bayes spam probability is 0 to 1% DKIM_SIGNED 0.1 Message has a DKIM or DK signature, not necessarily valid DKIM_VALID -0.1 Message has at least one valid DKIM or DK signature DKIM_VALID_AU -0.1 Message has a valid DKIM or DK signature from author's domain X-SPAM-LEVEL: X-Spam-Score: 0.0 (/) X-Debbugs-Envelope-To: 36348-done Cc: 36348-done@debbugs.gnu.org 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 (-) > Indentation doesn't work properly when using inline variable > introduced by Delphi 10.3 (using Emacs 26.2, opascal, > opascal-indent-level is 3): > > for i := 0 to str.Length - 1 do > Write (str.Chars[i]); > > for var i := 0 to str.Length - 1 do > Write (str.Chars[i]); I just pushed the patch below which seems to fix it. Stefan diff --git a/lisp/progmodes/opascal.el b/lisp/progmodes/opascal.el index 7d51816bf4..9bb62ced3b 100644 --- a/lisp/progmodes/opascal.el +++ b/lisp/progmodes/opascal.el @@ -1177,8 +1177,11 @@ opascal-enclosing-indent-of (throw 'done (opascal-stmt-line-indent-of (or last-token token) opascal-indent-level))) - ;; We indent relative to an enclosing declaration section. - ((opascal-is token-kind opascal-decl-sections) + ;; We indent relative to an enclosing declaration section, + ;; unless this is within the a delimited expression + ;; (bug#36348). + ((and (not expr-delimited) + (opascal-is token-kind opascal-decl-sections)) (throw 'done (opascal-indent-of (if last-token last-token token) opascal-indent-level))) From unknown Mon Jun 23 20:18:29 2025 Received: (at fakecontrol) by fakecontrolmessage; To: internal_control@debbugs.gnu.org From: Debbugs Internal Request Subject: Internal Control Message-Id: bug archived. Date: Tue, 20 Aug 2019 11:24:04 +0000 User-Agent: Fakemail v42.6.9 # This is a fake control message. # # The action: # bug archived. thanks # This fakemail brought to you by your local debbugs # administrator