From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 28 Dec 2005 02:09:45 +0000 (+0000)
Subject: (do_autoload): Ignore elements of Vautoload_queue where car is not symbol.
X-Git-Tag: emacs-pretest-22.0.90~5023
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fe5195e82e767505b65abebb9b7c26d6e0723d8a;p=emacs.git

(do_autoload): Ignore elements of Vautoload_queue where car is not symbol.
---

diff --git a/src/ChangeLog b/src/ChangeLog
index 443a6f83208..c73d490c8ac 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+2005-12-27  Richard M. Stallman  <rms@gnu.org>
+
+	* eval.c (do_autoload): Ignore elements of Vautoload_queue
+	where car is not symbol.
+
 2005-12-27  Kenichi Handa  <handa@m17n.org>
 
 	* charset.c (lisp_string_width): Check multibyteness of STRING.
diff --git a/src/eval.c b/src/eval.c
index ba70412edaf..a6c58bc2425 100644
--- a/src/eval.c
+++ b/src/eval.c
@@ -2069,7 +2069,7 @@ do_autoload (fundef, funname)
       second = Fcdr (first);
       first = Fcar (first);
 
-      if (CONSP (second) && EQ (XCAR (second), Qautoload))
+      if (SYMBOLP (first) && CONSP (second) && EQ (XCAR (second), Qautoload))
 	Fput (first, Qautoload, (XCDR (second)));
 
       queue = XCDR (queue);