aboutsummaryrefslogtreecommitdiffstats
path: root/src/buffer.c
diff options
context:
space:
mode:
authorAlan Mackenzie2017-02-12 10:59:03 +0000
committerAlan Mackenzie2017-02-12 10:59:03 +0000
commitf4d5b687150810129b7a1d5b006e31ccf82b691b (patch)
tree4229b13800349032697daae3904dc3773e6b7a80 /src/buffer.c
parentd5514332d4a6092673ce1f78fadcae0c57f7be64 (diff)
parent148100d98319499f0ac6f57b8be08cbd14884a5c (diff)
downloademacs-f4d5b687150810129b7a1d5b006e31ccf82b691b.tar.gz
emacs-f4d5b687150810129b7a1d5b006e31ccf82b691b.zip
Merge branch 'master' into comment-cachecomment-cache
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 0a317ad7d98..713c1e5b944 100644
--- a/src/buffer.c
+++ b/src/buffer.c
@@ -420,19 +420,16 @@ followed by the rest of the buffers. */)
420} 420}
421 421
422/* Like Fassoc, but use Fstring_equal to compare 422/* Like Fassoc, but use Fstring_equal to compare
423 (which ignores text properties), 423 (which ignores text properties), and don't ever quit. */
424 and don't ever QUIT. */
425 424
426static Lisp_Object 425static Lisp_Object
427assoc_ignore_text_properties (register Lisp_Object key, Lisp_Object list) 426assoc_ignore_text_properties (Lisp_Object key, Lisp_Object list)
428{ 427{
429 register Lisp_Object tail; 428 Lisp_Object tail;
430 for (tail = list; CONSP (tail); tail = XCDR (tail)) 429 for (tail = list; CONSP (tail); tail = XCDR (tail))
431 { 430 {
432 register Lisp_Object elt, tem; 431 Lisp_Object elt = XCAR (tail);
433 elt = XCAR (tail); 432 if (!NILP (Fstring_equal (Fcar (elt), key)))
434 tem = Fstring_equal (Fcar (elt), key);
435 if (!NILP (tem))
436 return elt; 433 return elt;
437 } 434 }
438 return Qnil; 435 return Qnil;