Mercurial > emacs
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 |