From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/74357 Path: news.gmane.org!not-for-mail From: Katsumi Yamaoka Newsgroups: gmane.emacs.gnus.general Subject: Re: called-interactively-p Date: Thu, 25 Nov 2010 09:24:17 +0900 Organization: Emacsen advocacy group Message-ID: References: NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: dough.gmane.org 1290644730 13838 80.91.229.12 (25 Nov 2010 00:25:30 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Thu, 25 Nov 2010 00:25:30 +0000 (UTC) To: ding@gnus.org Original-X-From: ding-owner+M22722@lists.math.uh.edu Thu Nov 25 01:25:26 2010 Return-path: Envelope-to: ding-account@gmane.org Original-Received: from util0.math.uh.edu ([129.7.128.18]) by lo.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1PLPeO-0005Q0-Hc for ding-account@gmane.org; Thu, 25 Nov 2010 01:25:24 +0100 Original-Received: from localhost ([127.0.0.1] helo=lists.math.uh.edu) by util0.math.uh.edu with smtp (Exim 4.63) (envelope-from ) id 1PLPdy-0004xw-Mo; Wed, 24 Nov 2010 18:24:58 -0600 Original-Received: from mx2.math.uh.edu ([129.7.128.33]) by util0.math.uh.edu with esmtps (TLSv1:AES256-SHA:256) (Exim 4.63) (envelope-from ) id 1PLPdx-0004xj-83 for ding@lists.math.uh.edu; Wed, 24 Nov 2010 18:24:57 -0600 Original-Received: from quimby.gnus.org ([80.91.231.51]) by mx2.math.uh.edu with esmtp (Exim 4.72) (envelope-from ) id 1PLPdw-0002YI-D1 for ding@lists.math.uh.edu; Wed, 24 Nov 2010 18:24:57 -0600 Original-Received: from orlando.hostforweb.net ([216.246.45.90]) by quimby.gnus.org with esmtp (Exim 3.36 #1 (Debian)) id 1PLPdv-0006AF-00 for ; Thu, 25 Nov 2010 01:24:55 +0100 Original-Received: from localhost ([127.0.0.1]:41589) by orlando.hostforweb.net with esmtpa (Exim 4.69) (envelope-from ) id 1PLPdL-0000Bt-F0 for ding@gnus.org; Wed, 24 Nov 2010 18:24:19 -0600 X-Hashcash: 1:20:101125:ding@gnus.org::c1Vfy8ZOeC617hqF:00000SNn X-Face: #kKnN,xUnmKia.'[pp`;Omh}odZK)?7wQSl"4o04=EixTF+V[""w~iNbM9ZL+.b*_CxUmFk B#Fu[*?MZZH@IkN:!"\w%I_zt>[$nm7nQosZ<3eu;B:$Q_:p!',P.c0-_Cy[dz4oIpw0ESA^D*1Lw= L&i*6&( User-Agent: Gnus/5.110011 (No Gnus v0.11) Emacs/24.0.50 (gnu/linux) Cancel-Lock: sha1:4k9T8wi30dhVBGAz0mcnvIKFj9Y= X-AntiAbuse: This header was added to track abuse, please include it with any abuse report X-AntiAbuse: Primary Hostname - orlando.hostforweb.net X-AntiAbuse: Original Domain - gnus.org X-AntiAbuse: Originator/Caller UID/GID - [47 12] / [47 12] X-AntiAbuse: Sender Address Domain - jpl.org X-Source: X-Source-Args: X-Source-Dir: X-Spam-Score: -1.9 (-) List-ID: Precedence: bulk Xref: news.gmane.org gmane.emacs.gnus.general:74357 Archived-At: Katsumi Yamaoka wrote: > That's not in XEmacs. Please don't use it. Moreover called-interactively-p allows no argument in Emacs<23.2 . ,---- Emacs 23.1 ---- | called-interactively-p is a built-in function in `C source code'. | | (called-interactively-p) | | Return t if the function using this was called with `call-interactively'. | [...] `---- > Otherwise may I write > a compiler-macro, that replaces it with `interactively-p' in .elc > files, in dgnushack.el? I added the following to dgnushack.el temporarily to build Gnus for all the Emacsen that Gnus should support: (define-compiler-macro called-interactively-p (&whole form &optional kind) (or (condition-case nil (progn (called-interactively-p 'any) nil) (wrong-number-of-arguments '(called-interactively-p)) (void-function '(interactive-p))) form))