From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Matthew Fidler Newsgroups: gmane.emacs.bugs Subject: bug#15653: 24.3; call-interactively not sending keys Date: Sun, 20 Oct 2013 02:50:16 +0800 Message-ID: NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: multipart/alternative; boundary=089e013a2d8094f85f04e91c8509 X-Trace: ger.gmane.org 1382208667 27896 80.91.229.3 (19 Oct 2013 18:51:07 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Sat, 19 Oct 2013 18:51:07 +0000 (UTC) To: 15653@debbugs.gnu.org Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Sat Oct 19 20:51:11 2013 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1VXbcE-00062u-HU for geb-bug-gnu-emacs@m.gmane.org; Sat, 19 Oct 2013 20:51:10 +0200 Original-Received: from localhost ([::1]:34092 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1VXbcD-00009A-WE for geb-bug-gnu-emacs@m.gmane.org; Sat, 19 Oct 2013 14:51:10 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:34256) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1VXbc9-000095-9C for bug-gnu-emacs@gnu.org; Sat, 19 Oct 2013 14:51:07 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1VXbc7-0002ne-5n for bug-gnu-emacs@gnu.org; Sat, 19 Oct 2013 14:51:05 -0400 Original-Received: from debbugs.gnu.org ([140.186.70.43]:44166) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1VXbc7-0002na-22 for bug-gnu-emacs@gnu.org; Sat, 19 Oct 2013 14:51:03 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.80) (envelope-from ) id 1VXbc6-0003Nv-KH for bug-gnu-emacs@gnu.org; Sat, 19 Oct 2013 14:51:02 -0400 X-Loop: help-debbugs@gnu.org Resent-From: Matthew Fidler Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Sat, 19 Oct 2013 18:51:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: report 15653 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: X-Debbugs-Original-To: bug-gnu-emacs@gnu.org Original-Received: via spool by submit@debbugs.gnu.org id=B.138220863512964 (code B ref -1); Sat, 19 Oct 2013 18:51:02 +0000 Original-Received: (at submit) by debbugs.gnu.org; 19 Oct 2013 18:50:35 +0000 Original-Received: from localhost ([127.0.0.1]:58184 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1VXbbd-0003N1-Kb for submit@debbugs.gnu.org; Sat, 19 Oct 2013 14:50:35 -0400 Original-Received: from eggs.gnu.org ([208.118.235.92]:60726) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1VXbba-0003Mm-14 for submit@debbugs.gnu.org; Sat, 19 Oct 2013 14:50:31 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1VXbbS-0002T6-92 for submit@debbugs.gnu.org; Sat, 19 Oct 2013 14:50:24 -0400 Original-Received: from lists.gnu.org ([2001:4830:134:3::11]:53216) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1VXbbS-0002T0-60 for submit@debbugs.gnu.org; Sat, 19 Oct 2013 14:50:22 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:34200) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1VXbbP-00007r-Sm for bug-gnu-emacs@gnu.org; Sat, 19 Oct 2013 14:50:22 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1VXbbN-0002Rw-Mu for bug-gnu-emacs@gnu.org; Sat, 19 Oct 2013 14:50:19 -0400 Original-Received: from mail-ie0-x233.google.com ([2607:f8b0:4001:c03::233]:53669) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1VXbbN-0002RT-FY for bug-gnu-emacs@gnu.org; Sat, 19 Oct 2013 14:50:17 -0400 Original-Received: by mail-ie0-f179.google.com with SMTP id aq17so9125880iec.10 for ; Sat, 19 Oct 2013 11:50:16 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20120113; h=mime-version:date:message-id:subject:from:to:content-type; bh=JYA+TGOWiANgHPeKKLXt5OnKVx4Q1BSq6n5ecRnmxCg=; b=BAoR7QZqjIyn9P73MS8IqFsGTAvD6A7sGOB+efx0nS8Jg28SOzGNRWw+/Y6kELv7HD 86YiKRX/iLmtkusBxJyp4YnVGojz7cCZcl2resGEzMCHiYgiY6HMbCFBT9URh3q6ABeY uCbePuO45CAAZ3wFkPxU119WhsN1o+TmcCvOWhyRdASqvx4DM/SXYNFe4PNm2dCtGr4m /zIioYBy4J2Km2wXlDF1K15TTZ/8kJNuX9kYxUSk7FbnNUzNGMTgVvRB+5CBT94H9CZq 3v0JLA/oUuyRg2he+vIRZvYazGEpXBpqsnuA+jE2HALFUECPk5e1LpkyINZAoKUGtcq+ 60yA== X-Received: by 10.50.111.48 with SMTP id if16mr3971042igb.23.1382208616329; Sat, 19 Oct 2013 11:50:16 -0700 (PDT) Original-Received: by 10.64.195.44 with HTTP; Sat, 19 Oct 2013 11:50:16 -0700 (PDT) X-detected-operating-system: by eggs.gnu.org: Error: Malformed IPv6 address (bad octet value). X-detected-operating-system: by eggs.gnu.org: Error: Malformed IPv6 address (bad octet value). X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.15 Precedence: list X-detected-operating-system: by eggs.gnu.org: GNU/Linux 3.x X-Received-From: 140.186.70.43 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.org@gnu.org Original-Sender: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.bugs:79396 Archived-At: --089e013a2d8094f85f04e91c8509 Content-Type: text/plain; charset=ISO-8859-1 After starting emacs -Q evaluate the following: (defun test-me () (interactive) (message "Test Me: %s" (key-description (this-single-command-keys)))) (defun test-me-2 () (interactive) (message "Test Me 2: %s" (key-description (this-single-command-keys))) (call-interactively 'test-me nil (read-kbd-macro "C-1" t))) (global-set-key (read-kbd-macro "C-c a" t) 'test-me-2) Then, Type C-c a. The message shows: Test Me 2: C-c a Test Me: C-c a It should show Test Me 2: C-1 Test Me: C-c a At least thats how I understand the call-interactevly documentation: This function calls the interactively callable function command, providing arguments according to its interactive calling specifications. It returns whatever command returns. If, for instance, you have a function with the following signature: (defun foo (begin end) (interactive "r") ...) then saying (call-interactively 'foo) will call foo with the region (point and mark) as the arguments. An error is signaled if command is not a function or if it cannot be called interactively (i.e., is not a command). Note that keyboard macros (strings and vectors) are not accepted, even though they are considered commands, because they are not functions. If command is a symbol, then call-interactively uses its function definition. If record-flag is non-nil, then this command and its arguments are unconditionally added to the list command-history. Otherwise, the command is added only if it uses the minibuffer to read an argument. See Command History. The argument keys, if given, should be a vector which specifies the sequence of events to supply if the command inquires which events were used to invoke it. If keys is omitted or nil, the default is the return value of this-command-keys-vector. See Definition of this-command-keys-vector. In GNU Emacs 24.3.1 (i686-pc-linux-gnu, GTK+ Version 2.24.10) of 2013-08-29 on puppypc11169 Windowing system distributor `The X.Org Foundation', version 11.0.11103000 Configured using: `configure '--bindir=/tmp/emacs-24.3-bin/App/emacs-24.3/linux-i686-2.15/bin' '--libexecdir=/tmp/emacs-24.3-bin/App/emacs-24.3/linux-i686-2.15/libexec' '--datadir=/tmp/emacs-24.3-bin/App/emacs-24.3/etc' '--info=/tmp/emacs-24.3-bin/App/emacs-24.3/info' '--prefix=/tmp/emacs-24.3-bin'' Important settings: value of $EMACSDATA: /initrd/mnt/dev_save/EmacsPortable.App/App/emacs-24.3/etc value of $EMACSDOC: /initrd/mnt/dev_save/EmacsPortable.App/App/emacs-24.3/etc value of $EMACSLOADPATH: /initrd/mnt/dev_save/EmacsPortable.App/App/emacs-24.3/lisp/:/initrd/mnt/dev_save/EmacsPortable.App/App/site-lisp/ value of $LANG: en_US.UTF-8 locale-coding-system: utf-8-unix default enable-multibyte-characters: t Major mode: Lisp Interaction Minor modes in effect: show-paren-mode: t tooltip-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 auto-composition-mode: t auto-encryption-mode: t auto-compression-mode: t line-number-mode: t transient-mark-mode: t Recent input: g l o b a l - s e t - k e y SPC h f C-h f M-x e v a l - u b u ) _ M-x e v a l - b u ) ) M-x e v a l - b u x 1 ) M-x e v a l - b u M-x e v a l - b u M-x e v a l - b u - 1 2 M-x e v a l - b u c C-c a Recent messages: Show-Paren mode enabled Mark set call-interactively: End of file during parsing [3 times] Mark set [2 times] byte-code: Beginning of buffer call-interactively: Invalid read syntax: ")" byte-code: Beginning of buffer byte-code: End of buffer [14 times] Test Me 2: C-c a Test Me: C-c a Load-path shadows: None found. Features: (shadow sort gnus-util mail-extr emacsbug message format-spec rfc822 mml mml-sec mm-decode mm-bodies mm-encode mail-parse rfc2231 mailabbrev gmm-utils mailheader sendmail rfc2047 rfc2045 ietf-drums mm-util mail-prsvr mail-utils edmacro kmacro cus-start cus-load paren help-mode easymenu help-fns time-date tooltip ediff-hook vc-hooks lisp-float-type mwheel x-win x-dnd tool-bar dnd fontset image regexp-opt fringe tabulated-list newcomment lisp-mode register page menu-bar rfn-eshadow timer select scroll-bar mouse jit-lock font-lock syntax facemenu font-core frame cham georgian utf-8-lang misc-lang vietnamese tibetan thai tai-viet lao korean japanese hebrew greek romanian slovak czech european ethiopic indian cyrillic chinese case-table epa-hook jka-cmpr-hook help simple abbrev minibuffer loaddefs button faces cus-face macroexp files text-properties overlay sha1 md5 base64 format env code-pages mule custom widget hashtable-print-readable backquote make-network-process dbusbind dynamic-setting system-font-setting font-render-setting move-toolbar gtk x-toolkit x multi-tty emacs) --089e013a2d8094f85f04e91c8509 Content-Type: text/html; charset=ISO-8859-1
After starting emacs -Q evaluate the following:


