Mercurial > emacs

changeset 89624:4e86a45294f5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Fmapconcat): Signal an error if SEQUENCE is a char table. (Fmapcar): Likewise. (Fmapc): Likewise.
author Kenichi Handa <handa@m17n.org>
date Mon, 17 Nov 2003 00:58:10 +0000
parents 4c3976d8d2c3
children 8dac60a36c4b
files src/fns.c
diffstat 1 files changed, 6 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/src/fns.c	Sat Nov 15 00:59:51 2003 +0000
+++ b/src/fns.c	Mon Nov 17 00:58:10 2003 +0000
@@ -2418,6 +2418,8 @@
   struct gcpro gcpro1;
 
   len = Flength (sequence);
+  if (CHAR_TABLE_P (sequence))
+    wrong_type_argument (Qlistp, sequence);
   leni = XINT (len);
   nargs = leni + leni - 1;
   if (nargs < 0) return build_string ("");
@@ -2449,6 +2451,8 @@
   register Lisp_Object *args;
 
   len = Flength (sequence);
+  if (CHAR_TABLE_P (sequence))
+    wrong_type_argument (Qlistp, sequence);
   leni = XFASTINT (len);
   args = (Lisp_Object *) alloca (leni * sizeof (Lisp_Object));
 
@@ -2467,6 +2471,8 @@
   register int leni;
 
   leni = XFASTINT (Flength (sequence));
+  if (CHAR_TABLE_P (sequence))
+    wrong_type_argument (Qlistp, sequence);
   mapcar1 (leni, 0, function, sequence);
 
   return sequence;