diff options
| author | Gerd Moellmann <gerd@gnu.org> | 2000-02-18 13:30:59 +0000 |
|---|---|---|
| committer | Gerd Moellmann <gerd@gnu.org> | 2000-02-18 13:30:59 +0000 |
| commit | f0930f35f10d646696bb3c8084085f3d9b2422c4 (patch) | |
| tree | d59620771226fd81683e531bec79c188340fb973 /src/data.c | |
| parent | b6a22bf83e6bf520fa601b6db155d50be2829fca (diff) | |
| download | emacs-f0930f35f10d646696bb3c8084085f3d9b2422c4.tar.gz | |
(let_shadows_buffer_binding_p): Ignore specbindings
for symbols other than the symbol in question.
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) struct specbinding *p; for (p = specpdl_ptr - 1; p >= specpdl; p--) - if (p->func == 0 && CONSP (p->symbol) + if (p->func == 0 + && CONSP (p->symbol) + && EQ (symbol, XCAR (p->symbol)) && XBUFFER (XCDR (XCDR (p->symbol))) == current_buffer) return 1; |