(set_internal): Fix up call to let_shadows_buffer_binding_p.

diff --git a/src/ChangeLog b/src/ChangeLog
index e14b198..9c02655 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2008-06-05  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * data.c (set_internal): Fix up call to let_shadows_buffer_binding_p.
+
 2008-06-05  Kenichi Handa  <handa@m17n.org>
 
        * coding.c (detect_coding): Fix previous change.
@@ -28,8 +32,7 @@
        * xfaces.c (realize_x_face): If the font-related face attributes
        are the same as those of default face, realize a new fontset from
        default->fontset.
-       (Fx_family_fonts): Use font_parse_family_registry instead of
-       Ffont_put.
+       (Fx_family_fonts): Use font_parse_family_registry instead of Ffont_put.
 
 2008-06-05  Stefan Monnier  <monnier@iro.umontreal.ca>
 
@@ -74,8 +77,7 @@
 2008-06-04  Kenichi Handa  <handa@m17n.org>
 
        * coding.c (detect_coding): Fix handling of coding->head_ascii.
-       Be sure to call setup_coding_system when a proper coding system is
-       found.
+       Be sure to call setup_coding_system when we find a proper coding system.
        (detect_coding_system): Fix handling of coding->head_ascii.
 
 2008-06-03  Andreas Schwab  <schwab@suse.de>
@@ -223,14 +225,14 @@
 
 2008-05-30  Kenichi Handa  <handa@m17n.org>
 
-       * fontset.c (Ffont_info): Moved to font.c.
+       * fontset.c (Ffont_info): Move to font.c.
        (syms_of_fontset): Delete defsubr of Sfont_info.
 
        * font.c (font_style_to_value, font_score): Delete casting of the
        args to xstcasecmp.
        (register_font_driver): Increment num_font_drivers only when
        registering the driver globally.
-       (Ffont_info): Moved from fontset.c.  Handle a font object too.
+       (Ffont_info): Move from fontset.c.  Handle a font object too.
        (syms_of_font): Defsubr Sfont_info.
 
 2008-05-29  Kenichi Handa  <handa@m17n.org>
@@ -434,14 +436,13 @@
 
        * ftfont.c (ftfont_spec_pattern): Free charset if necessary.
 
-       * xfont.c (xfont_list_pattern): Free names returned from
-       XListFonts.
+       * xfont.c (xfont_list_pattern): Free names returned from XListFonts.
 
 2008-05-22  Jason Rumney  <jasonr@gnu.org>
 
        * font.c: Don't include strings.h.
 
-       * dispextern.h, xfaces.c (xstrcasecmp): Renamed from xstricmp.
+       * dispextern.h, xfaces.c (xstrcasecmp): Rename from xstricmp.
 
        * dosfns.c, fileio.c, font.c, fontset.c, image.c, macfns.c:
        * macterm.c, process.c, w32.c, w32fns.c, w32proc.c, xfaces.c:
@@ -570,7 +571,7 @@
 
        * Makefile.in (FONTSRC): Delete it.  Change all $(FONTSRC) to
        font.h through out the file.
-       (FONT_DRIVERS): Renamed from FONTOBJ.
+       (FONT_DRIVERS): Rename from FONTOBJ.
        (obj): Change $(FONTOBJ) to $(FONT_DRIVERS).  Add font.o.
        (SOME_MACHINE_OBJECTS): Change $(FONTOBJ) to $(FONT_DRIVERS).
 
@@ -578,7 +579,7 @@
 
        * font.h (find_font_encoding): Extern it.
 
-       * font.c (Vfont_encoding_alist, find_font_encoding): Moved from
+       * font.c (Vfont_encoding_alist, find_font_encoding): Move from
        fontset.c.
        (font_pixel_size)[! HAVE_WINDOW_SYSTEM]: Return 1.
        (font_open_entity): Update FRAME_X_DISPLAY_INFO (f)->n_fonts,
@@ -587,10 +588,8 @@
        (font_close_object): Update FRAME_X_DISPLAY_INFO (f)->n_fonts only
        when HAVE_WINDOW_SYSTEM is defined.
 
-       * fontset.c (Vfont_encoding_alist, find_font_encoding): Moved to
-       font.c.
-       (syms_of_fontset): Declaration of font-encoding-alist moved to
-       font.c.
+       * fontset.c (Vfont_encoding_alist, find_font_encoding): Move to font.c.
+       (syms_of_fontset): Move declaration of font-encoding-alist to font.c.
 
        * xfaces.c: Include font.h unconditionally.
        (merge_face_ref, merge_face_vectors)

diff --git a/src/data.c b/src/data.c
index 8ee41ba..a695c4d 100644 (file)
--- a/src/data.c
+++ b/src/data.c
@@ -1198,7 +1198,7 @@ set_internal (symbol, newval, buf, bindflag)
       int idx = PER_BUFFER_IDX (offset);
       if (idx > 0
          && !bindflag
-         && !let_shadows_buffer_binding_p (symbol))
+         && !let_shadows_buffer_binding_p (XSYMBOL (symbol)))
        SET_PER_BUFFER_VALUE_P (buf, idx, 1);
     }
   else if (BUFFER_LOCAL_VALUEP (valcontents))