From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Stefan Monnier Newsgroups: gmane.emacs.devel Subject: Re: called-interactively-p, cedet, and Emacs 23.1 and earlier Date: Wed, 24 Mar 2010 13:51:26 -0400 Message-ID: References: <4BAA41B0.1020103@siege-engine.com> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: dough.gmane.org 1269453135 1198 80.91.229.12 (24 Mar 2010 17:52:15 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Wed, 24 Mar 2010 17:52:15 +0000 (UTC) Cc: emacs-devel@gnu.org To: "Eric M. Ludlam" Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Wed Mar 24 18:52:10 2010 Return-path: Envelope-to: ged-emacs-devel@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by lo.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1NuUkT-0007iT-8Z for ged-emacs-devel@m.gmane.org; Wed, 24 Mar 2010 18:52:09 +0100 Original-Received: from localhost ([127.0.0.1]:57493 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1NuUkS-0004VG-Gs for ged-emacs-devel@m.gmane.org; Wed, 24 Mar 2010 13:52:08 -0400 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1NuUjr-00047K-7F for emacs-devel@gnu.org; Wed, 24 Mar 2010 13:51:31 -0400 Original-Received: from [140.186.70.92] (port=46286 helo=eggs.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1NuUjp-00045l-KK for emacs-devel@gnu.org; Wed, 24 Mar 2010 13:51:30 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.69) (envelope-from ) id 1NuUjo-0003vm-9p for emacs-devel@gnu.org; Wed, 24 Mar 2010 13:51:29 -0400 Original-Received: from ironport2-out.teksavvy.com ([206.248.154.183]:1361 helo=ironport2-out.pppoe.ca) by eggs.gnu.org with esmtp (Exim 4.69) (envelope-from ) id 1NuUjn-0003vg-DR for emacs-devel@gnu.org; Wed, 24 Mar 2010 13:51:28 -0400 X-IronPort-Anti-Spam-Filtered: true X-IronPort-Anti-Spam-Result: AvsEAKftqUvO+IPa/2dsb2JhbACbGnTAGYR+BIsc X-IronPort-AV: E=Sophos;i="4.51,301,1267419600"; d="scan'208";a="58975510" Original-Received: from 206-248-131-218.dsl.teksavvy.com (HELO pastel.home) ([206.248.131.218]) by ironport2-out.pppoe.ca with ESMTP; 24 Mar 2010 13:51:26 -0400 Original-Received: by pastel.home (Postfix, from userid 20848) id AC2957EF9; Wed, 24 Mar 2010 13:51:26 -0400 (EDT) In-Reply-To: <4BAA41B0.1020103@siege-engine.com> (Eric M. Ludlam's message of "Wed, 24 Mar 2010 12:45:36 -0400") User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.0.50 (gnu/linux) X-detected-operating-system: by eggs.gnu.org: Genre and OS details not recognized. X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.devel:122616 Archived-At: > We have recently stumbled over called-interactively-p, which is now used > with an argument throughout the Emacs versions of the CEDET code. > My externally maintained code I would like to have work in Emacs 22 and 23.1 > which does not support the argument, and XEmacs which is missing the feature > completely, and is thus easy to make work in this case. Could some kind soul > help me define some advice, or other trick I can install in older Emacs to > allow this form to work? How 'bout (condition-case nil (called-interactively-p nil) (defmacro called-interactively-p (arg) (case arg (interactive `(interactive-p)) ((any nil) `(called-interactively-p))))) -- Stefan