aboutsummaryrefslogtreecommitdiffstats
path: root/src/lisp.h
diff options
context:
space:
mode:
Diffstat (limited to 'src/lisp.h')
-rw-r--r--src/lisp.h13
1 files changed, 6 insertions, 7 deletions
diff --git a/src/lisp.h b/src/lisp.h
index 5c0e9b561ad..8f37c715c29 100644
--- a/src/lisp.h
+++ b/src/lisp.h
@@ -1,6 +1,6 @@
1/* Fundamental definitions for GNU Emacs Lisp interpreter. 1/* Fundamental definitions for GNU Emacs Lisp interpreter.
2 Copyright (C) 1985, 1986, 1987, 1993, 1994, 1995, 1997, 1998, 1999, 2000, 2 Copyright (C) 1985, 1986, 1987, 1993, 1994, 1995, 1997, 1998, 1999, 2000,
3 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. 3 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc.
4 4
5This file is part of GNU Emacs. 5This file is part of GNU Emacs.
6 6
@@ -1797,7 +1797,7 @@ extern int interrupt_input_pending;
1797 Lisp_Object flag = Vquit_flag; \ 1797 Lisp_Object flag = Vquit_flag; \
1798 Vquit_flag = Qnil; \ 1798 Vquit_flag = Qnil; \
1799 if (EQ (Vthrow_on_input, flag)) \ 1799 if (EQ (Vthrow_on_input, flag)) \
1800 Fthrow (Vthrow_on_input, Qnil); \ 1800 Fthrow (Vthrow_on_input, Qt); \
1801 Fsignal (Qquit, Qnil); \ 1801 Fsignal (Qquit, Qnil); \
1802 } \ 1802 } \
1803 else if (interrupt_input_pending) \ 1803 else if (interrupt_input_pending) \
@@ -1813,7 +1813,7 @@ extern int interrupt_input_pending;
1813 Lisp_Object flag = Vquit_flag; \ 1813 Lisp_Object flag = Vquit_flag; \
1814 Vquit_flag = Qnil; \ 1814 Vquit_flag = Qnil; \
1815 if (EQ (Vthrow_on_input, flag)) \ 1815 if (EQ (Vthrow_on_input, flag)) \
1816 Fthrow (Vthrow_on_input, Qnil); \ 1816 Fthrow (Vthrow_on_input, Qt); \
1817 Fsignal (Qquit, Qnil); \ 1817 Fsignal (Qquit, Qnil); \
1818 } \ 1818 } \
1819 } while (0) 1819 } while (0)
@@ -1876,10 +1876,12 @@ extern Lisp_Object Vascii_canon_table, Vascii_eqv_table;
1876 1876
1877extern int consing_since_gc; 1877extern int consing_since_gc;
1878 1878
1879/* Threshold for doing another gc. */ 1879/* Thresholds for doing another gc. */
1880 1880
1881extern EMACS_INT gc_cons_threshold; 1881extern EMACS_INT gc_cons_threshold;
1882 1882
1883extern EMACS_INT gc_relative_threshold;
1884
1883/* Structure for recording stack slots that need marking. */ 1885/* Structure for recording stack slots that need marking. */
1884 1886
1885/* This is a chain of structures, each of which points at a Lisp_Object variable 1887/* This is a chain of structures, each of which points at a Lisp_Object variable
@@ -3024,12 +3026,9 @@ extern int wait_reading_process_output P_ ((int, int, int, int,
3024 Lisp_Object, 3026 Lisp_Object,
3025 struct Lisp_Process *, 3027 struct Lisp_Process *,
3026 int)); 3028 int));
3027extern void deactivate_process P_ ((Lisp_Object));
3028extern void add_keyboard_wait_descriptor P_ ((int)); 3029extern void add_keyboard_wait_descriptor P_ ((int));
3029extern void delete_keyboard_wait_descriptor P_ ((int)); 3030extern void delete_keyboard_wait_descriptor P_ ((int));
3030extern void close_process_descs P_ ((void)); 3031extern void close_process_descs P_ ((void));
3031extern void status_notify P_ ((void));
3032extern int read_process_output P_ ((Lisp_Object, int));
3033extern void init_process P_ ((void)); 3032extern void init_process P_ ((void));
3034extern void syms_of_process P_ ((void)); 3033extern void syms_of_process P_ ((void));
3035extern void setup_process_coding_systems P_ ((Lisp_Object)); 3034extern void setup_process_coding_systems P_ ((Lisp_Object));