diff options
Diffstat (limited to 'src/data.c')
| -rw-r--r-- | src/data.c | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/data.c b/src/data.c index ce9de8c5b23..a206c5c4994 100644 --- a/src/data.c +++ b/src/data.c | |||
| @@ -960,7 +960,9 @@ let_shadows_buffer_binding_p (symbol) | |||
| 960 | struct specbinding *p; | 960 | struct specbinding *p; |
| 961 | 961 | ||
| 962 | for (p = specpdl_ptr - 1; p >= specpdl; p--) | 962 | for (p = specpdl_ptr - 1; p >= specpdl; p--) |
| 963 | if (p->func == 0 && CONSP (p->symbol) | 963 | if (p->func == 0 |
| 964 | && CONSP (p->symbol) | ||
| 965 | && EQ (symbol, XCAR (p->symbol)) | ||
| 964 | && XBUFFER (XCDR (XCDR (p->symbol))) == current_buffer) | 966 | && XBUFFER (XCDR (XCDR (p->symbol))) == current_buffer) |
| 965 | return 1; | 967 | return 1; |
| 966 | 968 | ||