(defun test-me ()
(interactive)
(message "Test Me: %s" (key-description (this-single-command-keys))))

(defun test-me-2 ()
(interactive)
(message "Test Me 2: %s" (key-description (this-single-command-keys)))
(call-interactively 'test-me nil (read-kbd-macro "C-1" t)))


(global-set-key (read-kbd-macro "C-c a" t) 'test-me-2)

Then, Type C-c a. The message shows:

Test Me 2: C-c a
Test Me: C-c a

It should show

Test Me 2: C-1
Test Me: C-c a

At least thats how I understand the call-interactevly documentation:

This function calls the interactively callable function command, providing arguments according to its interactive calling specifications. It returns whatever command returns.

If, for instance, you have a function with the following signature:

(defun foo (begin end)
(interactive "r")
...)
then saying

(call-interactively 'foo)
will call foo with the region (point and mark) as the arguments.

An error is signaled if command is not a function or if it cannot be called interactively (i.e., is not a command). Note that keyboard macros (strings and vectors) are not accepted, even though they are considered commands, because they are not functions. If command is a symbol, then call-interactively uses its function definition.

If record-flag is non-nil, then this command and its arguments are unconditionally added to the list command-history. Otherwise, the command is added only if it uses the minibuffer to read an argument. See Command History.

The argument keys, if given, should be a vector which specifies the sequence of events to supply if the command inquires which events were used to invoke it. If keys is omitted or nil, the default is the return value of this-command-keys-vector. See Definition of this-command-keys-vector.



In GNU Emacs 24.3.1 (i686-pc-linux-gnu, GTK+ Version 2.24.10)
of 2013-08-29 on puppypc11169
Windowing system distributor `The X.Org Foundation', version 11.0.11103000
Configured using:
`configure
'--bindir=/tmp/emacs-24.3-bin/App/emacs-24.3/linux-i686-2.15/bin'
'--libexecdir=/tmp/emacs-24.3-bin/App/emacs-24.3/linux-i686-2.15/libexec'
'--datadir=/tmp/emacs-24.3-bin/App/emacs-24.3/etc'
'--info=/tmp/emacs-24.3-bin/App/emacs-24.3/info'
'--prefix=/tmp/emacs-24.3-bin''

Important settings:
value of $EMACSDATA: /initrd/mnt/dev_save/EmacsPortable.App/App/emacs-24.3/etc
value of $EMACSDOC: /initrd/mnt/dev_save/EmacsPortable.App/App/emacs-24.3/etc
value of $EMACSLOADPATH: /initrd/mnt/dev_save/EmacsPortable.App/App/emacs-24.3/lisp/:/initrd/mnt/dev_save/EmacsPortable.App/App/site-lisp/
value of $LANG: en_US.UTF-8
locale-coding-system: utf-8-unix
default enable-multibyte-characters: t

Major mode: Lisp Interaction

Minor modes in effect:
show-paren-mode: t
tooltip-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
auto-composition-mode: t
auto-encryption-mode: t
auto-compression-mode: t
line-number-mode: t
transient-mark-mode: t

Recent input:
<backspace> <backspace> <backspace> <backspace> <backspace>
<backspace> g l o b a l - s e t - k e y SPC <backspace>
h f <backspace> <backspace> C-h f <return> <down-mouse-1>
<mouse-1> M-x e v a l - u <backspace> b u <tab> <return>
<down> <down> <down> <down> <down> <down> <left> <down-mouse-4>
<mouse-4> <help-echo> <help-echo> <help-echo> <help-echo>
<menu-bar> <options> <highlight-paren-mode> <backspace>
<backspace> <down-mouse-2> <mouse-2> <down> <down>
<down> <down> <down> <left> <down> <down> <left> )
_ <backspace> M-x e v a l - b u <tab> <return> <down>
<down> <down> <down> <down> ) ) <down> <down> <down>
<up> M-x e v a l - b u <tab> <return> <up> <up> <right>
<right> <right> <right> <right> <right> <right> <right>
<right> <up> <up> <up> <up> <up> <up> <up> <up> <up>
x 1 <down> <down> <down> <down> <right> <right> <right>
<right> <right> <right> <right> <right> <right> <right>
<right> <right> <right> <right> <right> <right> <right>
<right> <right> ) M-x e v a l - b u <tab> <return>
<right> <left> <up> <up> <up> <up> <up> <S-up> <S-left>
<S-home> <backspace> <backspace> <down> <down> <S-up>
<S-up> <S-up> <S-up> <S-home> <backspace> M-x e v a
l - b u <tab> <return> <down> <down> <down> <left>
<down> <down> <left> <backspace> M-x e v a l - b u
<tab> <return> <down> <down> <down> <down> <down> <down>
<down> <left> - 1 <backspace> 2 M-x e v a l - b u <tab>
<down-mouse-3> <mouse-3> <return> <down-mouse-5> <mouse-5>
<down-mouse-4> <mouse-4> <down-mouse-5> <mouse-5> <double-down-mouse-5>
<double-mouse-5> <triple-down-mouse-5> <triple-mouse-5>
<triple-down-mouse-5> <triple-mouse-5> <triple-down-mouse-5>
<triple-mouse-5> <triple-down-mouse-5> <triple-mouse-5>
<down-mouse-4> <mouse-4> <down-mouse-5> <mouse-5> <double-down-mouse-5>
<double-mouse-5> <triple-down-mouse-5> <triple-mouse-5>
<triple-down-mouse-5> <triple-mouse-5> <triple-down-mouse-5>
<triple-mouse-5> <triple-down-mouse-5> <triple-mouse-5>
<triple-down-mouse-5> <triple-mouse-5> <triple-down-mouse-5>
<triple-mouse-5> <triple-down-mouse-5> <triple-mouse-5>
<triple-down-mouse-5> <triple-mouse-5> <help-echo>
<down-mouse-1> <mouse-movement> <mouse-1> <help-echo>
<help-echo> <return> c <backspace> C-c a <help-echo>
<down-mouse-1> <mouse-1> <help-echo> <help-echo> <help-echo>
<help-echo> <help-echo> <help-echo> <help-echo> <help-echo>
<help-echo> <help-echo> <help-echo> <menu-bar> <help-menu>
<send-emacs-bug-report>

