comparison src/lread.c @ 83290:042f282a2ed7

Merged from miles@gnu.org--gnu-2005 (patch 66, 266-268) Patches applied: * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-266 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-267 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-268 Merge from gnus--rel--5.10 * miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-66 Update from CVS git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-330
author Karoly Lorentey <lorentey@elte.hu>
date Tue, 19 Apr 2005 13:33:31 +0000
parents 9deb6323655c eac490378ade
children 5ae8a8b0a308
comparison
equal deleted inserted replaced
83289:1e53ee7473e9 83290:042f282a2ed7
1 /* Lisp parsing and input streams. 1 /* Lisp parsing and input streams.
2 Copyright (C) 1985, 1986, 1987, 1988, 1989, 1993, 1994, 1995, 1997, 1998, 2 Copyright (C) 1985, 1986, 1987, 1988, 1989, 1993, 1994, 1995, 1997, 1998,
3 1999, 2000, 2001, 2003, 2004 Free Software Foundation, Inc. 3 1999, 2000, 2001, 2003, 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
88 Lisp_Object Qinhibit_file_name_operation; 88 Lisp_Object Qinhibit_file_name_operation;
89 89
90 extern Lisp_Object Qevent_symbol_element_mask; 90 extern Lisp_Object Qevent_symbol_element_mask;
91 extern Lisp_Object Qfile_exists_p; 91 extern Lisp_Object Qfile_exists_p;
92 92
93 /* non-zero if inside `load' */ 93 /* non-zero iff inside `load' */
94 int load_in_progress; 94 int load_in_progress;
95 95
96 /* Directory in which the sources were found. */ 96 /* Directory in which the sources were found. */
97 Lisp_Object Vsource_directory; 97 Lisp_Object Vsource_directory;
98 98
192 static int new_backquote_flag; 192 static int new_backquote_flag;
193 193
194 /* A list of file names for files being loaded in Fload. Used to 194 /* A list of file names for files being loaded in Fload. Used to
195 check for recursive loads. */ 195 check for recursive loads. */
196 196
197 Lisp_Object Vloads_in_progress; 197 static Lisp_Object Vloads_in_progress;
198 198
199 /* Non-zero means load dangerous compiled Lisp files. */ 199 /* Non-zero means load dangerous compiled Lisp files. */
200 200
201 int load_dangerous_libraries; 201 int load_dangerous_libraries;
202 202