Mercurial > hg > xemacs-beta

comparison src/eval.c @ 408:501cfd01ee6d r21-2-34

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-34
author cvs
date Mon, 13 Aug 2007 11:18:11 +0200
parents b8cc9ab3f761
children de805c49cfc1
comparison
equal deleted inserted replaced
407:ed6218a7d4d3 408:501cfd01ee6d
140 See call_with_suspended_errors(). */ 140 See call_with_suspended_errors(). */
141 Lisp_Object Vcurrent_warning_class; 141 Lisp_Object Vcurrent_warning_class;
142 142
143 /* Special catch tag used in call_with_suspended_errors(). */ 143 /* Special catch tag used in call_with_suspended_errors(). */
144 Lisp_Object Qunbound_suspended_errors_tag; 144 Lisp_Object Qunbound_suspended_errors_tag;
145
146 /* Non-nil means we're going down, so we better not run any hooks
147 or do other non-essential stuff. */
148 int preparing_for_armageddon;
149 145
150 /* Non-nil means record all fset's and provide's, to be undone 146 /* Non-nil means record all fset's and provide's, to be undone
151 if the file being autoloaded is not fully loaded. 147 if the file being autoloaded is not fully loaded.
152 They are recorded by being consed onto the front of Vautoload_queue: 148 They are recorded by being consed onto the front of Vautoload_queue:
153 (FUN . ODEF) for a defun, (OFEATURES . nil) for a provide. */ 149 (FUN . ODEF) for a defun, (OFEATURES . nil) for a provide. */
4899 } 4895 }
4900 if (i != 0) write_c_string (" ", stream); 4896 if (i != 0) write_c_string (" ", stream);
4901 Fprin1 (backlist->args[i], stream); 4897 Fprin1 (backlist->args[i], stream);
4902 } 4898 }
4903 } 4899 }
4900 write_c_string (")\n", stream);
4904 } 4901 }
4905 write_c_string (")\n", stream);
4906 backlist = backlist->next; 4902 backlist = backlist->next;
4907 } 4903 }
4908 } 4904 }
4909 Vprint_level = old_level; 4905 Vprint_level = old_level;
4910 print_readably = old_pr; 4906 print_readably = old_pr;