Mercurial > emacs
comparison src/data.c @ 95589:4f530a89d1ee
(set_internal): Fix up call to let_shadows_buffer_binding_p.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Thu, 05 Jun 2008 17:31:55 +0000 |
| parents | 8a703a3c84d7 |
| children | ddedcecb18ef |
comparison
equal
deleted
inserted
replaced
| 95588:be81a1d92312 | 95589:4f530a89d1ee |
|---|---|
| 1196 { | 1196 { |
| 1197 int offset = XBUFFER_OBJFWD (valcontents)->offset; | 1197 int offset = XBUFFER_OBJFWD (valcontents)->offset; |
| 1198 int idx = PER_BUFFER_IDX (offset); | 1198 int idx = PER_BUFFER_IDX (offset); |
| 1199 if (idx > 0 | 1199 if (idx > 0 |
| 1200 && !bindflag | 1200 && !bindflag |
| 1201 && !let_shadows_buffer_binding_p (symbol)) | 1201 && !let_shadows_buffer_binding_p (XSYMBOL (symbol))) |
| 1202 SET_PER_BUFFER_VALUE_P (buf, idx, 1); | 1202 SET_PER_BUFFER_VALUE_P (buf, idx, 1); |
| 1203 } | 1203 } |
| 1204 else if (BUFFER_LOCAL_VALUEP (valcontents)) | 1204 else if (BUFFER_LOCAL_VALUEP (valcontents)) |
| 1205 { | 1205 { |
| 1206 /* valcontents is a struct Lisp_Buffer_Local_Value. */ | 1206 /* valcontents is a struct Lisp_Buffer_Local_Value. */ |