From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.io!.POSTED.blaine.gmane.org!not-for-mail From: Michael Heerdegen Newsgroups: gmane.emacs.devel Subject: Re: master 2f181d60323 3/6: pp.el (pp-fill): New default pp function Date: Fri, 14 Jul 2023 05:31:26 +0200 Message-ID: <87bkgfrwxd.fsf@web.de> References: <168703958196.28351.5331986860123726819@vcs2.savannah.gnu.org> <20230617220622.EC118C1925A@vcs2.savannah.gnu.org> Mime-Version: 1.0 Content-Type: text/plain Injection-Info: ciao.gmane.io; posting-host="blaine.gmane.org:116.202.254.214"; logging-data="23710"; mail-complaints-to="usenet@ciao.gmane.io" User-Agent: Gnus/5.13 (Gnus v5.13) Cc: Stefan Monnier To: emacs-devel@gnu.org Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane-mx.org@gnu.org Fri Jul 14 05:32:39 2023 Return-path: Envelope-to: ged-emacs-devel@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 1qK9Xr-0005wX-Ab for ged-emacs-devel@m.gmane-mx.org; Fri, 14 Jul 2023 05:32:39 +0200 Original-Received: from localhost ([::1] helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1qK9Wt-0002eZ-9u; Thu, 13 Jul 2023 23:31:39 -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 1qK9Wq-0002eN-SB for emacs-devel@gnu.org; Thu, 13 Jul 2023 23:31:37 -0400 Original-Received: from mout.web.de ([212.227.15.3]) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1qK9Wp-00068L-1b for emacs-devel@gnu.org; Thu, 13 Jul 2023 23:31:36 -0400 DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/simple; d=web.de; s=s29768273; t=1689305488; x=1689910288; i=michael_heerdegen@web.de; bh=vj+MrPVO7WPctDvW16zxDH2QyiDVPzDJs0TrdszbqFk=; h=X-UI-Sender-Class:From:To:Cc:Subject:In-Reply-To:References:Date; b=mki8ryuJwQkcBUxWcAq13JywrjPo0OSo515SrtnkmwGQNL84lOqPSPccuDuSw5BCEYtDVPc 6LnQOS4irmS1u7y5yiytDYywQwxikD0tMBwqanGQmjT3C+HHsYIpRYtvdsHgJGn3m0R8d35jk SWdhk+IB9zOOPONbWlO81y5G5T4Aru031jLmXqqoKAa3KE+PjLzzwG+NUOvbBw9vhw9SQzSmy uzffw/FQMLOBnc+pFDcEw3XoJImVLBXszIV/uyIO/8z9zjAi+9apkct2SZjRpf0QcbtPeUjZi G7GwB1/tcxmbsSD2Vxukf2TrYsm0OP3QQhHRImkwhDBvPoCo36lQ== X-UI-Sender-Class: 814a7b36-bfc1-4dae-8640-3722d8ec6cd6 Original-Received: from drachen.dragon ([84.59.210.36]) by smtp.web.de (mrweb005 [213.165.67.108]) with ESMTPSA (Nemesis) id 1MjBVh-1phoQv0Ws1-00exnV; Fri, 14 Jul 2023 05:31:28 +0200 In-Reply-To: <20230617220622.EC118C1925A@vcs2.savannah.gnu.org> (Stefan Monnier via Mailing list for Emacs changes's message of "Sat, 17 Jun 2023 18:06:22 -0400 (EDT)") X-Provags-ID: V03:K1:7bOuEXOgz+00Xf1ZTGzEZciNUxzyeWs9ugGweb58XwojhLWVH6e d1I3cjlIHFERZTUtHiqq7hHNKl22CeMPvH5AR3Oa+awLz1uC3pQiYZaZpHeMuzfYTilEZQW JHG2JFoTIUPQnxY21enWGK33E/+FyiBY5Z815qwoBCfobP6cdwkBo3gwKHUMeiKVtmyY6Gm 4Lfy6P40iv0w/GAyPZaDw== UI-OutboundReport: notjunk:1;M01:P0:8IWXw430TxQ=;oCW7NB80YSjir4EUyDkrvaffDlB hQPsCmshf6PMsifVMfXvwkDSlL02S7E/449sS6o7pTf6PPUcyve1pZRQhi355XzCviH7r91nQ XdxG2B/XWkOXYnyxkKB+s50GTYUJV1U6d+zl97uMNwWadUnpk30qAasEOVSL+qecwiI1BaNSE O4L0u99+3gGt4yXTg597GeMww+Lt9rYPRcn06Dn/hWCLLrtbOSi1xyWZBGHPqF7E4BFfIhSNs DIAEsaQuArjKOp84Ismh0GEIieuAU5q4E76XcZi+NmAm4Okt45QLHs8pjvUb3TggQI9ltu5wU eHD8PlU/SJ73PvsS/ATry+5srtlNFDFpQqWTnwY9zk5Oie1UdYEsSnO+iJhnbV6kIbpHLbfF/ yEgyeFhVy+NeERKoTEA6P4K/uJlvwQejTFtE8fwLE85C9ENu9Mi+pQLNn7qbcWTMDTf4V+i6l 1vpFiacGkRRmqsGpIRC0ao2VLGgTS1dejpUVb43ngDUx81G5oTuw4D/svUIfyIJz0Y1BL0YdP TcK3J1fmdGmqg85DMef4q42zvajhlb12OAm7H6f+En1D2mCxXI5fAP1PBEuyNK88KW2+aHR93 YttUjuuI+4o1G2fcETLxluMhX3SxJpPNRSBb+vEbN9faVE7to/TPSFcgph+2F+IEDF4eUbPDo 0FS80Iyhq7MZ1htPm8b7WgLrcBSQhFqSPAKBs+t5VU3z9t6M5PaNxayMaf86l0Rm0h2Pyz8HV E9HihZKSMb/nvRk4HUuQ4sJ2Yq9SmtLVzTFgD4Jd3Om351HT+DeeLR1GCxdlB5QREcYqXrmh Received-SPF: pass client-ip=212.227.15.3; envelope-from=michael_heerdegen@web.de; helo=mout.web.de X-Spam_score_int: -27 X-Spam_score: -2.8 X-Spam_bar: -- X-Spam_report: (-2.8 / 5.0 requ) BAYES_00=-1.9, DKIM_SIGNED=0.1, DKIM_VALID=-0.1, DKIM_VALID_AU=-0.1, DKIM_VALID_EF=-0.1, FREEMAIL_FROM=0.001, RCVD_IN_DNSWL_LOW=-0.7, RCVD_IN_MSPIKE_H3=0.001, RCVD_IN_MSPIKE_WL=0.001, SPF_HELO_NONE=0.001, SPF_PASS=-0.001, T_SCC_BODY_TEXT_LINE=-0.01 autolearn=ham autolearn_force=no X-Spam_action: no action X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.29 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane-mx.org@gnu.org Original-Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane-mx.org@gnu.org Xref: news.gmane.io gmane.emacs.devel:307845 Archived-At: Stefan Monnier via Mailing list for Emacs changes writes: > branch: master > commit 2f181d60323bd9e0196775828de633100479f4c2 > Author: Stefan Monnier > Commit: Stefan Monnier > > pp.el (pp-fill): New default pp function > [...] > + (when (and paired (not (eq ?\" (char-after paired)))) > + ;; The sexp has sub-parts, so let's try and spread > + ;; them over several lines. > + (save-excursion > + (goto-char beg) > + (when (looking-at "(\\([^][()\" \t\n;']+\\)") > + ;; Inside an expression of the form (SYM ARG1 > + ;; ARG2 ... ARGn) where SYM has a `lisp-indent-function' > + ;; property that's a number, insert a newline after > + ;; the corresponding ARGi, because it tends to lead to > + ;; more natural and less indented code. > + (let* ((sym (intern-soft (match-string 1))) > + (lif (and sym (get sym 'lisp-indent-function)))) > + (if (eq lif 'defun) (setq lif 2)) > + (when (natnump lif) > + (goto-char (match-end 0)) > + (forward-sexp lif) I only want to give the hint that this `forward-sexp' in the last line will error when the programmer has, e.g., commented out the body of a lambda expression. Or the user wants to fill automatically created code that looks like that, for whatever reason. Michael.