Recent messages:
Show-Paren mode enabled
Mark set
call-interactively: End of file during parsing [3 times]
Mark set [2 times]
byte-code: Beginning of buffer
call-interactively: Invalid read syntax: ")"
byte-code: Beginning of buffer
byte-code: End of buffer [14 times]
Test Me 2: C-c a
Test Me: C-c a

Load-path shadows:
None found.

Features:
(shadow sort gnus-util mail-extr emacsbug message format-spec rfc822 mml
mml-sec mm-decode mm-bodies mm-encode mail-parse rfc2231 mailabbrev
gmm-utils mailheader sendmail rfc2047 rfc2045 ietf-drums mm-util
mail-prsvr mail-utils edmacro kmacro cus-start cus-load paren help-mode
easymenu help-fns time-date tooltip ediff-hook vc-hooks lisp-float-type
mwheel x-win x-dnd tool-bar dnd fontset image regexp-opt fringe
tabulated-list newcomment lisp-mode register page menu-bar rfn-eshadow
timer select scroll-bar mouse jit-lock font-lock syntax facemenu
font-core frame cham georgian utf-8-lang misc-lang vietnamese tibetan
thai tai-viet lao korean japanese hebrew greek romanian slovak czech
european ethiopic indian cyrillic chinese case-table epa-hook
jka-cmpr-hook help simple abbrev minibuffer loaddefs button faces
cus-face macroexp files text-properties overlay sha1 md5 base64 format
env code-pages mule custom widget hashtable-print-readable backquote
make-network-process dbusbind dynamic-setting system-font-setting
font-render-setting move-toolbar gtk x-toolkit x multi-tty emacs)

--089e013a2d8094f85f04e91c8509--