diff options
| author | Eli Zaretskii | 2015-10-12 20:02:52 +0300 |
|---|---|---|
| committer | Eli Zaretskii | 2015-10-12 20:02:52 +0300 |
| commit | 8ba156f1e77f22b448ffca72b2ba4dd5ea42ea59 (patch) | |
| tree | 4d74bbfc9ddd1feca7d098659a4bc82740bc5d97 | |
| parent | 1a588cb6dcfc2d9db4c1753ac7ba62ba97ee8d67 (diff) | |
| download | emacs-8ba156f1e77f22b448ffca72b2ba4dd5ea42ea59.tar.gz emacs-8ba156f1e77f22b448ffca72b2ba4dd5ea42ea59.zip | |
Attempt to avoid crashes in plist-member
* src/fns.c (Fplist_member): Don't call QUIT between a CONSP test
and a call to XCDR. (Bug#21655)
| -rw-r--r-- | src/fns.c | 2 |
1 files changed, 1 insertions, 1 deletions
| @@ -2875,9 +2875,9 @@ The value is actually the tail of PLIST whose car is PROP. */) | |||
| 2875 | { | 2875 | { |
| 2876 | while (CONSP (plist) && !EQ (XCAR (plist), prop)) | 2876 | while (CONSP (plist) && !EQ (XCAR (plist), prop)) |
| 2877 | { | 2877 | { |
| 2878 | QUIT; | ||
| 2879 | plist = XCDR (plist); | 2878 | plist = XCDR (plist); |
| 2880 | plist = CDR (plist); | 2879 | plist = CDR (plist); |
| 2880 | QUIT; | ||
| 2881 | } | 2881 | } |
| 2882 | return plist; | 2882 | return plist; |
| 2883 | } | 2883 | } |