comparison src/eval.c @ 90159:08185296b491

Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-44 Merge from emacs--cvs-trunk--0 Patches applied: * emacs--cvs-trunk--0 (patch 272-288) - src/xdisp.c (dump_glyph_row): Don't display overlay_arrow_p field. - Update from CVS - Merge from gnus--rel--5.10 * gnus--rel--5.10 (patch 67) - Update from CVS
author Miles Bader <miles@gnu.org>
date Thu, 05 May 2005 00:04:55 +0000
parents 02f1dbc4a199 787052160d87
children 62afea0771d8
comparison
equal deleted inserted replaced
90158:bf4846baba9a 90159:08185296b491
1 /* Evaluator for GNU Emacs Lisp interpreter. 1 /* Evaluator for GNU Emacs Lisp interpreter.
2 Copyright (C) 1985, 86, 87, 93, 94, 95, 99, 2000, 2001, 02, 2004 2 Copyright (C) 1985, 1986, 1987, 1993, 1994, 1995, 1999, 2000, 2001,
3 Free Software Foundation, Inc. 3 2002, 2004, 2005 Free Software Foundation, Inc.
4 4
5 This file is part of GNU Emacs. 5 This file is part of GNU Emacs.
6 6
7 GNU Emacs is free software; you can redistribute it and/or modify 7 GNU Emacs is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by 8 it under the terms of the GNU General Public License as published by
1980 { 1980 {
1981 first = XCAR (queue); 1981 first = XCAR (queue);
1982 second = Fcdr (first); 1982 second = Fcdr (first);
1983 first = Fcar (first); 1983 first = Fcar (first);
1984 1984
1985 /* Note: This test is subtle. The cdr of an autoload-queue entry 1985 if (CONSP (second) && EQ (XCAR (second), Qautoload))
1986 may be an atom if the autoload entry was generated by a defalias
1987 or fset. */
1988 if (CONSP (second))
1989 Fput (first, Qautoload, (XCDR (second))); 1986 Fput (first, Qautoload, (XCDR (second)));
1990 1987
1991 queue = XCDR (queue); 1988 queue = XCDR (queue);
1992 } 1989 }
1993 1990