Merged from emacs@sv.gnu.org.

Patches applied:

 * emacs@sv.gnu.org/emacs--devo--0--patch-331
   Update from CVS

 * emacs@sv.gnu.org/emacs--devo--0--patch-332
   Update from CVS

 * emacs@sv.gnu.org/emacs--devo--0--patch-333
   Merge from gnus--rel--5.10

 * emacs@sv.gnu.org/emacs--devo--0--patch-334
   Update from CVS

 * emacs@sv.gnu.org/emacs--devo--0--patch-335
   Add note about "link" button-class to etc/TODO

 * emacs@sv.gnu.org/emacs--devo--0--patch-336
   Update from CVS

 * emacs@sv.gnu.org/emacs--devo--0--patch-337
   Update from CVS

 * emacs@sv.gnu.org/emacs--devo--0--patch-338
   Update from CVS

 * emacs@sv.gnu.org/emacs--devo--0--patch-339
   Update from CVS

 * emacs@sv.gnu.org/emacs--devo--0--patch-340
   Update from CVS

 * emacs@sv.gnu.org/emacs--devo--0--patch-341
   Update from CVS

 * emacs@sv.gnu.org/emacs--devo--0--patch-342
   Update from CVS

 * emacs@sv.gnu.org/emacs--devo--0--patch-343
   Update from CVS

 * emacs@sv.gnu.org/emacs--devo--0--patch-344
   Update from CVS

 * emacs@sv.gnu.org/emacs--devo--0--patch-345
   Update from CVS

 * emacs@sv.gnu.org/emacs--devo--0--patch-346
   Update from CVS

 * emacs@sv.gnu.org/emacs--devo--0--patch-347
   Update from CVS

 * emacs@sv.gnu.org/emacs--devo--0--patch-348
   Update for ERC 5.1.3.

 * emacs@sv.gnu.org/emacs--devo--0--patch-349
   Update from CVS

 * emacs@sv.gnu.org/emacs--devo--0--patch-350
   Merge from gnus--rel--5.10

 * emacs@sv.gnu.org/gnus--rel--5.10--patch-111
   Update from CVS: texi/gnus.texi (Summary Buffer Lines): Fix typo.

 * emacs@sv.gnu.org/gnus--rel--5.10--patch-112
   Update from CVS

 * emacs@sv.gnu.org/gnus--rel--5.10--patch-113
   Merge from emacs--devo--0

 * emacs@sv.gnu.org/gnus--rel--5.10--patch-114
   Update from CVS

git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-572

1 files changed, 11 insertions, 58 deletions

diff --git a/src/bytecode.c b/src/bytecode.c
index 0d06890eabf..2facaa47062 100644
--- a/src/bytecode.c
+++ b/src/bytecode.c
@@ -433,8 +433,7 @@ If the third argument is incorrect, Emacs may crash.  */)
 #endif
 
   CHECK_STRING (bytestr);
-  if (!VECTORP (vector))
-    vector = wrong_type_argument (Qvectorp, vector);
+  CHECK_VECTOR (vector);
   CHECK_NUMBER (maxdepth);
 
   if (STRING_MULTIBYTE (bytestr))
@@ -542,14 +541,7 @@ If the third argument is incorrect, Emacs may crash.  */)
           {
             Lisp_Object v1;
             v1 = TOP;
-            if (CONSP (v1))
-              TOP = XCAR (v1);
-            else if (NILP (v1))
-              TOP = Qnil;
-            else
-              {
-                wrong_type_argument (Qlistp, v1);
-              }
+            TOP = CAR (v1);
             break;
           }
 
@@ -575,14 +567,7 @@ If the third argument is incorrect, Emacs may crash.  */)
           {
             Lisp_Object v1;
             v1 = TOP;
-            if (CONSP (v1))
-              TOP = XCDR (v1);
-            else if (NILP (v1))
-              TOP = Qnil;
-            else
-              {
-                wrong_type_argument (Qlistp, v1);
-              }
+            TOP = CDR (v1);
             break;
           }
 
@@ -917,23 +902,10 @@ If the third argument is incorrect, Emacs may crash.  */)
             AFTER_POTENTIAL_GC ();
             op = XINT (v2);
             immediate_quit = 1;
-            while (--op >= 0)
-              {
-                if (CONSP (v1))
-                  v1 = XCDR (v1);
-                else if (!NILP (v1))
-                  {
-                    immediate_quit = 0;
-                    wrong_type_argument (Qlistp, v1);
-                  }
-              }
+            while (--op >= 0 && CONSP (v1))
+              v1 = XCDR (v1);
             immediate_quit = 0;
-            if (CONSP (v1))
-              TOP = XCAR (v1);
-            else if (NILP (v1))
-              TOP = Qnil;
-            else
-              wrong_type_argument (Qlistp, v1);
+            TOP = CAR (v1);
             break;
           }
 
@@ -1556,23 +1528,10 @@ If the third argument is incorrect, Emacs may crash.  */)
                 AFTER_POTENTIAL_GC ();
                 op = XINT (v2);
                 immediate_quit = 1;
-                while (--op >= 0)
-                  {
-                    if (CONSP (v1))
-                      v1 = XCDR (v1);
-                    else if (!NILP (v1))
-                      {
-                        immediate_quit = 0;
-                        wrong_type_argument (Qlistp, v1);
-                      }
-                  }
+                while (--op >= 0 && CONSP (v1))
+                  v1 = XCDR (v1);
                 immediate_quit = 0;
-                if (CONSP (v1))
-                  TOP = XCAR (v1);
-                else if (NILP (v1))
-                  TOP = Qnil;
-                else
-                  wrong_type_argument (Qlistp, v1);
+                TOP = CAR (v1);
               }
             else
               {
@@ -1634,10 +1593,7 @@ If the third argument is incorrect, Emacs may crash.  */)
           {
             Lisp_Object v1;
             v1 = TOP;
-            if (CONSP (v1))
-              TOP = XCAR (v1);
-            else
-              TOP = Qnil;
+            TOP = CAR_SAFE (v1);
             break;
           }
 
@@ -1645,10 +1601,7 @@ If the third argument is incorrect, Emacs may crash.  */)
           {
             Lisp_Object v1;
             v1 = TOP;
-            if (CONSP (v1))
-              TOP = XCDR (v1);
-            else
-              TOP = Qnil;
+            TOP = CDR_SAFE (v1);
             break;
           }