From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Thierry Volpiatto Newsgroups: gmane.emacs.bugs Subject: bug#17446: 24.4.50; What is the situation around `called-interactively-p'? Date: Sat, 10 May 2014 08:12:28 +0200 Message-ID: <87wqduf9gz.fsf@gmail.com> References: <87tx8z6sp2.fsf@gmail.com> <819a6ab8-db8e-4176-a778-02218f08e7af@default> <6e5610f3-d741-4d61-903c-a8f3aa8f46fd@default> <87siojasqx.fsf@web.de> <87r442x00n.fsf@gmail.com> NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: text/plain X-Trace: ger.gmane.org 1399702405 5321 80.91.229.3 (10 May 2014 06:13:25 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Sat, 10 May 2014 06:13:25 +0000 (UTC) Cc: Michael Heerdegen , 17446@debbugs.gnu.org To: Stefan Monnier Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Sat May 10 08:13:17 2014 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 1Wj0X7-0000vL-KR for geb-bug-gnu-emacs@m.gmane.org; Sat, 10 May 2014 08:13:17 +0200 Original-Received: from localhost ([::1]:55647 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Wj0X7-0000oa-6U for geb-bug-gnu-emacs@m.gmane.org; Sat, 10 May 2014 02:13:17 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:57732) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Wj0Wy-0000lu-KA for bug-gnu-emacs@gnu.org; Sat, 10 May 2014 02:13:14 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1Wj0Ws-0005qs-KZ for bug-gnu-emacs@gnu.org; Sat, 10 May 2014 02:13:08 -0400 Original-Received: from debbugs.gnu.org ([140.186.70.43]:40193) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Wj0Ws-0005qn-Ga for bug-gnu-emacs@gnu.org; Sat, 10 May 2014 02:13:02 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.80) (envelope-from ) id 1Wj0Ws-0002pi-4q for bug-gnu-emacs@gnu.org; Sat, 10 May 2014 02:13:02 -0400 X-Loop: help-debbugs@gnu.org Resent-From: Thierry Volpiatto Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Sat, 10 May 2014 06:13:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 17446 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: Original-Received: via spool by 17446-submit@debbugs.gnu.org id=B17446.139970236110856 (code B ref 17446); Sat, 10 May 2014 06:13:02 +0000 Original-Received: (at 17446) by debbugs.gnu.org; 10 May 2014 06:12:41 +0000 Original-Received: from localhost ([127.0.0.1]:57544 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1Wj0WX-0002p1-5g for submit@debbugs.gnu.org; Sat, 10 May 2014 02:12:41 -0400 Original-Received: from mail-wg0-f47.google.com ([74.125.82.47]:55319) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1Wj0WU-0002oh-K8 for 17446@debbugs.gnu.org; Sat, 10 May 2014 02:12:39 -0400 Original-Received: by mail-wg0-f47.google.com with SMTP id x12so4720706wgg.18 for <17446@debbugs.gnu.org>; Fri, 09 May 2014 23:12:33 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20120113; h=references:user-agent:from:to:cc:subject:in-reply-to:date :message-id:mime-version:content-type; bh=DKJV9vzrj9K++1ZcjRNhZihKHW2++oNK5k2MZm7kWpc=; b=aI7ibpNHWJlaWb2Nig/+W5pSLaV42LarxFkM2nuc0q03efY+wH30jvz+XoIuGVcB59 T8pTXTLTJdaSVLkw1Nz3qwZvJ0W+jtU9zp60duS2T0YgsyKCG+eDpOawF6bCqKUbtB7b wweq9jqdk5lSYLU2KlNN9Yyy0u3IgKjKJjJ75LVrlv6gS6yWnq2A5JiTAS88w4Z4W65c 5Etnq/Ciy3LgM3L9tQ3UiWxmk2nnBIJRcTvuIGMeQ7w/S0DwVQLSPn/kVkRBecnlECbW te85ocA7M7q3cuYy2THE0azvjy0l/sHWNpQnpo8k/fA1w24TIu/f5A3K052uvF6zO5M3 JmSg== X-Received: by 10.194.60.114 with SMTP id g18mr14199wjr.61.1399702352909; Fri, 09 May 2014 23:12:32 -0700 (PDT) Original-Received: from dell-14z (lbe83-2-78-243-104-167.fbx.proxad.net. [78.243.104.167]) by mx.google.com with ESMTPSA id pn9sm2939770wic.17.2014.05.09.23.12.30 for (version=TLSv1.2 cipher=RC4-SHA bits=128/128); Fri, 09 May 2014 23:12:31 -0700 (PDT) User-agent: mu4e 0.9.9.6pre3; emacs 24.4.50.1 In-reply-to: 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:88849 Archived-At: Stefan Monnier writes: >> How 'bout the patch below, > > BTW, for older Emacsen, you can probably use a hack along the lines of > the guaranteed 100% untested code below: > > (defun funcall-interactively (fun &rest args) > (call-interactively > (cond > ((consp fun) > (mapcar (lambda (x) > (if (eq (car-safe x) 'interactive)) ^ > `(interactive ',args) x) > fun)) > ((byte-code-function-p) ^ missing arg ? > (apply #'make-byte-code > (aref 0 fun) > (aref 1 fun) > (aref 2 fun) > (aref 3 fun) > (aref 4 fun) > `',args))))) This won't work IMO, why fun would be a cons or a byte-code-function ? -- Thierry Get my Gnupg key: gpg --keyserver pgp.mit.edu --recv-keys 59F29997