From unknown Tue Jun 17 12:40:26 2025 Content-Disposition: inline Content-Transfer-Encoding: quoted-printable MIME-Version: 1.0 X-Mailer: MIME-tools 5.509 (Entity 5.509) Content-Type: text/plain; charset=utf-8 From: bug#20157 <20157@debbugs.gnu.org> To: bug#20157 <20157@debbugs.gnu.org> Subject: Status: 25.0.50; `describe-key-briefly' shows byte-code for Reply-To: bug#20157 <20157@debbugs.gnu.org> Date: Tue, 17 Jun 2025 19:40:26 +0000 retitle 20157 25.0.50; `describe-key-briefly' shows byte-code for reassign 20157 emacs submitter 20157 Drew Adams severity 20157 minor tag 20157 fixed thanks From debbugs-submit-bounces@debbugs.gnu.org Sat Mar 21 14:43:37 2015 Received: (at submit) by debbugs.gnu.org; 21 Mar 2015 18:43:37 +0000 Received: from localhost ([127.0.0.1]:60044 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1YZOMz-0005Qv-7N for submit@debbugs.gnu.org; Sat, 21 Mar 2015 14:43:37 -0400 Received: from eggs.gnu.org ([208.118.235.92]:48965) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1YZOMw-0005Qd-7I for submit@debbugs.gnu.org; Sat, 21 Mar 2015 14:43:34 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1YZOMp-0006Wu-UU for submit@debbugs.gnu.org; Sat, 21 Mar 2015 14:43:28 -0400 X-Spam-Checker-Version: SpamAssassin 3.3.2 (2011-06-06) on eggs.gnu.org X-Spam-Level: X-Spam-Status: No, score=-0.0 required=5.0 tests=BAYES_20 autolearn=disabled version=3.3.2 Received: from lists.gnu.org ([208.118.235.17]:50799) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1YZOMp-0006Wo-Ro for submit@debbugs.gnu.org; Sat, 21 Mar 2015 14:43:27 -0400 Received: from eggs.gnu.org ([2001:4830:134:3::10]:50682) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1YZOMo-0006jn-Pd for bug-gnu-emacs@gnu.org; Sat, 21 Mar 2015 14:43:27 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1YZOMl-0006VQ-Ik for bug-gnu-emacs@gnu.org; Sat, 21 Mar 2015 14:43:26 -0400 Received: from userp1040.oracle.com ([156.151.31.81]:37141) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1YZOMl-0006V4-Bj for bug-gnu-emacs@gnu.org; Sat, 21 Mar 2015 14:43:23 -0400 Received: from userv0022.oracle.com (userv0022.oracle.com [156.151.31.74]) by userp1040.oracle.com (Sentrion-MTA-4.3.2/Sentrion-MTA-4.3.2) with ESMTP id t2LIhK0V013014 (version=TLSv1 cipher=DHE-RSA-AES256-SHA bits=256 verify=OK) for ; Sat, 21 Mar 2015 18:43:20 GMT Received: from aserv0121.oracle.com (aserv0121.oracle.com [141.146.126.235]) by userv0022.oracle.com (8.13.8/8.13.8) with ESMTP id t2LIhK4b013245 (version=TLSv1/SSLv3 cipher=DHE-RSA-AES256-SHA bits=256 verify=FAIL) for ; Sat, 21 Mar 2015 18:43:20 GMT Received: from abhmp0017.oracle.com (abhmp0017.oracle.com [141.146.116.23]) by aserv0121.oracle.com (8.13.8/8.13.8) with ESMTP id t2LIhJ2X012043 for ; Sat, 21 Mar 2015 18:43:19 GMT MIME-Version: 1.0 Message-ID: Date: Sat, 21 Mar 2015 11:43:21 -0700 (PDT) From: Drew Adams To: bug-gnu-emacs@gnu.org Subject: 25.0.50; `describe-key-briefly' shows byte-code for X-Priority: 3 X-Mailer: Oracle Beehive Extensions for Outlook 2.0.1.8.2 (807160) [OL 12.0.6691.5000 (x86)] Content-Type: text/plain; charset=us-ascii Content-Transfer-Encoding: quoted-printable X-Source-IP: userv0022.oracle.com [156.151.31.74] X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.4.x-2.6.x [generic] X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6.x X-Received-From: 208.118.235.17 X-Spam-Score: -4.0 (----) X-Debbugs-Envelope-To: submit X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.15 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: -4.0 (----) I cannot easily give a recipe to repro this. But using `describe-key-briefly' with non-nil INSERT arg and clicking mouse-1 in some contexts gives me this: at that spot runs the command mouse-drag-region runs the command #[257 "..." [(down-mouse-1 (# 5007 (577 . 198) 152173811 nil 5007 (82 . 16) nil (3 . 6) (0 . 12))) (5007) # 0 44 0 nil event-end posn-point mouse-movement integer-or-marker-p mouse--drag-set-mark-and-point mouse-position mouse-scroll-subr nil auto-hscroll-mode] 9 " (fn EVENT)" "e"] where the "..." after the #[257 is really byte-code. So far, I have not seen byte code for other key descriptions. I say in some contexts because if I just put this in a buffer and use C-x C-e on it, it just inserts " runs the command ignore": (describe-key-briefly [mouse-movement] t) So far, I have not seen byte-code for other key descriptions. I tried using the debugger on this, but was unable to repro the problem then. Apparently, sometimes clicking mouse-1 causes the normal text "runs the command ignore" to be used. Sometimes it shows the byte code. The preceding command, when it does this, seems always to be `mouse-drag-region', from a event. From debbugs-submit-bounces@debbugs.gnu.org Sat Dec 26 13:18:18 2015 Received: (at control) by debbugs.gnu.org; 26 Dec 2015 18:18:18 +0000 Received: from localhost ([127.0.0.1]:42070 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84) (envelope-from ) id 1aCtQ1-0007sx-RC for submit@debbugs.gnu.org; Sat, 26 Dec 2015 13:18:17 -0500 Received: from hermes.netfonds.no ([80.91.224.195]:35439) by debbugs.gnu.org with esmtp (Exim 4.84) (envelope-from ) id 1aCtPz-0007sp-SP for control@debbugs.gnu.org; Sat, 26 Dec 2015 13:18:16 -0500 Received: from 2.150.58.24.tmi.telenormobil.no ([2.150.58.24] helo=mouse) by hermes.netfonds.no with esmtpsa (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.72) (envelope-from ) id 1aCtPf-0003Lx-C4 for control@debbugs.gnu.org; Sat, 26 Dec 2015 19:17:55 +0100 Date: Sat, 26 Dec 2015 19:17:54 +0100 Message-Id: <87mvsxhy5p.fsf@gnus.org> To: control@debbugs.gnu.org From: Lars Ingebrigtsen Subject: control message for bug #20157 X-MailScanner-ID: 1aCtPf-0003Lx-C4 X-Netfonds-MailScanner: Found to be clean X-Netfonds-MailScanner-From: larsi@gnus.org MailScanner-NULL-Check: 1451758675.59929@6tOlkEFgZPBt4BHkkgzrDQ X-Spam-Status: No X-Spam-Score: -0.7 (/) 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: -0.7 (/) tags 20157 - moreinfo From debbugs-submit-bounces@debbugs.gnu.org Sat Apr 30 14:11:17 2016 Received: (at control) by debbugs.gnu.org; 30 Apr 2016 18:11:17 +0000 Received: from localhost ([127.0.0.1]:58279 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1awZMK-00068P-R6 for submit@debbugs.gnu.org; Sat, 30 Apr 2016 14:11:16 -0400 Received: from hermes.netfonds.no ([80.91.224.195]:59215) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1awZMJ-00068I-Tw for control@debbugs.gnu.org; Sat, 30 Apr 2016 14:11:16 -0400 Received: from cm-84.215.1.64.getinternet.no ([84.215.1.64] helo=mouse) by hermes.netfonds.no with esmtpsa (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.84_2) (envelope-from ) id 1awZMH-0005Fy-Qa for control@debbugs.gnu.org; Sat, 30 Apr 2016 20:11:15 +0200 Date: Sat, 30 Apr 2016 20:11:12 +0200 Message-Id: <87bn4rezlr.fsf@gnus.org> To: control@debbugs.gnu.org From: Lars Ingebrigtsen Subject: control message for bug #20157 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: 0.0 (/) forcemerge 20157 13841 From debbugs-submit-bounces@debbugs.gnu.org Sat Apr 30 16:04:23 2016 Received: (at control) by debbugs.gnu.org; 30 Apr 2016 20:04:23 +0000 Received: from localhost ([127.0.0.1]:58502 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1awb7n-0003dO-LB for submit@debbugs.gnu.org; Sat, 30 Apr 2016 16:04:23 -0400 Received: from hermes.netfonds.no ([80.91.224.195]:60147) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1awb7m-0003dH-AT for control@debbugs.gnu.org; Sat, 30 Apr 2016 16:04:22 -0400 Received: from cm-84.215.1.64.getinternet.no ([84.215.1.64] helo=mouse) by hermes.netfonds.no with esmtpsa (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.84_2) (envelope-from ) id 1awb7k-0006FQ-6H for control@debbugs.gnu.org; Sat, 30 Apr 2016 22:04:21 +0200 Date: Sat, 30 Apr 2016 22:04:18 +0200 Message-Id: <87h9eic18d.fsf@gnus.org> To: control@debbugs.gnu.org From: Lars Ingebrigtsen Subject: control message for bug #20942 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: 0.0 (/) forcemerge 20942 13841 From debbugs-submit-bounces@debbugs.gnu.org Tue Oct 08 23:28:30 2019 Received: (at 20157) by debbugs.gnu.org; 9 Oct 2019 03:28:30 +0000 Received: from localhost ([127.0.0.1]:51785 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1iI2eI-0003vK-BG for submit@debbugs.gnu.org; Tue, 08 Oct 2019 23:28:27 -0400 Received: from quimby.gnus.org ([80.91.231.51]:51766) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1iI2eE-0003ux-IC; Tue, 08 Oct 2019 23:28:23 -0400 Received: from cm-84.212.202.86.getinternet.no ([84.212.202.86] helo=marnie) by quimby.gnus.org with esmtpsa (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.89) (envelope-from ) id 1iI2eA-00021W-2i; Wed, 09 Oct 2019 05:28:20 +0200 From: Lars Ingebrigtsen To: Eli Zaretskii Subject: Re: bug#13841: 24.3.50; Regression - unreadable `C-h k' help References: <98E304F5436E487A91B33E89A04A5851@us.oracle.com> <87sirr1l0d.fsf@building.gnus.org> <87h9el2wcj.fsf@gnus.org> <87inyze2tq.fsf@web.de> <4e02c2a0-6e68-4091-a64d-131bcfc2fc49@default> <83wpnfnlf1.fsf@gnu.org> <87vb2x3n0q.fsf@web.de> <837ffdolve.fsf@gnu.org> <8737q1reua.fsf@gnus.org> <83wpndn5rp.fsf@gnu.org> Date: Wed, 09 Oct 2019 05:28:17 +0200 In-Reply-To: <83wpndn5rp.fsf@gnu.org> (Eli Zaretskii's message of "Sun, 01 May 2016 18:43:06 +0300") Message-ID: <87tv8ivbqm.fsf@gnus.org> User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/27.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: Eli Zaretskii writes: >> > No, I think we should forbid using a lambda as a user-visible key >> > binding. >> >> I think we should avoid doing so in the code in Emacs > > That's what I meant, yes. 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: 20157 Cc: michael_heerdegen@web.de, 13841@debbugs.gnu.org, 20157@debbugs.gnu.org, drew.adams@oracle.com 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 (-) Eli Zaretskii writes: >> > No, I think we should forbid using a lambda as a user-visible key >> > binding. >> >> I think we should avoid doing so in the code in Emacs > > That's what I meant, yes. I have now fixed this in menu-bar.el for the original reported case (and the ones in nearby menus). There may be more lurking other places, but we can fix those if somebody reports them, I guess. -- (domestic pets only, the antidote for overdose, milk.) bloggy blog: http://lars.ingebrigtsen.no From debbugs-submit-bounces@debbugs.gnu.org Tue Oct 08 23:28:32 2019 Received: (at control) by debbugs.gnu.org; 9 Oct 2019 03:28:32 +0000 Received: from localhost ([127.0.0.1]:51788 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1iI2eO-0003vc-39 for submit@debbugs.gnu.org; Tue, 08 Oct 2019 23:28:32 -0400 Received: from quimby.gnus.org ([80.91.231.51]:51780) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1iI2eJ-0003vL-C0 for control@debbugs.gnu.org; Tue, 08 Oct 2019 23:28:30 -0400 Received: from cm-84.212.202.86.getinternet.no ([84.212.202.86] helo=marnie) by quimby.gnus.org with esmtpsa (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.89) (envelope-from ) id 1iI2eG-00021h-Ke for control@debbugs.gnu.org; Wed, 09 Oct 2019 05:28:26 +0200 Date: Wed, 09 Oct 2019 05:28:24 +0200 Message-Id: <87sgo2vbqf.fsf@gnus.org> To: control@debbugs.gnu.org From: Lars Ingebrigtsen Subject: control message for bug #20157 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 20157 fixed close 20157 27.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 20157 fixed close 20157 27.1 quit From debbugs-submit-bounces@debbugs.gnu.org Wed Oct 09 06:57:51 2019 Received: (at 20157) by debbugs.gnu.org; 9 Oct 2019 10:57:51 +0000 Received: from localhost ([127.0.0.1]:52211 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1iI9fC-000649-Q8 for submit@debbugs.gnu.org; Wed, 09 Oct 2019 06:57:51 -0400 Received: from mout.web.de ([212.227.15.4]:33433) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1iI9f9-00063s-OB; Wed, 09 Oct 2019 06:57:49 -0400 DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/simple; d=web.de; s=dbaedf251592; t=1570618650; bh=kouyZ0HXochXg++2uEXrBImZZ0coaImQqmhZAfc3xT8=; h=X-UI-Sender-Class:From:To:Cc:Subject:References:Date:In-Reply-To; b=LAFDlhj2i4kmimcnvxyUlzYep6gaTm2LBalfLpFfgMdcMk+CzL6RPtRB6zOiGw88d aUbi/ykxK4v4anEQ34gOI76xuxquNlXq/MRE7GPmV6TJ8RNkHHFuCWXg4bUGEbQf/z YKcMHBnq2daSGcezFFm3I+Pc6L7xRVeIlDQsNEDc= X-UI-Sender-Class: c548c8c5-30a9-4db5-a2e7-cb6cb037b8f9 Received: from drachen.dragon ([92.208.91.33]) by smtp.web.de (mrweb001 [213.165.67.108]) with ESMTPSA (Nemesis) id 0MLP5m-1iIhtA0NZi-000YcK; Wed, 09 Oct 2019 12:57:30 +0200 From: Michael Heerdegen To: Lars Ingebrigtsen Subject: Re: bug#13841: 24.3.50; Regression - unreadable `C-h k' help References: <98E304F5436E487A91B33E89A04A5851@us.oracle.com> <87sirr1l0d.fsf@building.gnus.org> <87h9el2wcj.fsf@gnus.org> <87inyze2tq.fsf@web.de> <4e02c2a0-6e68-4091-a64d-131bcfc2fc49@default> <83wpnfnlf1.fsf@gnu.org> <87vb2x3n0q.fsf@web.de> <837ffdolve.fsf@gnu.org> <8737q1reua.fsf@gnus.org> <83wpndn5rp.fsf@gnu.org> <87tv8ivbqm.fsf@gnus.org> Date: Wed, 09 Oct 2019 12:57:32 +0200 In-Reply-To: <87tv8ivbqm.fsf@gnus.org> (Lars Ingebrigtsen's message of "Wed, 09 Oct 2019 05:28:17 +0200") Message-ID: <878spu190j.fsf@web.de> User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/27.0.50 (gnu/linux) MIME-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Provags-ID: V03:K1:cK1rdOLtqPkveEGMuWXPljJdTYZvnSxymZ7arXk6R1QZYOq/XkA kiKUVtvErEhfqVHSoqFLul/G+kNAdtW5ELQS9mB4na2IxDQR+BUEG76gbX5iwxhutHOU3HP zG5OLR01q05nhd1S5qF9I2q6sKawxIYMmfERCBw/lbpLHvbrwwlceXMa0VcFgkaZAC+gzHY IvoW94ZZ8NjKRKxRi1ldw== X-Spam-Flag: NO X-UI-Out-Filterresults: notjunk:1;V03:K0:V2AULLRlwmg=:2s1dfWYbxMOLVX58DqJGs4 V+tlh8P5CZsA2wsohC6rwrHlU1m75Wb5qm80Z65FQPA/0HDBYJsEPMakSM7Ujbwlpc3cyio0d yMFYrH9gnOlWg46F1UFqMZgzKwInzFd0zHrnMcl37Ptn8emwoCtmVLL+as1j35DN6Udf4C3iR w5nXhiXl3cjigeQx0InvmtwWVbycaGlv9BxVg6FLQnoNjqNDpQK+oNsV9FazcCWdcB1aqPgiV WagHpShGdJPbDEZc90i8aXU4rVXlXCadK9ENK6PVArMK6owf+UzRQB4OlbQSS46s25+huZDDG MSLAfTEqXCO0jvAUTiWlxsUTMLaXnzcoNi0+1tWGDpdUoFhsJPu3rnTpha5ri2wDw2Meiz8R4 UQ6duQbTWZWsLtJBPtGDLViGHap21QslPAGhZcOGrZmevbcX3fFVvGMhWiSX7eqIrbhWyxQRs VCZTn/QPpYU/VAKxzllBTYCUzMC4h0AcVFfdzIkR2VZpuAAOqQ3MvO1J4HeACluTg1LUrGVpf KujhNb2Ye+4G8pxrb8Wo1VWSTvSoNHsDB4hETXMUYv9jQT2/1esRpiazsUGRE3VYkSXAqkGrZ OLwY+iZ/okvO+lsOE4PW8jDA8KYCJzAc4jswxH22D1d87/tQsugMp2zKS9D8R9o0DERYXJMJs NlYfZgCebKXmZQ87ipYFrIND1Aa36r1pmz8C8W0rdfhU2z21oXELEQux2ABLs8nm8IBfiSTEj 3tSh4RUeJl7ZB/MjNKoch95tuqdUEyy8UOdT3+OdPjLVjoyWgG0OoZMHM4yjTVc05RxBtH5RB 5wlg6jYEjjcUQ/hgmNGNIQ4WgQM3eB4uy6sCzrdl4LdaupeIT3oPAa8ckxj3PGLTdrZUaxMV7 uIXmoevJL2qmo1epr8XbNz76WxUFIN2YX3iAPortYpSk8GEnjVwScYowaFvHitU2Ni8DwCd1T ZESWwYzSLBTAEzk5aIumEG7CEwFpztHjTMgfPKOFoEL9IskIbhRMl8v89RamuxbpiajFAEwUe E8IfYQnLlEygMxPKRwUsK0SRsXGMpLlnMKb4gZ12tTNacpW45+7O34R4iTBQsQ0MYyCD+aTD2 zWq9Kt9FWw/Cg53Rk6XMZniK0cAqQYNsZ7STa7fMakG/nrjKRvMbotlkzKwaH1iHLFu6jIoyj vQy3hYSZnBDEaajo9LTjjs9abbE+h18Om5UrJBCDSNVW65oDJ7pa9K4FG3gj0gZc8SkbMHNEp 3+WQDEO21fez6SjlPgjUWH0abQl03LdpOavZeJ2OoBk2uM/JgYfZHVhn7f4A= X-Spam-Score: 0.0 (/) X-Debbugs-Envelope-To: 20157 Cc: Eli Zaretskii , 20157@debbugs.gnu.org, 13841@debbugs.gnu.org, drew.adams@oracle.com 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 (-) --=-=-= Content-Type: text/plain Lars Ingebrigtsen writes: > I have now fixed this in menu-bar.el for the original reported case (and > the ones in nearby menus). There may be more lurking other places, but > we can fix those if somebody reports them, I guess. Thanks. I don't recall: did we want to fix only compiled lambdas, or any anonymous functions (including quoted lambdas)? Attached a quick rough search for candidates (search for "-->") - is any of them problematic? Regards, Michael. --=-=-= Content-Type: application/emacs-lisp Content-Disposition: attachment; filename=menu-bar-lambdas.el Content-Transfer-Encoding: quoted-printable ;;; * Wed Oct 9 12:27:17 2019 -*- mode: el-search-occur -*- ;;; ** Search the Emacs Elisp sources for: (l 'menu-item _ (contains 'lambda)) ;;; ** 32 matches in 12 files: ;;; *** /home/micha/software/emacs/lisp/abbrev.el (1 match) ;;;; Line 1021 (defun abbrev-table-menu (table &optional prompt sortfun) "Return a menu that shows all abbrevs in TABLE. Selecting an entry runs `abbrev-insert'. PROMPT is the prompt to use for the keymap. SORTFUN is passed to `sort' to change the default ordering." (unless sortfun (setq sortfun 'string-lessp)) (let ((entries ())) (obarray-map (lambda (abbrev) (when (symbol-value abbrev) (let ((name (symbol-name abbrev))) (push `--> (,(intern name) menu-item ,name (lambda () (interactive) (abbrev-insert ',abbrev))) <-- entries)))) table) (nconc (make-sparse-keymap prompt) (sort entries (lambda (x y) (funcall sortfun (nth 2 x) (nth 2 y))))))) ;;; *** /home/micha/software/emacs/lisp/info.el (1 match) ;;;; Line 4156 (defun Info-history-menu (e name history command) (let* ((i (length history)) (map (make-sparse-keymap name))) (mapc (lambda (history) (let ((file (nth 0 history)) (node (nth 1 history))) (when (stringp file) (setq file (file-name-sans-extension (file-name-nondirectory file)))) (define-key map (vector (intern (format "history-%i" i))) `--> (menu-item ,(format "(%s) %s" file node) (lambda () (interactive) (dotimes (_ ,i) (call-interactively ',command= )))) <--)) (setq i (1- i))) (reverse history)) (let* ((selection (x-popup-menu e map)) (binding (and selection (lookup-key map (vector (car selection))= )))) (if binding (call-interactively binding))))) ;;; *** /home/micha/software/emacs/lisp/ldefs-boot.el (4 matches) ;;;; Line 18479 (defconst ispell-menu-map (let ((map (make-sparse-keymap "Spell"))) (define= -key map [ispell-change-dictionary] `(menu-item ,(purecopy "Change Dictiona= ry...") ispell-change-dictionary :help ,(purecopy "Supply explicit dictiona= ry file name"))) (define-key map [ispell-kill-ispell] `--> (menu-item ,(pur= ecopy "Kill Process") (lambda nil (interactive) (ispell-kill-ispell nil 'cl= ear)) :enable (and (boundp 'ispell-process) ispell-process (eq (ispell-proc= ess-status) 'run)) :help ,(purecopy "Terminate Ispell subprocess")) <--) (d= efine-key map [ispell-pdict-save] `--> (menu-item ,(purecopy "Save Dictiona= ry") (lambda nil (interactive) (ispell-pdict-save t t)) :help ,(purecopy "S= ave personal dictionary")) <--) (define-key map [ispell-customize] `--> (me= nu-item ,(purecopy "Customize...") (lambda nil (interactive) (customize-gro= up 'ispell)) :help ,(purecopy "Customize spell checking options")) <--) (de= fine-key map [ispell-help] `--> (menu-item ,(purecopy "Help") (lambda nil (= interactive) (describe-function 'ispell-help)) :help ,(purecopy "Show stand= ard Ispell keybindings and commands")) <--) (define-key map [flyspell-mode]= `(menu-item ,(purecopy "Automatic spell checking (Flyspell)") flyspell-mod= e :help ,(purecopy "Check spelling while you edit the text") :button (:togg= le bound-and-true-p flyspell-mode))) (define-key map [ispell-complete-word]= `(menu-item ,(purecopy "Complete Word") ispell-complete-word :help ,(purec= opy "Complete word at cursor using dictionary"))) (define-key map [ispell-c= omplete-word-interior-frag] `(menu-item ,(purecopy "Complete Word Fragment"= ) ispell-complete-word-interior-frag :help ,(purecopy "Complete word fragme= nt at cursor"))) (define-key map [ispell-continue] `(menu-item ,(purecopy "= Continue Spell-Checking") ispell-continue :enable (and (boundp 'ispell-regi= on-end) (marker-position ispell-region-end) (equal (marker-buffer ispell-re= gion-end) (current-buffer))) :help ,(purecopy "Continue spell checking last= region"))) (define-key map [ispell-word] `(menu-item ,(purecopy "Spell-Che= ck Word") ispell-word :help ,(purecopy "Spell-check word at cursor"))) (def= ine-key map [ispell-comments-and-strings] `(menu-item ,(purecopy "Spell-Che= ck Comments") ispell-comments-and-strings :help ,(purecopy "Spell-check onl= y comments and strings"))) (define-key map [ispell-region] `(menu-item ,(pu= recopy "Spell-Check Region") ispell-region :enable mark-active :help ,(pure= copy "Spell-check text in marked region"))) (define-key map [ispell-message= ] `(menu-item ,(purecopy "Spell-Check Message") ispell-message :visible (eq= major-mode 'mail-mode) :help ,(purecopy "Skip headers and included message= text"))) (define-key map [ispell-buffer] `(menu-item ,(purecopy "Spell-Che= ck Buffer") ispell-buffer :help ,(purecopy "Check spelling of selected buff= er"))) map) "\ Key map for ispell menu.") ;;; *** /home/micha/software/emacs/lisp/loaddefs.el (4 matches) ;;;; Line 18504 (defconst ispell-menu-map (let ((map (make-sparse-keymap "Spell"))) (define= -key map [ispell-change-dictionary] `(menu-item ,(purecopy "Change Dictiona= ry...") ispell-change-dictionary :help ,(purecopy "Supply explicit dictiona= ry file name"))) (define-key map [ispell-kill-ispell] `--> (menu-item ,(pur= ecopy "Kill Process") (lambda nil (interactive) (ispell-kill-ispell nil 'cl= ear)) :enable (and (boundp 'ispell-process) ispell-process (eq (ispell-proc= ess-status) 'run)) :help ,(purecopy "Terminate Ispell subprocess")) <--) (d= efine-key map [ispell-pdict-save] `--> (menu-item ,(purecopy "Save Dictiona= ry") (lambda nil (interactive) (ispell-pdict-save t t)) :help ,(purecopy "S= ave personal dictionary")) <--) (define-key map [ispell-customize] `--> (me= nu-item ,(purecopy "Customize...") (lambda nil (interactive) (customize-gro= up 'ispell)) :help ,(purecopy "Customize spell checking options")) <--) (de= fine-key map [ispell-help] `--> (menu-item ,(purecopy "Help") (lambda nil (= interactive) (describe-function 'ispell-help)) :help ,(purecopy "Show stand= ard Ispell keybindings and commands")) <--) (define-key map [flyspell-mode]= `(menu-item ,(purecopy "Automatic spell checking (Flyspell)") flyspell-mod= e :help ,(purecopy "Check spelling while you edit the text") :button (:togg= le bound-and-true-p flyspell-mode))) (define-key map [ispell-complete-word]= `(menu-item ,(purecopy "Complete Word") ispell-complete-word :help ,(purec= opy "Complete word at cursor using dictionary"))) (define-key map [ispell-c= omplete-word-interior-frag] `(menu-item ,(purecopy "Complete Word Fragment"= ) ispell-complete-word-interior-frag :help ,(purecopy "Complete word fragme= nt at cursor"))) (define-key map [ispell-continue] `(menu-item ,(purecopy "= Continue Spell-Checking") ispell-continue :enable (and (boundp 'ispell-regi= on-end) (marker-position ispell-region-end) (equal (marker-buffer ispell-re= gion-end) (current-buffer))) :help ,(purecopy "Continue spell checking last= region"))) (define-key map [ispell-word] `(menu-item ,(purecopy "Spell-Che= ck Word") ispell-word :help ,(purecopy "Spell-check word at cursor"))) (def= ine-key map [ispell-comments-and-strings] `(menu-item ,(purecopy "Spell-Che= ck Comments") ispell-comments-and-strings :help ,(purecopy "Spell-check onl= y comments and strings"))) (define-key map [ispell-region] `(menu-item ,(pu= recopy "Spell-Check Region") ispell-region :enable mark-active :help ,(pure= copy "Spell-check text in marked region"))) (define-key map [ispell-message= ] `(menu-item ,(purecopy "Spell-Check Message") ispell-message :visible (eq= major-mode 'mail-mode) :help ,(purecopy "Skip headers and included message= text"))) (define-key map [ispell-buffer] `(menu-item ,(purecopy "Spell-Che= ck Buffer") ispell-buffer :help ,(purecopy "Check spelling of selected buff= er"))) map) "\ Key map for ispell menu.") ;;; *** /home/micha/software/emacs/lisp/menu-bar.el (3 matches) ;;;; Line 1336 (defvar menu-bar-search-options-menu (let ((menu (make-sparse-keymap "Search Options"))) (dolist (x '((char-fold-to-regexp "Fold Characters" "Character folding") (isearch-symbol-regexp "Whole Symbols" "Whole symbol") (word-search-regexp "Whole Words" "Whole word"))) (bindings--define-key menu (vector (nth 0 x)) `--> (menu-item ,(nth 1 x) (lambda () (interactive) (setq search-default-mode #',(nth 0 x)) (message ,(format "%s search enabled" (nth 2 x)))) :help ,(format "Enable %s search" (downcase (nth 2 x))) :button (:radio . (eq search-default-mode #',(nth 0 x))= )) <--)) (bindings--define-key menu [regexp-search] '--> (menu-item "Regular Expression" (lambda () (interactive) (setq search-default-mode t) (message "Regular-expression search enabled")) :help "Enable regular-expression search" :button (:radio . (eq search-default-mode t))) <--) (bindings--define-key menu [regular-search] '--> (menu-item "Literal Search" (lambda () (interactive) (when search-default-mode (setq search-default-mode nil) (when (symbolp search-default-mode) (message "Literal search enabled")))) :help "Disable special search modes" :button (:radio . (not search-default-mode))) <--) (bindings--define-key menu [custom-separator] menu-bar-separator) (bindings--define-key menu [case-fold-search] (menu-bar-make-toggle toggle-case-fold-search case-fold-search "Ignore Case" "Case-Insensitive Search %s" "Ignore letter-case in search commands")) menu)) ;;; *** /home/micha/software/emacs/lisp/mouse.el (2 matches) ;;;; Line 157 (defun minor-mode-menu-from-indicator (indicator) "Show menu for minor mode specified by INDICATOR. Interactively, INDICATOR is read using completion. If there is no menu defined for the minor mode, then create one with items `Turn Off' and `Help'." (interactive (list (completing-read "Minor mode indicator: " (describe-minor-mode-completion-table-for-indicator)))) (let* ((minor-mode (lookup-minor-mode-from-indicator indicator)) (mm-fun (or (get minor-mode :minor-mode-function) minor-mode))) (unless minor-mode (error "Cannot find minor mode for `%s'" indicator)) (let* ((map (cdr-safe (assq minor-mode minor-mode-map-alist))) (menu (and (keymapp map) (lookup-key map [menu-bar])))) (setq menu (if menu (mouse-menu-non-singleton menu) (if (fboundp mm-fun) ; bug#20201 `(keymap ,(format "%s - %s" indicator (capitalize (replace-regexp-in-string "-" " " (format "%S" minor-mode)))) (turn-off menu-item "Turn off minor mode" ,mm-fun) --> (help menu-item "Help for minor mode" (lambda () (interactive) (describe-function ',mm-fun))) <--)))) (if menu (popup-menu menu) (message "No menu available"))))) ;;;; Line 389 (defun mouse-drag-line (start-event line) "Drag a mode line, header line, or vertical line with the mouse. START-EVENT is the starting mouse event of the drag action. LINE must be one of the symbols `header', `mode', or `vertical'." ;; Give temporary modes such as isearch a chance to turn off. (run-hooks 'mouse-leave-buffer-hook) (let* ((echo-keystrokes 0) (start (event-start start-event)) (window (posn-window start)) (frame (window-frame window)) ;; `position' records the x- or y-coordinate of the last ;; sampled position. (position (if (eq line 'vertical) (+ (window-pixel-left window) (car (posn-x-y start))) (+ (window-pixel-top window) (cdr (posn-x-y start))))) ;; `last-position' records the x- or y-coordinate of the ;; previously sampled position. The difference of `position' ;; and `last-position' determines the size change of WINDOW. (last-position position) (draggable t) posn-window growth dragged) ;; Decide on whether we are allowed to track at all and whose ;; window's edge we drag. (cond ((eq line 'header) ;; Drag bottom edge of window above the header line. (setq window (window-in-direction 'above window t))) ((eq line 'mode)) ((eq line 'vertical) (let ((divider-width (frame-right-divider-width frame))) (when (and (or (not (numberp divider-width)) (zerop divider-width)) (eq (frame-parameter frame 'vertical-scroll-bars) 'left)) (setq window (window-in-direction 'left window t)))))) (let* ((exitfun nil) (move (lambda (event) (interactive "e") (cond ((not (consp event)) nil) ((eq line 'vertical) ;; Drag right edge of `window'. (setq start (event-start event)) (setq position (car (posn-x-y start))) ;; Set `posn-window' to the window where `event' was recorded. ;; This can be `window' or the window on the left or right of ;; `window'. (when (window-live-p (setq posn-window (posn-window start))) ;; Add left edge of `posn-window' to `position'. (setq position (+ (window-pixel-left posn-window) position)) (unless (nth 1 start) ;; Add width of objects on the left of the text area to ;; `position'. (when (eq (window-current-scroll-bars posn-window) 'left) (setq position (+ (window-scroll-bar-width posn-window) position))) (setq position (+ (car (window-fringes posn-window)) (or (car (window-margins posn-window)) 0) position)))) ;; When the cursor overshoots after shrinking a window to its ;; minimum size and the dragging direction changes, have the ;; cursor first catch up with the window edge. (unless (or (zerop (setq growth (- position last-position))) (and (> growth 0) (< position (+ (window-pixel-left window) (window-pixel-width window)))) (and (< growth 0) (> position (+ (window-pixel-left window) (window-pixel-width window))))) (setq dragged t) (adjust-window-trailing-edge window growth t t)) (setq last-position position)) (draggable ;; Drag bottom edge of `window'. (setq start (event-start event)) ;; Set `posn-window' to the window where `event' was recorded. ;; This can be either `window' or the window above or below of ;; `window'. (setq posn-window (posn-window start)) (setq position (cdr (posn-x-y start))) (when (window-live-p posn-window) ;; Add top edge of `posn-window' to `position'. (setq position (+ (window-pixel-top posn-window) position)) ;; If necessary, add height of header line to `position' (when (memq (posn-area start) '(nil left-fringe right-fringe left-margin right-margin)) (setq position (+ (window-header-line-height posn-window) position)))) ;; When the cursor overshoots after shrinking a window to its ;; minimum size and the dragging direction changes, have the ;; cursor first catch up with the window edge. (unless (or (zerop (setq growth (- position last-position))) (and (> growth 0) (< position (+ (window-pixel-top window) (window-pixel-height window)))) (and (< growth 0) (> position (+ (window-pixel-top window) (window-pixel-height window))))) (setq dragged t) (adjust-window-trailing-edge window growth nil t)) (setq last-position position))))) (old-track-mouse track-mouse)) ;; Start tracking. The special value 'dragging' signals the ;; display engine to freeze the mouse pointer shape for as long ;; as we drag. (setq track-mouse 'dragging) ;; Loop reading events and sampling the position of the mouse. (setq exitfun (set-transient-map (let ((map (make-sparse-keymap))) (define-key map [switch-frame] #'ignore) (define-key map [select-window] #'ignore) (define-key map [scroll-bar-movement] #'ignore) (define-key map [mouse-movement] move) ;; Swallow drag-mouse-1 events to avoid selecting some other window. (define-key map [drag-mouse-1] (lambda () (interactive) (funcall exitfun))) ;; For vertical line dragging swallow also a mouse-1 ;; event (but only if we dragged at least once to allow mouse-1 ;; clicks to get through). (when (eq line 'vertical) (define-key map [mouse-1] `--> (menu-item "" ,(lambda () (interactive) (funcall exitfun)) :filter ,(lambda (cmd) (if dragged cmd))) <--)) ;; Some of the events will of course end up looked up ;; with a mode-line, header-line or vertical-line prefix ... (define-key map [mode-line] map) (define-key map [header-line] map) (define-key map [vertical-line] map) ;; ... and some maybe even with a right- or bottom-divider ;; prefix. (define-key map [right-divider] map) (define-key map [bottom-divider] map) map) t (lambda () (setq track-mouse old-track-mouse))))))) ;;; *** /home/micha/software/emacs/lisp/tab-bar.el (2 matches) ;;;; Line 299 (defun tab-bar-make-keymap-1 () "Generate an actual keymap from `tab-bar-map', without caching." (let* ((separator (or tab-bar-separator (if window-system " " "|"))) (i 0) (tabs (funcall tab-bar-tabs-function)) (current-tab-name (assq 'name (assq 'current-tab tabs)))) (when current-tab-name (setf (cdr current-tab-name) (funcall tab-bar-tab-name-function))) (append '(keymap (mouse-1 . tab-bar-handle-mouse)) (mapcan (lambda (tab) (setq i (1+ i)) (append `((,(intern (format "sep-%i" i)) menu-item ,separator ignore)) (cond ((eq (car tab) 'current-tab) `((current-tab menu-item ,(propertize (concat (if tab-bar-tab-hints (format "%d " i) "= ") (cdr (assq 'name tab)) (or (and tab-bar-close-button-show (not (eq tab-bar-close-button-s= how 'non-selected)) tab-bar-close-button) "")) 'face 'tab-bar-tab) ignore :help "Current tab"))) (t `(--> (,(intern (format "tab-%i" i)) menu-item ,(propertize (concat (if tab-bar-tab-hints (format "%d " i) "= ") (cdr (assq 'name tab)) (or (and tab-bar-close-button-show (not (eq tab-bar-close-button-s= how 'selected)) tab-bar-close-button) "")) 'face 'tab-bar-tab-inactive) ,(or (cdr (assq 'binding tab)) `(lambda () (interactive) (tab-bar-select-tab ,i))) :help "Click to visit tab") <--))) `(--> (,(if (eq (car tab) 'current-tab) 'C-current-tab (intern (fo= rmat "C-tab-%i" i))) menu-item "" ,(or (cdr (assq 'close-binding tab)) `(lambda () (interactive) (tab-bar-close-tab ,i)))) <--))) tabs) (when tab-bar-new-button `((sep-add-tab menu-item ,separator ignore) (add-tab menu-item ,tab-bar-new-button tab-bar-new-tab :help "New tab")))))) ;;; *** /home/micha/software/emacs/lisp/term.el (3 matches) ;;;; Line 4423 (defun serial-update-speed-menu () (setq serial-mode-line-speed-menu (make-sparse-keymap "Speed (b/s)")) (define-key serial-mode-line-speed-menu [serial-mode-line-speed-menu-othe= r] '--> (menu-item "Other..." (lambda (event) (interactive "e") (let ((speed (serial-read-speed))) (serial-process-configure :speed speed) (term-update-mode-line) (message "Speed set to %d b/s" speed)))) <--) (dolist (str (serial-nice-speed-history)) (let ((num (or (and (stringp str) (string-to-number str)) 0))) (define-key serial-mode-line-speed-menu (vector (make-symbol (format "serial-mode-line-speed-menu-%s" str))) `--> (menu-item ,str (lambda (event) (interactive "e") (serial-process-configure :speed ,num) (term-update-mode-line) (message "Speed set to %d b/s" ,num)) :button (:toggle . (=3D (serial-speed) ,num))) <--)))) ;;;; Line 4458 (defun serial-update-config-menu () (setq serial-mode-line-config-menu (make-sparse-keymap "Configuration")) (let ((config (process-contact (get-buffer-process (current-buffer)) t))) (dolist (y '((:flowcontrol hw "Hardware flowcontrol (RTS/CTS)") (:flowcontrol sw "Software flowcontrol (XON/XOFF)") (:flowcontrol nil "No flowcontrol") (:stopbits 2 "2 stopbits") (:stopbits 1 "1 stopbit") (:parity odd "Odd parity") (:parity even "Even parity") (:parity nil "No parity") (:bytesize 7 "7 bits per byte") (:bytesize 8 "8 bits per byte"))) (define-key serial-mode-line-config-menu (vector (make-symbol (format "%s-%s" (nth 0 y) (nth 1 y)))) `--> (menu-item ,(nth 2 y) (lambda (event) (interactive "e") (serial-process-configure ,(nth 0 y) ',(nth 1 y)) (term-update-mode-line) (message "%s" ,(nth 2 y))) ;; Use :toggle instead of :radio because a non-standard port ;; configuration may not match any menu items. :button (:toggle . ,(equal (plist-get config (nth 0 y)) (nth 1 y)))) <--)))) ;;; *** /home/micha/software/emacs/lisp/progmodes/compile.el (3 matches) ;;;; Line 1879 (defvar compilation-menu-map (let ((map (make-sparse-keymap "Errors")) (opt-map (make-sparse-keymap "Skip"))) (define-key map [stop-subjob] '(menu-item "Stop Compilation" kill-compilation :help "Kill the process made by the M-x compile or M-x grep commands")) (define-key map [compilation-mode-separator3] '("----" . nil)) (define-key map [compilation-next-error-follow-minor-mode] '(menu-item "Auto Error Display" next-error-follow-minor-mode :help "Display the error under cursor when moving the cursor" :button (:toggle . next-error-follow-minor-mode))) (define-key map [compilation-skip] (cons "Skip Less Important Messages" opt-map)) (define-key opt-map [compilation-skip-none] '--> (menu-item "Don't Skip Any Messages" (lambda () (interactive) (customize-set-variable 'compilation-skip-threshold 0)) :help "Do not skip any type of messages" :button (:radio . (eq compilation-skip-threshold 0))) <--) (define-key opt-map [compilation-skip-info] '--> (menu-item "Skip Info" (lambda () (interactive) (customize-set-variable 'compilation-skip-threshold 1)) :help "Skip anything less than warning" :button (:radio . (eq compilation-skip-threshold 1))) <--) (define-key opt-map [compilation-skip-warning-and-info] '--> (menu-item "Skip Warnings and Info" (lambda () (interactive) (customize-set-variable 'compilation-skip-threshold 2)) :help "Skip over Warnings and Info, stop for errors" :button (:radio . (eq compilation-skip-threshold 2))) <--) (define-key map [compilation-mode-separator2] '("----" . nil)) (define-key map [compilation-first-error] '(menu-item "First Error" first-error :help "Restart at the first error, visit corresponding source code")) (define-key map [compilation-previous-error] '(menu-item "Previous Error" previous-error :help "Visit previous `next-error' message and corresponding source cod= e")) (define-key map [compilation-next-error] '(menu-item "Next Error" next-error :help "Visit next `next-error' message and corresponding source code")) map)) ;;; *** /home/micha/software/emacs/lisp/progmodes/gdb-mi.el (4 matches) ;;;; Line 4491 (let ((menu (make-sparse-keymap "GDB-MI"))) (define-key menu [gdb-customize] '--> (menu-item "Customize" (lambda () (interactive) (customize-group '= gdb)) :help "Customize Gdb Graphical Mode options.") <--) (define-key menu [gdb-many-windows] '(menu-item "Display Other Windows" gdb-many-windows :help "Toggle display of locals, stack and breakpoint infor= mation" :button (:toggle . gdb-many-windows))) (define-key menu [gdb-restore-windows] '(menu-item "Restore Window Layout" gdb-restore-windows :help "Restore standard layout for debug session.")) (define-key menu [sep1] '(menu-item "--")) (define-key menu [all-threads] '--> (menu-item "GUD controls all threads" (lambda () (interactive) (setq gdb-gud-control-all-threads t)) :help "GUD start/stop commands apply to all threads" :button (:radio . gdb-gud-control-all-threads)) <--) (define-key menu [current-thread] '--> (menu-item "GUD controls current thread" (lambda () (interactive) (setq gdb-gud-control-all-threads nil)) :help "GUD start/stop commands apply to current thread only" :button (:radio . (not gdb-gud-control-all-threads))) <--) (define-key menu [sep2] '(menu-item "--")) (define-key menu [gdb-customize-reasons] '--> (menu-item "Customize switching..." (lambda () (interactive) (customize-option 'gdb-switch-reasons))) <--) (define-key menu [gdb-switch-when-another-stopped] (menu-bar-make-toggle gdb-toggle-switch-when-another-stopped gdb-switch-when-another-stopped "Automatically switch to stopped thread" "GDB thread switching %s" "Switch to stopped thread")) (define-key gud-menu-map [mi] `(menu-item "GDB-MI" ,menu :visible (eq gud-minor-mode 'gdbmi)))) ;;; *** /home/micha/software/emacs/lisp/textmodes/bibtex.el (1 match) ;;;; Line 3511 ;; Entry commands and menus for BibTeX dialects ;; We do not use `easy-menu-define' here because this gets confused ;; if we want to have multiple versions of the "same" menu. (let ((select-map (make-sparse-keymap))) ;; Submenu for selecting the dialect (dolist (dialect (reverse bibtex-dialect-list)) (define-key select-map (vector dialect) `--> (menu-item ,(symbol-name dialect) (lambda () (interactive) (bibtex-set-dialect ',dialect t)) :button (:radio . (eq bibtex-dialect ',dialect))) <--)) ;; We define a menu for each dialect. ;; Then we select the menu we want via the :visible keyword (dolist (dialect bibtex-dialect-list) (let ((entry-alist (bibtex-entry-alist dialect)) (menu-map (make-sparse-keymap))) (define-key menu-map [select] `(menu-item "BibTeX dialect" ,select-map)) (define-key menu-map [nil-2] '(menu-item "--")) (define-key menu-map [bibtex-preamble] '(menu-item "Preamble" bibtex-Preamble)) (define-key menu-map [bibtex-String] '(menu-item "String" bibtex-String)) (define-key menu-map [nil-1] '(menu-item "--")) (dolist (elt (reverse entry-alist)) ;; Entry commands (let* ((entry (car elt)) (fname (intern (format "bibtex-%s" entry)))) (unless (fboundp fname) (eval (list 'defun fname nil (format "Insert a template for a @%s entry; see als= o `bibtex-entry'." entry) '(interactive "*") `(bibtex-entry ,entry)))) ;; Menu entries (define-key menu-map (vector fname) `(menu-item ,(or (nth 1 elt) (car elt)) ,fname)))) (define-key bibtex-mode-map (vector 'menu-bar dialect) `(menu-item "Entry-Types" ,menu-map :visible (eq bibtex-dialect ',dialect)))))) ;;; *** /home/micha/software/emacs/lisp/textmodes/ispell.el (4 matches) ;;;; Line 1434 ;;;###autoload (defconst ispell-menu-map ;; Use `defconst' so as to redo the menu when loading ispell, like the ;; previous code did. ;; Define commands in menu in opposite order you want them to appear. (let ((map (make-sparse-keymap "Spell"))) (define-key map [ispell-change-dictionary] `(menu-item ,(purecopy "Change Dictionary...") ispell-change-dictiona= ry :help ,(purecopy "Supply explicit dictionary file name"))) (define-key map [ispell-kill-ispell] `--> (menu-item ,(purecopy "Kill Process") (lambda () (interactive) (ispell-kill-ispell nil 'clear)) :enable (and (boundp 'ispell-process) ispell-process (eq (ispell-process-status) 'run)) :help ,(purecopy "Terminate Ispell subprocess")) <--) (define-key map [ispell-pdict-save] `--> (menu-item ,(purecopy "Save Dictionary") (lambda () (interactive) (ispell-pdict-save t t)) :help ,(purecopy "Save personal dictionary")) <--) (define-key map [ispell-customize] `--> (menu-item ,(purecopy "Customize...") (lambda () (interactive) (customize-group 'ispell)) :help ,(purecopy "Customize spell checking options")) <--) (define-key map [ispell-help] ;; use (x-popup-menu last-nonmenu-event(list "" ispell-help-list)) ? `--> (menu-item ,(purecopy "Help") (lambda () (interactive) (describe-function 'ispell-help)) :help ,(purecopy "Show standard Ispell keybindings and commands")) <--) (define-key map [flyspell-mode] `(menu-item ,(purecopy "Automatic spell checking (Flyspell)") flyspell-mode :help ,(purecopy "Check spelling while you edit the text") :button (:toggle . (bound-and-true-p flyspell-mode)))) (define-key map [ispell-complete-word] `(menu-item ,(purecopy "Complete Word") ispell-complete-word :help ,(purecopy "Complete word at cursor using dictionary"))) (define-key map [ispell-complete-word-interior-frag] `(menu-item ,(purecopy "Complete Word Fragment") ispell-complete-word-interior-frag :help ,(purecopy "Complete word fragment at cursor"))) (define-key map [ispell-continue] `(menu-item ,(purecopy "Continue Spell-Checking") ispell-continue :enable (and (boundp 'ispell-region-end) (marker-position ispell-region-end) (equal (marker-buffer ispell-region-end) (current-buffer))) :help ,(purecopy "Continue spell checking last region"))) (define-key map [ispell-word] `(menu-item ,(purecopy "Spell-Check Word") ispell-word :help ,(purecopy "Spell-check word at cursor"))) (define-key map [ispell-comments-and-strings] `(menu-item ,(purecopy "Spell-Check Comments") ispell-comments-and-strings :help ,(purecopy "Spell-check only comments and strings"))) (define-key map [ispell-region] `(menu-item ,(purecopy "Spell-Check Region") ispell-region :enable mark-active :help ,(purecopy "Spell-check text in marked region"))) (define-key map [ispell-message] `(menu-item ,(purecopy "Spell-Check Message") ispell-message :visible (eq major-mode 'mail-mode) :help ,(purecopy "Skip headers and included message text"))) (define-key map [ispell-buffer] `(menu-item ,(purecopy "Spell-Check Buffer") ispell-buffer :help ,(purecopy "Check spelling of selected buffer"))) map) "Key map for ispell menu.") --=-=-=-- From debbugs-submit-bounces@debbugs.gnu.org Wed Oct 09 14:57:37 2019 Received: (at 20157) by debbugs.gnu.org; 9 Oct 2019 18:57:37 +0000 Received: from localhost ([127.0.0.1]:54132 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1iIH9U-0007QQ-ND for submit@debbugs.gnu.org; Wed, 09 Oct 2019 14:57:36 -0400 Received: from quimby.gnus.org ([80.91.231.51]:41652) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1iIH9T-0007QD-7r; Wed, 09 Oct 2019 14:57:35 -0400 Received: from cm-84.212.202.86.getinternet.no ([84.212.202.86] helo=marnie) by quimby.gnus.org with esmtpsa (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.89) (envelope-from ) id 1iIH9O-0003MU-Vh; Wed, 09 Oct 2019 20:57:33 +0200 From: Lars Ingebrigtsen To: Michael Heerdegen Subject: Re: bug#13841: 24.3.50; Regression - unreadable `C-h k' help References: <98E304F5436E487A91B33E89A04A5851@us.oracle.com> <87sirr1l0d.fsf@building.gnus.org> <87h9el2wcj.fsf@gnus.org> <87inyze2tq.fsf@web.de> <4e02c2a0-6e68-4091-a64d-131bcfc2fc49@default> <83wpnfnlf1.fsf@gnu.org> <87vb2x3n0q.fsf@web.de> <837ffdolve.fsf@gnu.org> <8737q1reua.fsf@gnus.org> <83wpndn5rp.fsf@gnu.org> <87tv8ivbqm.fsf@gnus.org> <878spu190j.fsf@web.de> Date: Wed, 09 Oct 2019 20:57:30 +0200 In-Reply-To: <878spu190j.fsf@web.de> (Michael Heerdegen's message of "Wed, 09 Oct 2019 12:57:32 +0200") Message-ID: <87zhi9692d.fsf@gnus.org> User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/27.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: Michael Heerdegen writes: > I don't recall: did we want to fix only compiled lambdas, or any > anonymous functions (including quoted lambdas)? All key bindings (including menu ones) should be to named functions, I think. That allows inspection via `C-h k' and the user can jump to the function definition to see what it does. 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: 20157 Cc: Eli Zaretskii , 20157@debbugs.gnu.org, 13841@debbugs.gnu.org, drew.adams@oracle.com 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 (-) Michael Heerdegen writes: > I don't recall: did we want to fix only compiled lambdas, or any > anonymous functions (including quoted lambdas)? All key bindings (including menu ones) should be to named functions, I think. That allows inspection via `C-h k' and the user can jump to the function definition to see what it does. > Attached a quick rough search for candidates (search for "-->") - is any > of them problematic? All of them should be changed, I think, although the tab-bar-make-keymap-1 looks a bit difficult to deal with. -- (domestic pets only, the antidote for overdose, milk.) bloggy blog: http://lars.ingebrigtsen.no From unknown Tue Jun 17 12:40:26 2025 Received: (at fakecontrol) by fakecontrolmessage; To: internal_control@debbugs.gnu.org From: Debbugs Internal Request Subject: Internal Control Message-Id: bug archived. Date: Thu, 07 Nov 2019 12:24:07 +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 From debbugs-submit-bounces@debbugs.gnu.org Sat Feb 29 23:04:48 2020 Received: (at control) by debbugs.gnu.org; 1 Mar 2020 04:04:49 +0000 Received: from localhost ([127.0.0.1]:35670 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1j8FqS-0005F3-M8 for submit@debbugs.gnu.org; Sat, 29 Feb 2020 23:04:48 -0500 Received: from ted.gofardesign.uk ([67.225.143.91]:48646) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1j8FqQ-0005Ek-W3; Sat, 29 Feb 2020 23:04:47 -0500 DKIM-Signature: v=1; a=rsa-sha256; q=dns/txt; c=relaxed/relaxed; d=marxist.se; s=default; h=Content-Type:MIME-Version:Message-ID:Date:References: In-Reply-To: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=4snfURNS7+1amvUmr4K7jtrvDWgn2EtkMld3zZ9zW7Q=; b=P+h0G+oypZUYC5tXJqOUsa7CqK dnqS7XTYBLPimaMceKu/CROA7L7o/hp05YdmwoIW7i05X5dcWq5O1YABuEn1RexWei7RuvzY4FPus 64RaTsKlFNRV+e0emyhLphVMD3ra1oMqQKaahcvRmzKPJ8hIwGQ1MOkHFJ1kZm0sW1LB6LYYl/mSk 2XdF8a8dvDaNKkMd0DfrgxqxTQ0w2Rq3STWCLz3EzOLJVSawVPwI1aXSdc1PTk+1oTYGgWoNv2eyj VLw40AX9j9+nHU5XzUV2ecwO59691/3YSrIwbiAE2QcJ3q+FscDMjWiUHCBBuBAHpTU5R23TFTWkf N9np+phQ==; Received: from h-4-70-69.a785.priv.bahnhof.se ([155.4.70.69]:40682 helo=localhost) by ted.gofardesign.uk with esmtpsa (TLS1.2) tls TLS_ECDHE_RSA_WITH_AES_256_GCM_SHA384 (Exim 4.93) (envelope-from ) id 1j8FqL-000WUX-3C; Sat, 29 Feb 2020 23:04:41 -0500 From: Stefan Kangas To: Eli Zaretskii Subject: Re: bug#39848: 26.3; Provide better help for menu-bar, e.g., Options > Line Wrapping in This Buffer In-Reply-To: <834kv8eo7q.fsf@gnu.org> (Eli Zaretskii's message of "Sun, 01 Mar 2020 05:41:29 +0200") References: <62a1ef4d-e9fa-4757-977d-dcb9d3e4aa52@default> <834kv8eo7q.fsf@gnu.org> User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/26.1 (gnu/linux) Date: Sun, 01 Mar 2020 05:04:38 +0100 Message-ID: <8736as67qh.fsf@stefankangas.se> MIME-Version: 1.0 Content-Type: text/plain X-AntiAbuse: This header was added to track abuse, please include it with any abuse report X-AntiAbuse: Primary Hostname - ted.gofardesign.uk X-AntiAbuse: Original Domain - debbugs.gnu.org X-AntiAbuse: Originator/Caller UID/GID - [47 12] / [47 12] X-AntiAbuse: Sender Address Domain - marxist.se X-Get-Message-Sender-Via: ted.gofardesign.uk: authenticated_id: stefan@marxist.se X-Authenticated-Sender: ted.gofardesign.uk: stefan@marxist.se X-Source: X-Source-Args: X-Source-Dir: X-Spam-Score: 0.0 (/) X-Debbugs-Envelope-To: control Cc: 39848@debbugs.gnu.org, Drew Adams 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 (-) unarchive 13841 forcemerge 13841 39848 thanks Eli Zaretskii writes: > This is already fixed in Emacs 27. Indeed, so I'm merging this bug with the previous one. Best regards, Stefan Kangas From unknown Tue Jun 17 12:40:26 2025 Received: (at fakecontrol) by fakecontrolmessage; To: internal_control@debbugs.gnu.org From: Debbugs Internal Request Subject: Internal Control Message-Id: bug archived. Date: Mon, 30 Mar 2020 11:24:05 +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