diff options
| author | Paul Eggert <eggert@cs.ucla.edu> | 2017-01-25 21:13:19 -0800 |
|---|---|---|
| committer | Paul Eggert <eggert@cs.ucla.edu> | 2017-01-25 21:25:37 -0800 |
| commit | b3a3ed526d2c490c9c5605707f0cd7bff3c88693 (patch) | |
| tree | 096de6603250aafcab11c31876d39faecf1b2db4 /src/keymap.c | |
| parent | 1392ec7420ee23238a1588b759c631d87a677483 (diff) | |
| download | emacs-b3a3ed526d2c490c9c5605707f0cd7bff3c88693.tar.gz | |
Replace QUIT with maybe_quit
There’s no longer need to have QUIT stand for a slug of C statements.
Use the more-obvious function-call syntax instead.
Also, use true and false when setting immediate_quit.
These changes should not affect the generated machine code.
* src/lisp.h (QUIT): Remove. All uses replaced by maybe_quit.
Diffstat (limited to 'src/keymap.c')
| -rw-r--r-- | src/keymap.c | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/keymap.c b/src/keymap.c index 9e759478518..9caf55f98fb 100644 --- a/src/keymap.c +++ b/src/keymap.c @@ -523,7 +523,7 @@ access_keymap_1 (Lisp_Object map, Lisp_Object idx, retval = Fcons (Qkeymap, Fcons (retval, retval_tail)); } } - QUIT; + maybe_quit (); } return EQ (Qunbound, retval) ? get_keyelt (t_binding, autoload) : retval; @@ -877,7 +877,7 @@ store_in_keymap (Lisp_Object keymap, register Lisp_Object idx, Lisp_Object def) should be inserted before it. */ goto keymap_end; - QUIT; + maybe_quit (); } keymap_end: @@ -1250,7 +1250,7 @@ recognize the default bindings, just as `read-key-sequence' does. */) if (!CONSP (keymap)) return make_number (idx); - QUIT; + maybe_quit (); } } @@ -2466,7 +2466,7 @@ where_is_internal (Lisp_Object definition, Lisp_Object keymaps, non-ascii prefixes like `C-down-mouse-2'. */ continue; - QUIT; + maybe_quit (); data.definition = definition; data.noindirect = noindirect; @@ -3173,7 +3173,7 @@ describe_map (Lisp_Object map, Lisp_Object prefix, for (tail = map; CONSP (tail); tail = XCDR (tail)) { - QUIT; + maybe_quit (); if (VECTORP (XCAR (tail)) || CHAR_TABLE_P (XCAR (tail))) @@ -3426,7 +3426,7 @@ describe_vector (Lisp_Object vector, Lisp_Object prefix, Lisp_Object args, int range_beg, range_end; Lisp_Object val; - QUIT; + maybe_quit (); if (i == stop) { |