(translate_char): Accept list of translation tables.

[bpt/emacs.git] / src / fns.c

diff --git a/src/fns.c b/src/fns.c
index 2c458ba..fa99293 100644 (file)
--- a/src/fns.c
+++ b/src/fns.c
@@ -2418,6 +2418,8 @@ SEQUENCE may be a list, a vector, a bool-vector, or a string.  */)
   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 @@ SEQUENCE may be a list, a vector, a bool-vector, or a string.  */)
   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 @@ SEQUENCE may be a list, a vector, a bool-vector, or a string.  */)
   register int leni;
 
   leni = XFASTINT (Flength (sequence));
+  if (CHAR_TABLE_P (sequence))
+    wrong_type_argument (Qlistp, sequence);
   mapcar1 (leni, 0, function, sequence);
 
   return sequence;
@@ -3300,6 +3306,7 @@ base64_encode_1 (from, to, length, line_break, multibyte)
          if (CHAR_BYTE8_P (c))
            c = CHAR_TO_BYTE8 (c);
          else if (c >= 256)
+           return -1;
          i += bytes;
        }
       else