diff options
| author | Alan Mackenzie | 2017-02-12 10:59:03 +0000 |
|---|---|---|
| committer | Alan Mackenzie | 2017-02-12 10:59:03 +0000 |
| commit | f4d5b687150810129b7a1d5b006e31ccf82b691b (patch) | |
| tree | 4229b13800349032697daae3904dc3773e6b7a80 /src/buffer.c | |
| parent | d5514332d4a6092673ce1f78fadcae0c57f7be64 (diff) | |
| parent | 148100d98319499f0ac6f57b8be08cbd14884a5c (diff) | |
| download | emacs-f4d5b687150810129b7a1d5b006e31ccf82b691b.tar.gz emacs-f4d5b687150810129b7a1d5b006e31ccf82b691b.zip | |
Merge branch 'master' into comment-cachecomment-cache
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 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 | ||
| 426 | static Lisp_Object | 425 | static Lisp_Object |
| 427 | assoc_ignore_text_properties (register Lisp_Object key, Lisp_Object list) | 426 | assoc_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; |