[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/src/data.c,v
From: |
Michael Cadilhac |
Subject: |
[Emacs-diffs] Changes to emacs/src/data.c,v |
Date: |
Mon, 10 Sep 2007 09:41:44 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Michael Cadilhac <cadilhac> 07/09/10 09:41:44
Index: data.c
===================================================================
RCS file: /sources/emacs/emacs/src/data.c,v
retrieving revision 1.277
retrieving revision 1.278
diff -u -b -r1.277 -r1.278
--- data.c 29 Aug 2007 05:27:58 -0000 1.277
+++ data.c 10 Sep 2007 09:41:44 -0000 1.278
@@ -770,8 +770,11 @@
if (SUBRP (fun))
{
- if (XSUBR (fun)->prompt)
- return list2 (Qinteractive, build_string (XSUBR (fun)->prompt));
+ char *spec = XSUBR (fun)->intspec;
+ if (spec)
+ return list2 (Qinteractive,
+ (*spec != '(') ? build_string (spec) :
+ Fcar (Fread_from_string (build_string (spec), Qnil,
Qnil)));
}
else if (COMPILEDP (fun))
{
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/src/data.c,v,
Michael Cadilhac <=