From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: storm@cua.dk (Kim F. Storm) Newsgroups: gmane.emacs.devel Subject: Re: File modes facilities. Date: Fri, 21 Oct 2005 13:05:39 +0200 Message-ID: References: <87hdbdxo94.fsf@mahaena.lrde> <87d5m1qm8w.fsf-monnier+emacs@gnu.org> <877jc92o37.fsf@mahaena.lrde> <17238.50816.352274.312799@kahikatea.snap.net.nz> <87u0fd9let.fsf@mahaena.lrde> <87oe5jmu9j.fsf-monnier+emacs@gnu.org> NNTP-Posting-Host: main.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: sea.gmane.org 1129897573 14121 80.91.229.2 (21 Oct 2005 12:26:13 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Fri, 21 Oct 2005 12:26:13 +0000 (UTC) Cc: Eli Zaretskii , Michael Cadilhac , emacs-devel@gnu.org Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Fri Oct 21 14:26:08 2005 Return-path: Original-Received: from lists.gnu.org ([199.232.76.165]) by ciao.gmane.org with esmtp (Exim 4.43) id 1ESvuX-0008Tn-TM for ged-emacs-devel@m.gmane.org; Fri, 21 Oct 2005 14:22:14 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1ESvuX-0001LZ-BT for ged-emacs-devel@m.gmane.org; Fri, 21 Oct 2005 08:22:13 -0400 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1ESujb-0003fP-CL for emacs-devel@gnu.org; Fri, 21 Oct 2005 07:06:52 -0400 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1ESujY-0003eI-Dh for emacs-devel@gnu.org; Fri, 21 Oct 2005 07:06:49 -0400 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1ESujW-0003dV-Om for emacs-devel@gnu.org; Fri, 21 Oct 2005 07:06:47 -0400 Original-Received: from [195.41.46.236] (helo=pfepb.post.tele.dk) by monty-python.gnu.org with esmtp (Exim 4.34) id 1ESujM-0007tA-Dv; Fri, 21 Oct 2005 07:06:36 -0400 Original-Received: from kfs-l.imdomain.dk.cua.dk (unknown [80.165.4.124]) by pfepb.post.tele.dk (Postfix) with SMTP id B56825EE09A; Fri, 21 Oct 2005 13:06:32 +0200 (CEST) Original-To: Stefan Monnier In-Reply-To: <87oe5jmu9j.fsf-monnier+emacs@gnu.org> (Stefan Monnier's message of "Thu, 20 Oct 2005 23:21:45 -0400") User-Agent: Gnus/5.11 (Gnus v5.11) Emacs/22.0.50 (gnu/linux) 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:44489 Archived-At: Stefan Monnier writes: > Agreed. I actually firmly believe that we should be able to provide > elisp code for the interactive spec of a C function. The previous patch I posted was completely untested, and didn't compile. Here is a better patch: *** data.c 19 Sep 2005 00:24:45 +0200 1.254 --- data.c 21 Oct 2005 13:04:24 +0200 *************** *** 787,793 **** if (SUBRP (fun)) { if (XSUBR (fun)->prompt) ! return list2 (Qinteractive, build_string (XSUBR (fun)->prompt)); } else if (COMPILEDP (fun)) { --- 787,801 ---- if (SUBRP (fun)) { if (XSUBR (fun)->prompt) ! { ! Lisp_Object spec; ! if (XSUBR (fun)->prompt[0] != '#') ! return list2 (Qinteractive, build_string (XSUBR (fun)->prompt)); ! ! if ((spec = Fget (intern (XSUBR (fun)->symbol_name), Qinteractive), ! !NILP (spec))) ! return list2 (Qinteractive, spec); ! } } else if (COMPILEDP (fun)) { -- Kim F. Storm http://www.cua.dk