diff options
| author | Philipp Stephani <phst@google.com> | 2015-11-16 00:31:56 +0100 |
|---|---|---|
| committer | Ted Zlatanov <tzz@lifelogs.com> | 2015-11-18 14:23:41 -0500 |
| commit | 7cdc5d628a737e2153c38d0d285c9879071beaa7 (patch) | |
| tree | 58d21223b8d1b7de7230449dfb24d85efcab86f5 /src/fns.c | |
| parent | 133ad3e2006d136a6153a75140a880f8ff16ea65 (diff) | |
| download | emacs-7cdc5d628a737e2153c38d0d285c9879071beaa7.tar.gz emacs-7cdc5d628a737e2153c38d0d285c9879071beaa7.tar.bz2 emacs-7cdc5d628a737e2153c38d0d285c9879071beaa7.zip | |
Add catch-all & no-signal version of PUSH_HANDLER
Ground work for modules. Add a non-signaling version of PUSH_HANDLER and
a new "catch-all" handler type.
* src/eval.c (init_handler, push_handler, push_handler_nosignal): New
functions.
* src/fns.c (hash_remove_from_table): Expose function public.
* src/lisp.h: New handler type, define macro to push_handler call.
Diffstat (limited to 'src/fns.c')
| -rw-r--r-- | src/fns.c | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/src/fns.c b/src/fns.c index 9931e80c970..029ac6a83bb 100644 --- a/src/fns.c +++ b/src/fns.c @@ -3620,8 +3620,7 @@ larger_vector (Lisp_Object vec, ptrdiff_t incr_min, ptrdiff_t nitems_max) Low-level Functions ***********************************************************************/ -static struct hash_table_test hashtest_eq; -struct hash_table_test hashtest_eql, hashtest_equal; +struct hash_table_test hashtest_eq, hashtest_eql, hashtest_equal; /* Compare KEY1 which has hash code HASH1 and KEY2 with hash code HASH2 in hash table H using `eql'. Value is true if KEY1 and @@ -3992,7 +3991,7 @@ hash_put (struct Lisp_Hash_Table *h, Lisp_Object key, Lisp_Object value, /* Remove the entry matching KEY from hash table H, if there is one. */ -static void +void hash_remove_from_table (struct Lisp_Hash_Table *h, Lisp_Object key) { EMACS_UINT hash_code; |