diff options
| author | Paul Eggert | 2017-01-25 21:13:19 -0800 |
|---|---|---|
| committer | Paul Eggert | 2017-01-25 21:25:37 -0800 |
| commit | b3a3ed526d2c490c9c5605707f0cd7bff3c88693 (patch) | |
| tree | 096de6603250aafcab11c31876d39faecf1b2db4 /src/buffer.c | |
| parent | 1392ec7420ee23238a1588b759c631d87a677483 (diff) | |
| download | emacs-b3a3ed526d2c490c9c5605707f0cd7bff3c88693.tar.gz emacs-b3a3ed526d2c490c9c5605707f0cd7bff3c88693.zip | |
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/buffer.c')
| -rw-r--r-- | src/buffer.c | 13 |
1 files changed, 5 insertions, 8 deletions
diff --git a/src/buffer.c b/src/buffer.c index fde23cace1a..c00cc40d6f2 100644 --- a/src/buffer.c +++ b/src/buffer.c | |||
| @@ -415,19 +415,16 @@ followed by the rest of the buffers. */) | |||
| 415 | } | 415 | } |
| 416 | 416 | ||
| 417 | /* Like Fassoc, but use Fstring_equal to compare | 417 | /* Like Fassoc, but use Fstring_equal to compare |
| 418 | (which ignores text properties), | 418 | (which ignores text properties), and don't ever quit. */ |
| 419 | and don't ever QUIT. */ | ||
| 420 | 419 | ||
| 421 | static Lisp_Object | 420 | static Lisp_Object |
| 422 | assoc_ignore_text_properties (register Lisp_Object key, Lisp_Object list) | 421 | assoc_ignore_text_properties (Lisp_Object key, Lisp_Object list) |
| 423 | { | 422 | { |
| 424 | register Lisp_Object tail; | 423 | Lisp_Object tail; |
| 425 | for (tail = list; CONSP (tail); tail = XCDR (tail)) | 424 | for (tail = list; CONSP (tail); tail = XCDR (tail)) |
| 426 | { | 425 | { |
| 427 | register Lisp_Object elt, tem; | 426 | Lisp_Object elt = XCAR (tail); |
| 428 | elt = XCAR (tail); | 427 | if (!NILP (Fstring_equal (Fcar (elt), key))) |
| 429 | tem = Fstring_equal (Fcar (elt), key); | ||
| 430 | if (!NILP (tem)) | ||
| 431 | return elt; | 428 | return elt; |
| 432 | } | 429 | } |
| 433 | return Qnil; | 430 | return Qnil; |