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.bugs Subject: bug#49592: 28.0.50; lisp-current-defun-name and non-standard defuns Date: Fri, 16 Jul 2021 04:53:53 +0200 Message-ID: <878s279dfi.fsf@web.de> Mime-Version: 1.0 Content-Type: text/plain Injection-Info: ciao.gmane.io; posting-host="blaine.gmane.org:116.202.254.214"; logging-data="2024"; mail-complaints-to="usenet@ciao.gmane.io" To: 49592@debbugs.gnu.org Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane-mx.org@gnu.org Fri Jul 16 04:55:10 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 1m4E0M-0000Kl-4z for geb-bug-gnu-emacs@m.gmane-mx.org; Fri, 16 Jul 2021 04:55:10 +0200 Original-Received: from localhost ([::1]:59604 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1m4E0K-0001p9-Lv for geb-bug-gnu-emacs@m.gmane-mx.org; Thu, 15 Jul 2021 22:55:08 -0400 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]:52192) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1m4E0E-0001p1-Px for bug-gnu-emacs@gnu.org; Thu, 15 Jul 2021 22:55:02 -0400 Original-Received: from debbugs.gnu.org ([209.51.188.43]:38644) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1m4E0E-0007kk-Iq for bug-gnu-emacs@gnu.org; Thu, 15 Jul 2021 22:55:02 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1m4E0E-0007rN-Il for bug-gnu-emacs@gnu.org; Thu, 15 Jul 2021 22:55:02 -0400 X-Loop: help-debbugs@gnu.org Resent-From: Michael Heerdegen Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Fri, 16 Jul 2021 02:55:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: report 49592 X-GNU-PR-Package: emacs X-Debbugs-Original-To: bug-gnu-emacs@gnu.org Original-Received: via spool by submit@debbugs.gnu.org id=B.162640405330151 (code B ref -1); Fri, 16 Jul 2021 02:55:02 +0000 Original-Received: (at submit) by debbugs.gnu.org; 16 Jul 2021 02:54:13 +0000 Original-Received: from localhost ([127.0.0.1]:50190 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1m4DzO-0007qD-VL for submit@debbugs.gnu.org; Thu, 15 Jul 2021 22:54:13 -0400 Original-Received: from lists.gnu.org ([209.51.188.17]:47088) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1m4DzC-0007pe-Vk for submit@debbugs.gnu.org; Thu, 15 Jul 2021 22:54:09 -0400 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]:52114) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1m4DzC-0001l6-Hc for bug-gnu-emacs@gnu.org; Thu, 15 Jul 2021 22:53:58 -0400 Original-Received: from mout.web.de ([212.227.17.12]:47299) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1m4Dz9-0006rM-WF for bug-gnu-emacs@gnu.org; Thu, 15 Jul 2021 22:53:58 -0400 DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/simple; d=web.de; s=dbaedf251592; t=1626404034; bh=hDrkip+q27BX3Anytg6zYIBh/mHvW8vB9z8z/huZDCY=; h=X-UI-Sender-Class:From:To:Subject:Date; b=cgRyL+qlb59BzoQAGmf/q2nkCSosOLmGZqXr57BGnmbGuQ40WhstXwuUVJItC3UQm dqF17F+Sg2osciBv+tpHpsKPMUt1UtHI9xu8D46r/URfME1Yx8kU00tDxrkc8ZyBWM FsDDsQurQeN/5PrrH3P+LYs5PUPb8AYajcVIOsTo= X-UI-Sender-Class: c548c8c5-30a9-4db5-a2e7-cb6cb037b8f9 Original-Received: from drachen.dragon ([88.66.201.45]) by smtp.web.de (mrweb102 [213.165.67.124]) with ESMTPSA (Nemesis) id 0LbrUu-1lN9PR3ME0-00jIgk for ; Fri, 16 Jul 2021 04:53:53 +0200 X-Provags-ID: V03:K1:SB8WKdkXigbnf5pmZLDTjbFAaa15lQ5ROVrhLT3B8iYo5L1b9+V 7+yLlo8EZlpI30lAqaMxML3JLc5ZWyDu9JdCGuK5YQtv3gPBRNlILqw0x6nop/FkYvKGjnF ZF77zHDtU0KA+5SKMOcefSkadjcKeM58zUkqJttheLgDyyfvCSGVLAmIXBmh3Q7e5OLb3Pd H2qH1ysbdUfUemkjFdr8A== X-UI-Out-Filterresults: notjunk:1;V03:K0:eYLl3rEyG8s=:KqKwXnI7stuIt/A/tP6UcV zTAPQsJFdqZSH5jvjuTabeydEClGxhvdTY/YPys09xNgFLUsNLhwkeQaVqYfglc/V6iqucF0W PDEGRmaPXgdh35pTcSPdT5Mo3BCCuUDjRk6CYHqNY864sqiLmU77TN945GNJ8WYlrEwWXbpjw So61G8joozND1KM/XICDsTEHmX/0s8IUaPaRQ+Ht9YrZpDhZv/87FxwVilmRKLa968ENKS0AQ wSrJ+32kJKAVowZM2g+0YS/+rhVAXrBg/PFAjN1A2RlQ/PUdvumKD7SHYBzGsLGZQNkds726S WkdXPnj03qPd2In0XFbcjOOlOLApcW/7N48UQyDt4R7nnk7gIwVDr8NIvW/2uZtAvHDKCZF6O /4Dl51+m3BUldZiCwjjLQ6NOffVsakETg84L8vjY0PfFhF58olQTGJOauFV581nsouS2SPey6 xoiNHky87cb6HMTq0EWdMi46BuYXkLSecAygrTFFLyzRpRb1PuQfKEBHjnJzOs+hO4bbEBa2P R2PUk4wV4+l6TfvzkVCQ8Y49l8nV5f21lBtM52xWmJsGuIv9P3CHMcZBkU2yC66foqxyxnzzS t5X8SwkX0ZUIFJvb59sI7HtIrXexdCYORFKUIgCCuOy26gWIjRH4ISIgrc9q5oAT3sAmNF1WX fiWwMn457XeAGe1w9geDmbvMCzAXkBVhGfuFCcrtGfhGm0XKsdkP0Rc6NbHon3DBW07DF60WO NeiR14WR4wFVri1U6Ig1AECxZ6CffqDfsuacfv5sjLJ3F2v/N9UIAeJtFd6PVmGX6C1H29FV Received-SPF: pass client-ip=212.227.17.12; envelope-from=michael_heerdegen@web.de; helo=mout.web.de X-Spam_score_int: -20 X-Spam_score: -2.1 X-Spam_bar: -- X-Spam_report: (-2.1 / 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_MSPIKE_H3=0.001, RCVD_IN_MSPIKE_WL=0.001, SPF_HELO_NONE=0.001, SPF_PASS=-0.001 autolearn=ham autolearn_force=no X-Spam_action: no action 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:210066 Archived-At: Hello, consider a top-level expression like this (you might want to insert this snipped into *scratch* for testing): (progn ;; comment ;; about that (define-key ...) ) With `which-function-mode' enabled, more or less the complete expression is shown in the mode-line (with newlines escaped) when moving into the expression. The reason: `lisp-current-defun-name' doesn't check for whether the second subexpression of a top-level expression is still on the same line - it just returns a string including everything (i.e. all comments) in between. Dunno what the best fix is. In the above case returning something like "(progn ...)" would be best, since the second subexpression is not even a name (a symbol). TIA, Michael. In GNU Emacs 28.0.50 (build 38, x86_64-pc-linux-gnu, GTK+ Version 3.24.24, cairo version 1.16.0) of 2021-07-16 built on drachen Repository revision: c5d6d45b48b2a4799ad1d27a2e7551113801b097 Repository branch: master Windowing system distributor 'The X.Org Foundation', version 11.0.12010000 System Description: Debian GNU/Linux bullseye/sid Configured features: CAIRO DBUS FREETYPE GIF GLIB GMP GNUTLS GSETTINGS HARFBUZZ JPEG JSON LCMS2 LIBSELINUX LIBXML2 MODULES NOTIFY INOTIFY PDUMPER PNG RSVG SECCOMP SOUND THREADS TIFF TOOLKIT_SCROLL_BARS X11 XDBE XIM XPM GTK3 ZLIB