Commit f4cfd81a authored by Lute Kamstra's avatar Lute Kamstra
Browse files

(do_autoload): Record only autoloads in the autoload property of symbols.

parent 500509e2
/* Evaluator for GNU Emacs Lisp interpreter.
Copyright (C) 1985, 86, 87, 93, 94, 95, 99, 2000, 2001, 02, 2004
Free Software Foundation, Inc.
Copyright (C) 1985, 1986, 1987, 1993, 1994, 1995, 1999, 2000, 2001,
2002, 2004, 2005 Free Software Foundation, Inc.
This file is part of GNU Emacs.
......@@ -1982,10 +1982,7 @@ do_autoload (fundef, funname)
second = Fcdr (first);
first = Fcar (first);
/* Note: This test is subtle. The cdr of an autoload-queue entry
may be an atom if the autoload entry was generated by a defalias
or fset. */
if (CONSP (second))
if (CONSP (second) && EQ (XCAR (second), Qautoload))
Fput (first, Qautoload, (XCDR (second)));
queue = XCDR (queue);
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment