diff options
Diffstat (limited to 'src/lisp.h')
| -rw-r--r-- | src/lisp.h | 13 |
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 | ||
| 5 | This file is part of GNU Emacs. | 5 | This 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 | ||
| 1877 | extern int consing_since_gc; | 1877 | extern int consing_since_gc; |
| 1878 | 1878 | ||
| 1879 | /* Threshold for doing another gc. */ | 1879 | /* Thresholds for doing another gc. */ |
| 1880 | 1880 | ||
| 1881 | extern EMACS_INT gc_cons_threshold; | 1881 | extern EMACS_INT gc_cons_threshold; |
| 1882 | 1882 | ||
| 1883 | extern 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)); |
| 3027 | extern void deactivate_process P_ ((Lisp_Object)); | ||
| 3028 | extern void add_keyboard_wait_descriptor P_ ((int)); | 3029 | extern void add_keyboard_wait_descriptor P_ ((int)); |
| 3029 | extern void delete_keyboard_wait_descriptor P_ ((int)); | 3030 | extern void delete_keyboard_wait_descriptor P_ ((int)); |
| 3030 | extern void close_process_descs P_ ((void)); | 3031 | extern void close_process_descs P_ ((void)); |
| 3031 | extern void status_notify P_ ((void)); | ||
| 3032 | extern int read_process_output P_ ((Lisp_Object, int)); | ||
| 3033 | extern void init_process P_ ((void)); | 3032 | extern void init_process P_ ((void)); |
| 3034 | extern void syms_of_process P_ ((void)); | 3033 | extern void syms_of_process P_ ((void)); |
| 3035 | extern void setup_process_coding_systems P_ ((Lisp_Object)); | 3034 | extern void setup_process_coding_systems P_ ((Lisp_Object)); |