From debbugs-submit-bounces@debbugs.gnu.org Sun Jun 12 06:54:36 2022 Received: (at submit) by debbugs.gnu.org; 12 Jun 2022 10:54:36 +0000 Received: from localhost ([127.0.0.1]:54933 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1o0LEp-0006XK-Uq for submit@debbugs.gnu.org; Sun, 12 Jun 2022 06:54:36 -0400 Received: from lists.gnu.org ([209.51.188.17]:54196) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1o0LEk-0006X7-F8 for submit@debbugs.gnu.org; Sun, 12 Jun 2022 06:54:34 -0400 Received: from eggs.gnu.org ([2001:470:142:3::10]:58688) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1o0LEj-0000mG-RO for bug-gnu-emacs@gnu.org; Sun, 12 Jun 2022 06:54:29 -0400 Received: from mail-ed1-x543.google.com ([2a00:1450:4864:20::543]:37379) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1o0LEg-00051C-FJ for bug-gnu-emacs@gnu.org; Sun, 12 Jun 2022 06:54:29 -0400 Received: by mail-ed1-x543.google.com with SMTP id v19so3901016edd.4 for ; Sun, 12 Jun 2022 03:54:23 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=tcd.ie; s=google21; h=from:to:subject:date:message-id:user-agent:mime-version; bh=PHfqHP5ysGtehyu3lIwMR2z1SlNv/azwIcn6RtpmoOQ=; b=AOM2GiAUhMn2FzBTNBrRav9EQhelJzfjUMccHPaBSNsa+Trxw6SRrzWq9nt9/IWR4u 5YU7G/8AGv5emSRaoCGp+3N5eEMjnI0/cFssvuzftTA4WMvtuFtHQTXxsS7ynAetWkiZ 2GIsD3iyczLT3ZC0Y6NK8r00nzGVi1Pam5ArhCYpDLWE/w1rJ03xpDn0OJCtlRUtJdJM Te33+Nj3/9ZWdllvJTOt+k71SKChWLuF3Ec2tAf/j9REVMLzVhTytfI22+OPSS9rkxWy qJXE54TEWE873v7ClAXlbIKzA5gKia1EOtOp4oTNxyo5komGdh3f9ggrCC1P1asXfJeC ZizQ== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20210112; h=x-gm-message-state:from:to:subject:date:message-id:user-agent :mime-version; bh=PHfqHP5ysGtehyu3lIwMR2z1SlNv/azwIcn6RtpmoOQ=; b=UOUDpxhuP79yrsB/fJCrPGCtwJwWP2coGYR4A1ABP6sEdTXpJ8PZkeL1snDsIC/Fjq 0ITtMuFOmhJuabz8qwnAqQtzAmgHe/MUnf1i5HennnZbwOirk1waYvnyRc4hKfKlQaaQ Ky91gfXHq9zuPULVIIMcZJZ2WHzYXnAim5Mxm6KmHwiDDi8xrQoiuM+RWPA4dMfiSS4m ZPp31qVffw+ClEXdyxYyE8AhNp/lvTecOtajQZI6EzyLBFVyxEywBH8jARpmkraUvmeH QNORZ3pZ5ibQo0/tM/5LH2Q4b3DOYZ4ZAt0hb8wCKxfw53jnZd7TKggpU5RHmAQAvTIp 1z0Q== X-Gm-Message-State: AOAM532J55ClPOmOsGpeZRU60gjS0ToM6qy2mQV9A+2dKiLTLm5xzyPa 0qYumD4qEfDBl6fkQBLCnkaHfhNzhQlEyQ/rjAQ= X-Google-Smtp-Source: ABdhPJwPKKyDO0A96+Upb0yB/GO1aN8cL/SWomZmJ9kIPmjfgQu2pw1pkFN+VECfMFC0VFS9MIK64A== X-Received: by 2002:a05:6402:2790:b0:431:4bb6:a6dc with SMTP id b16-20020a056402279000b004314bb6a6dcmr42002791ede.48.1655031262361; Sun, 12 Jun 2022 03:54:22 -0700 (PDT) Received: from localhost ([178.175.128.35]) by smtp.gmail.com with ESMTPSA id w26-20020a17090633da00b006fe7d269db8sm2280427eja.104.2022.06.12.03.54.21 for (version=TLS1_3 cipher=TLS_AES_256_GCM_SHA384 bits=256/256); Sun, 12 Jun 2022 03:54:21 -0700 (PDT) From: "Basil L. Contovounesios" To: bug-gnu-emacs@gnu.org Subject: 29.0.50; Error when command has interactive-form property X-Debbugs-Cc: Stefan Monnier Date: Sun, 12 Jun 2022 13:54:10 +0300 Message-ID: <87mteignjh.fsf@tcd.ie> User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/29.0.50 (gnu/linux) MIME-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" Received-SPF: pass client-ip=2a00:1450:4864:20::543; envelope-from=contovob@tcd.ie; helo=mail-ed1-x543.google.com 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, RCVD_IN_DNSWL_NONE=-0.0001, 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-Spam-Score: -1.4 (-) 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: -2.4 (--) --=-=-= Content-Type: text/plain This is a rehash of https://bugs.gnu.org/54802#79 as a new bug report. This change: New generic function `oclosure-interactive-form` bffc4cb39d 2022-04-26 10:36:52 -0400 https://git.sv.gnu.org/cgit/emacs.git/commit/?id=bffc4cb39d Gave rise to the following error: 0. emacs -Q -f toggle-debug-on-error 1. (progn (defun my-foo (&rest _)) (function-put 'my-foo 'interactive-form (interactive-form #'ignore))) 2. C-x C-e 3. M-x C-i Backtrace attached. The interactive-form property is documented as (an admittedly unusual) supported practice in several Info nodes: - (elisp) Standard Properties - (elisp) Defining Commands - (elisp) Using Interactive - (elisp) Interactive Call What are the reasons for turning this into an error? Are there alternative solutions? Thanks, -- Basil --=-=-= Content-Type: text/plain; charset=utf-8 Content-Disposition: attachment; filename=backtrace.txt Content-Transfer-Encoding: quoted-printable Debugger entered--Lisp error: (error "Found an =E2=80=99interactive-form=E2= =80=99 property!") commandp(my-foo) #f(compiled-function (sym) #)(my-foo) #f(compiled-function (sym) #)(my-foo) all-completions("" [0 0 pr-ps-file-preview timer-next-integral-multiple-o= f-time vietnamese-tcvn-unix 0 0 make-mode-line-mouse-map backquote-listify = sgml-mode find-sibling-rules help-follow-symbol cpp-parse-edit 0 cc-vars fo= nt-lock-syntactically-fontified edit-replacement uniquify-rename-buffer 0 0= files--splice-dirname-file raw-text-dos lisp-mode-map ert-run-tests-batch = 0 viscii minibuffer-text-before-history search-emacs-glossary Regexp\ Isear= ch\ Marked\ Buffers... min-width-safe 0 vc-annotate :unix-fd byte-set-marke= r 0 event-convert-list 0 yank-undo-function sort-coding-systems-predicate 0= latin-2-unix 0 0 squeeze-bidi-context :match byte-compile-arglist-signatur= es-congruent-p vc-mode-line-hook font-list-limit c-name tty-register-defaul= t-colors ...] #f(compiled-function (sym) #)) complete-with-action(t [0 0 pr-ps-file-preview timer-next-integral-multip= le-of-time vietnamese-tcvn-unix 0 0 make-mode-line-mouse-map backquote-list= ify sgml-mode find-sibling-rules help-follow-symbol cpp-parse-edit 0 cc-var= s font-lock-syntactically-fontified edit-replacement uniquify-rename-buffer= 0 0 files--splice-dirname-file raw-text-dos lisp-mode-map ert-run-tests-ba= tch 0 viscii minibuffer-text-before-history search-emacs-glossary Regexp\ I= search\ Marked\ Buffers... min-width-safe 0 vc-annotate :unix-fd byte-set-m= arker 0 event-convert-list 0 yank-undo-function sort-coding-systems-predica= te 0 latin-2-unix 0 0 squeeze-bidi-context :match byte-compile-arglist-sign= atures-congruent-p vc-mode-line-hook font-list-limit c-name tty-register-de= fault-colors ...] "" #f(compiled-function (sym) #)) #f(compiled-function (string pred action) #)= ("" #f(compiled-function (sym) #) t) all-completions("" #f(compiled-function (string pred action) #) #f(compiled-function (sym) #)) completion-pcm--all-completions("" (point) #f(compiled-function (string p= red action) #) #f(compiled-function (sym) #)) completion-basic-all-completions("" #f(compiled-function (string pred act= ion) #) #f(compiled-function (sym) #) 0) #f(compiled-function (style) #)(basic) completion--some(#f(compiled-function (style) #) (basic partial-completion emacs22)) completion--nth-completion(2 "" #f(compiled-function (string pred action)= #) #f(compiled-function (sym) #) 0 (metadata (affixation-function . read-extended-command--= affixation) (category . command))) completion-all-completions("" #f(compiled-function (string pred action) #= ) #f(compiled-function (sym) #) 0 (metadata (affixation-function . read-extended-command--af= fixation) (category . command))) minibuffer-completion-help(5 5) completion--do-completion(5 5) completion--in-region-1(5 5) #f(compiled-function (start end collection predicate) #)(5 5 #f(compiled-function (string pred action) #) #f(compiled-function (sym) #)) apply(#f(compiled-function (start end collection predicate) #) (5 5 #f(compiled-function (string pred action) #) #f(compiled-function (sym) #))) #f(compiled-function (funs global args) #)(ni= l nil (5 5 #f(compiled-function (string pred action) #) #f(compiled-function (sym) #))) completion--in-region(5 5 #f(compiled-function (string pred action) #) #f(compiled-function (sym) #)) completion-in-region(5 5 #f(compiled-function (string pred action) #) #f(compiled-function (sym) #)) minibuffer-complete() funcall-interactively(minibuffer-complete) call-interactively(minibuffer-complete nil nil) command-execute(minibuffer-complete) read-from-minibuffer("M-x " nil (keymap (10 . minibuffer-complete-and-exi= t) (13 . minibuffer-complete-and-exit) keymap (menu-bar keymap (minibuf "Mi= nibuf" keymap (tab menu-item "Complete" minibuffer-complete :help "Complete= as far as possible") (space menu-item "Complete Word" minibuffer-complete-= word :help "Complete at most one word") (63 menu-item "List Completions" mi= nibuffer-completion-help :help "Display all possible completions") "Minibuf= ")) (M-down . minibuffer-next-completion) (M-up . minibuffer-previous-compl= etion) (27 keymap (13 . minibuffer-choose-completion) (103 keymap (27 keyma= p (99 . switch-to-completions))) (118 . switch-to-completions)) (prior . sw= itch-to-completions) (63 . minibuffer-completion-help) (32 . minibuffer-com= plete-word) (backtab . minibuffer-complete) (9 . minibuffer-complete) keyma= p (menu-bar keymap (minibuf "Minibuf" keymap (previous menu-item "Previous = History Item" previous-history-element :help "Put previous minibuffer histo= ry element in the min...") (next menu-item "Next History Item" next-history= -element :help "Put next minibuffer history element in the minibuf...") (is= earch-backward menu-item "Isearch History Backward" isearch-backward :help = "Incrementally search minibuffer history backward") (isearch-forward menu-i= tem "Isearch History Forward" isearch-forward :help "Incrementally search m= inibuffer history forward") (return menu-item "Enter" exit-minibuffer :key-= sequence "\15" :help "Terminate input and exit minibuffer") (quit menu-item= "Quit" abort-recursive-edit :help "Abort input and exit minibuffer") "Mini= buf")) (13 . exit-minibuffer) (10 . exit-minibuffer) (7 . abort-minibuffers= ) (C-tab . file-cache-minibuffer-complete) (9 . self-insert-command) (XF86B= ack . previous-history-element) (up . previous-line-or-history-element) (pr= ior . previous-history-element) (XF86Forward . next-history-element) (down = . next-line-or-history-element) (next . next-history-element) (27 keymap (6= 0 . minibuffer-beginning-of-buffer) (114 . previous-matching-history-elemen= t) (115 . next-matching-history-element) (112 . previous-history-element) (= 110 . next-history-element))) nil extended-command-history nil nil) completing-read-default("M-x " #f(compiled-function (string pred action) = #) #f(compiled-function (sym) #) t nil extended-command-history nil nil) completing-read("M-x " #f(compiled-function (string pred action) #) #f(compiled-function (sym) #) t nil extended-command-history) read-extended-command() byte-code("\302\30\11\303 \10E)\207" [execute-extended-command--last-type= d current-prefix-arg nil read-extended-command] 3) call-interactively(execute-extended-command nil nil) command-execute(execute-extended-command) --=-=-= Content-Type: text/plain In GNU Emacs 29.0.50 (build 1, x86_64-pc-linux-gnu, X toolkit, cairo version 1.16.0, Xaw3d scroll bars) of 2022-06-12 built on tia Repository revision: 98365c7b1e1e1d3d5f7185f2d4a2baa1c65b4540 Repository branch: master Windowing system distributor 'The X.Org Foundation', version 11.0.12101003 System Description: Debian GNU/Linux bookworm/sid Configured using: 'configure CC=gcc-12 'CFLAGS=-Og -ggdb3' --config-cache --prefix /home/blc/.local --enable-checking=structs --with-x-toolkit=lucid --with-file-notification=yes --with-x' 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 SQLITE3 THREADS TIFF TOOLKIT_SCROLL_BARS WEBP X11 XAW3D XDBE XIM XINPUT2 XPM LUCID ZLIB Important settings: value of $LANG: en_IE.UTF-8 value of $XMODIFIERS: @im=ibus locale-coding-system: utf-8-unix Major mode: Debugger Minor modes in effect: tooltip-mode: t global-eldoc-mode: t show-paren-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 font-lock-mode: t blink-cursor-mode: t buffer-read-only: t line-number-mode: t indent-tabs-mode: t transient-mark-mode: t auto-composition-mode: t auto-encryption-mode: t auto-compression-mode: t Load-path shadows: None found. Features: (shadow sort mail-extr emacsbug message mailcap yank-media rmc puny dired dired-loaddefs rfc822 mml mml-sec password-cache epa derived epg rfc6068 epg-config gnus-util text-property-search time-date mm-decode mm-bodies mm-encode mail-parse rfc2231 mailabbrev gmm-utils mailheader sendmail rfc2047 rfc2045 ietf-drums mm-util mail-prsvr mail-utils help-fns radix-tree seq cl-print gv subr-x byte-opt bytecomp byte-compile cconv debug backtrace help-mode find-func cl-loaddefs cl-lib cus-start cus-load iso-transl tooltip eldoc paren electric uniquify ediff-hook vc-hooks lisp-float-type elisp-mode 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 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 nadvice simple cl-generic indonesian philippine 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 emoji-zwj charscript charprop case-table epa-hook jka-cmpr-hook help abbrev obarray oclosure cl-preloaded button loaddefs faces cus-face macroexp files window text-properties overlay sha1 md5 base64 format env code-pages mule custom widget keymap hashtable-print-readable backquote threads dbusbind inotify lcms2 dynamic-setting system-font-setting font-render-setting cairo x-toolkit xinput2 x multi-tty make-network-process emacs) Memory information: ((conses 16 61814 7020) (symbols 48 7171 0) (strings 32 19713 2080) (string-bytes 1 593239) (vectors 16 12106) (vector-slots 8 171984 10915) (floats 8 28 27) (intervals 56 845 155) (buffers 992 12)) --=-=-=--