aboutsummaryrefslogtreecommitdiffstats
path: root/src/buffer.c
diff options
context:
space:
mode:
authorPaul Eggert2017-01-25 21:13:19 -0800
committerPaul Eggert2017-01-25 21:25:37 -0800
commitb3a3ed526d2c490c9c5605707f0cd7bff3c88693 (patch)
tree096de6603250aafcab11c31876d39faecf1b2db4 /src/buffer.c
parent1392ec7420ee23238a1588b759c631d87a677483 (diff)
downloademacs-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.c13
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
421static Lisp_Object 420static Lisp_Object
422assoc_ignore_text_properties (register Lisp_Object key, Lisp_Object list) 421assoc_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;