From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.io!.POSTED.blaine.gmane.org!not-for-mail From: Hugh Daschbach Newsgroups: gmane.emacs.bugs Subject: bug#50051: 28.0.50; easymenu defined popup menus broken since 27.1 Date: Fri, 13 Aug 2021 15:08:55 -0700 Message-ID: <871r6x6lqg.fsf@ccss.com> Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" Injection-Info: ciao.gmane.io; posting-host="blaine.gmane.org:116.202.254.214"; logging-data="19132"; mail-complaints-to="usenet@ciao.gmane.io" User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/28.0.50 (gnu/linux) To: 50051@debbugs.gnu.org Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane-mx.org@gnu.org Sat Aug 14 00:10:14 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 1mEfNV-0004kM-Ka for geb-bug-gnu-emacs@m.gmane-mx.org; Sat, 14 Aug 2021 00:10:14 +0200 Original-Received: from localhost ([::1]:50320 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1mEfNT-0006vd-SJ for geb-bug-gnu-emacs@m.gmane-mx.org; Fri, 13 Aug 2021 18:10:11 -0400 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]:45292) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1mEfNK-0006vT-NI for bug-gnu-emacs@gnu.org; Fri, 13 Aug 2021 18:10:02 -0400 Original-Received: from debbugs.gnu.org ([209.51.188.43]:59875) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1mEfNK-0007kO-GU for bug-gnu-emacs@gnu.org; Fri, 13 Aug 2021 18:10:02 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1mEfNK-0007ET-7J for bug-gnu-emacs@gnu.org; Fri, 13 Aug 2021 18:10:02 -0400 X-Loop: help-debbugs@gnu.org Resent-From: Hugh Daschbach Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Fri, 13 Aug 2021 22:10:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: report 50051 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.162889256027748 (code B ref -1); Fri, 13 Aug 2021 22:10:02 +0000 Original-Received: (at submit) by debbugs.gnu.org; 13 Aug 2021 22:09:20 +0000 Original-Received: from localhost ([127.0.0.1]:43188 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1mEfMZ-0007DP-T4 for submit@debbugs.gnu.org; Fri, 13 Aug 2021 18:09:20 -0400 Original-Received: from lists.gnu.org ([209.51.188.17]:37482) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1mEfMU-0007DB-Fn for submit@debbugs.gnu.org; Fri, 13 Aug 2021 18:09:14 -0400 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]:45234) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1mEfMU-0006fp-0D for bug-gnu-emacs@gnu.org; Fri, 13 Aug 2021 18:09:10 -0400 Original-Received: from mail1.ccss.com ([159.203.255.73]:45768) by eggs.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1mEfMS-00079t-4s for bug-gnu-emacs@gnu.org; Fri, 13 Aug 2021 18:09:09 -0400 Original-Received: by mail1.ccss.com (Postfix, from userid 114) id 6A044C0520; Fri, 13 Aug 2021 15:09:06 -0700 (PDT) Original-Received: from ccss.com (unknown [192.168.76.11]) by mail1.ccss.com (Postfix) with ESMTP id ED301BF848 for ; Fri, 13 Aug 2021 15:09:02 -0700 (PDT) Original-Received: from localhost (localhost [127.0.0.1]) by ccss.com (Postfix) with ESMTP id B9C9A17606B9 for ; Fri, 13 Aug 2021 15:09:02 -0700 (PDT) Original-Received: from ccss.com ([127.0.0.1]) by localhost (ccss.com [127.0.0.1]) (amavisd-new, port 10024) with ESMTP id E1fGxReAFxCl for ; Fri, 13 Aug 2021 15:08:56 -0700 (PDT) Original-Received: from klaatu (klaatu.lan [192.168.42.3]) (Authenticated sender: hugh) by ccss.com (Postfix) with ESMTPSA id 163F6176059B for ; Fri, 13 Aug 2021 15:08:56 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/simple; d=ccss.com; s=mail; t=1628892536; bh=7s7tYuvJ83y7J20oH2jhoiFGoLGadeqZw0HI8uCuKx4=; h=From:To:Subject:Date:From; b=dsLW+QLONhhl/xRuFR/qGHbroWJoL3EfEdV6EKQ/RozZIFhVHhCDdLh+NvkhmxsVY mh1njZhlfEPgpxVyxo2INNFK7CTocXATzUP565D58uPYaEa0yPPLV5PYhLanvMAlYM L7sly1g27unYrEGImcTQ2tsqD6NQwK2c6K/VUp+/4nIQz8UttooF0jWvw/eIK7032W DFi1HdYbl93cAdh0FGOlrG2ChBl/ah6ieJ3SseYYL0c3rFcLioKWxGyOrQRKam2ybO BWNBpJViSAhxGmXLPuyzCReSBql3ljKSr119Exn9J4+Y3zMAV5rRjQSft3Aj6hIb5+ IpGP7zP0M5DXA== Received-SPF: permerror client-ip=159.203.255.73; envelope-from=hugh@ccss.com; helo=mail1.ccss.com X-Spam_score_int: -16 X-Spam_score: -1.7 X-Spam_bar: - X-Spam_report: (-1.7 / 5.0 requ) BAYES_00=-1.9, DKIM_INVALID=0.1, DKIM_SIGNED=0.1, SPF_HELO_NONE=0.001, T_SPF_PERMERROR=0.01 autolearn=no 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:211791 Archived-At: --=-=-= Content-Type: text/plain Invoking a popup menu defined with easymenu results in the following traceback: ,---- | Debugger entered--Lisp error: (wrong-type-argument listp #f(compiled-function (arg1) (interactive "@e") #)) | x-popup-menu((mouse-3 (# 7 (58 . 11) 1801985654 nil 7 (6 . 0) nil (4 . 11) (9 . 18))) #f(compiled-function (arg1) (interactive "@e") #)) | popup-test-show-menu((mouse-3 (# 7 (58 . 11) 1801985654 nil 7 (6 . 0) nil (4 . 11) (9 . 18)))) | (let ((result (popup-test-show-menu event))) (popup-test-select (car result))) | popup-test-action((mouse-3 (# 7 (58 . 11) 1801985654 nil 7 (6 . 0) nil (4 . 11) (9 . 18)))) | funcall-interactively(popup-test-action (mouse-3 (# 7 (58 . 11) 1801985654 nil 7 (6 . 0) nil (4 . 11) (9 . 18)))) | call-interactively(popup-test-action nil nil) | command-execute(popup-test-action) `---- To reproduce (popup-test.el attached): emacs -q -Q -l popup-test.el This opens a window with *popup-tests* buffer. Right click on the text "Right click here." to generate the wrong-type-argument error. This test works with 26.3. Bisecting the Emacs source tree reveals this regression was introduced by the first hunk in a070bd1c8b5213ad469d41dd80d392f924644aed. Seems odd this has not been reported already. But I could not find an existing bug report for this. Cheers, Hugh In GNU Emacs 28.0.50 (build 1, x86_64-pc-linux-gnu, X toolkit, cairo version 1.16.0, Xaw3d scroll bars) of 2021-08-13 built on debian-11 Repository revision: c4d34d24e36c7f7c54cf3ec3e5d76e3e8fc005aa Repository branch: master Windowing system distributor 'The X.Org Foundation', version 11.0.12012000 System Description: Debian GNU/Linux 11 (bullseye) Configured using: 'configure --with-x-toolkit=lucid' Configured features: ACL CAIRO DBUS FREETYPE GIF GLIB GMP GNUTLS GPM GSETTINGS HARFBUZZ JPEG JSON LCMS2 LIBOTF LIBSELINUX LIBSYSTEMD LIBXML2 M17N_FLT MODULES NOTIFY INOTIFY PDUMPER PNG RSVG SECCOMP SOUND THREADS TIFF TOOLKIT_SCROLL_BARS X11 XAW3D XDBE XIM XPM LUCID ZLIB Important settings: value of $LANG: en_US.UTF-8 locale-coding-system: utf-8-unix Major mode: Fundamental Minor modes in effect: tooltip-mode: t global-eldoc-mode: t electric-indent-mode: t mouse-wheel-mode: t tool-bar-mode: t menu-bar-mode: t file-name-shadow-mode: t global-font-lock-mode: t blink-cursor-mode: t auto-composition-mode: t auto-encryption-mode: t auto-compression-mode: t line-number-mode: t indent-tabs-mode: t transient-mark-mode: t Load-path shadows: None found. Features: (shadow sort mail-extr emacsbug message rmc puny dired dired-loaddefs rfc822 mml mml-sec epa derived epg epg-config gnus-util rmail rmail-loaddefs auth-source cl-seq eieio eieio-core cl-macs eieio-loaddefs password-cache json map text-property-search time-date subr-x seq byte-opt gv bytecomp byte-compile cconv mm-decode mm-bodies mm-encode mail-parse rfc2231 mailabbrev gmm-utils mailheader cl-loaddefs cl-lib sendmail rfc2047 rfc2045 ietf-drums mm-util mail-prsvr mail-utils popup-test iso-transl 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 tab-bar menu-bar rfn-eshadow isearch easymenu timer select scroll-bar mouse jit-lock font-lock syntax font-core term/tty-colors frame minibuffer 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 cl-preloaded nadvice button loaddefs faces cus-face macroexp files window 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 cairo x-toolkit x multi-tty make-network-process emacs) Memory information: ((conses 16 51530 6812) (symbols 48 6620 1) (strings 32 18860 1414) (string-bytes 1 608630) (vectors 16 13422) (vector-slots 8 179251 7821) (floats 8 27 34) (intervals 56 327 0) (buffers 992 12)) --=-=-= Content-Type: text/plain Content-Disposition: attachment; filename=popup-test.el Content-Description: Popup menu test. ;;; popup-test.el --- Test popup menu. -*- lexical-binding: t; -*- (require 'easymenu) (defvar popup-test-value 0) (defun popup-test-select (value) (message "Selected %s" value) (setq popup-test-value value)) (defvar popup-test-menu '("popup-test" :active t "--single-line" [0 (popup-test-select 0) :label "Zero" :style radio :selected (eql 0 popup-test-value)] [1 (popup-test-select 1) :label "One" :style radio :selected (eql 1 popup-test-value)] [2 (popup-test-select 2) :label "Two" :style radio :selected (eql 2 popup-test-value)] [3 (popup-test-select 3) :label "Three" :style radio :selected (eql 3 popup-test-value)] [4 (popup-test-select 4) :label "Four" :style radio :selected (eql 4 popup-test-value)])) (easy-menu-define popup-test-show-menu nil "Context sensitive menu" popup-test-menu) (defun popup-test-action (event) (interactive "e") (let ((result (popup-test-show-menu event))) (popup-test-select (car result)))) (defface popup-test-face '((((background dark)) (:foreground "cyan" :background "DimGray")) (t (:foreground "DarkRed"))) "*popup-test demonstration face") (defvar popup-test-map (make-sparse-keymap)) (define-key popup-test-map [mouse-3] 'popup-test-action) (let ((buffer (get-buffer-create "*popup-test*"))) (with-current-buffer buffer (erase-buffer) (insert (propertize "Right click here." 'face 'popup-test-face 'keymap popup-test-map 'rear-nonsticky t)) (pop-to-buffer buffer))) (provide 'popup-test) ;;; popup-test.el ends here --=-=-=--