X-Git-Url: http://git.chise.org/gitweb/?p=chise%2Fxemacs-chise.git.1;a=blobdiff_plain;f=src%2Fobjects.c;h=c57270f834b6c1c824389d2c44b9d698da0d03d5;hp=2597b617bb7fe7e001058856e4285bb16aa0e1f6;hb=ee38d21b330f5001b47a577cefb5ba7b82a3b7d3;hpb=98a6e4055a1fa624c592ac06f79287d55196ca37

diff --git a/src/objects.c b/src/objects.c
index 2597b61..c57270f 100644
--- a/src/objects.c
+++ b/src/objects.c
@@ -563,7 +563,7 @@ color_instantiate (Lisp_Object specifier, Lisp_Object matchspec,
 		   XVECTOR_DATA (instantiator)[1], domain, ERROR_ME, 0, depth));
 
 	default:
-	  abort ();
+	  ABORT ();
 	}
     }
   else if (NILP (instantiator))
@@ -575,7 +575,7 @@ color_instantiate (Lisp_Object specifier, Lisp_Object matchspec,
 			     device);
     }
   else
-    abort ();	/* The spec validation routines are screwed up. */
+    ABORT ();	/* The spec validation routines are screwed up. */
 
   return Qunbound;
 }
@@ -616,7 +616,11 @@ color_after_change (Lisp_Object specifier, Lisp_Object locale)
   Lisp_Object property =
     COLOR_SPECIFIER_FACE_PROPERTY (XCOLOR_SPECIFIER (specifier));
   if (!NILP (face))
-    face_property_was_changed (face, property, locale);
+    {
+      face_property_was_changed (face, property, locale);
+      if (BUFFERP (locale))
+	XBUFFER (locale)->buffer_local_face_property = 1;
+    }
 }
 
 void
@@ -783,7 +787,7 @@ font_instantiate (Lisp_Object specifier, Lisp_Object matchspec,
   else if (NILP (instantiator))
     return Qunbound;
   else
-    abort ();	/* Eh? */
+    ABORT ();	/* Eh? */
 
   return Qunbound;
 }
@@ -814,7 +818,11 @@ font_after_change (Lisp_Object specifier, Lisp_Object locale)
   Lisp_Object property =
     FONT_SPECIFIER_FACE_PROPERTY (XFONT_SPECIFIER (specifier));
   if (!NILP (face))
-    face_property_was_changed (face, property, locale);
+    {
+      face_property_was_changed (face, property, locale);
+      if (BUFFERP (locale))
+	XBUFFER (locale)->buffer_local_face_property = 1;
+    }
 }
 
 void
@@ -902,7 +910,7 @@ face_boolean_instantiate (Lisp_Object specifier, Lisp_Object matchspec,
       return retval;
     }
   else
-    abort ();	/* Eh? */
+    ABORT ();	/* Eh? */
 
   return Qunbound;
 }
@@ -949,7 +957,11 @@ face_boolean_after_change (Lisp_Object specifier, Lisp_Object locale)
   Lisp_Object property =
     FACE_BOOLEAN_SPECIFIER_FACE_PROPERTY (XFACE_BOOLEAN_SPECIFIER (specifier));
   if (!NILP (face))
-    face_property_was_changed (face, property, locale);
+    {
+      face_property_was_changed (face, property, locale);
+      if (BUFFERP (locale))
+	XBUFFER (locale)->buffer_local_face_property = 1;
+    }
 }
 
 void