Mercurial > hg > xemacs-beta

comparison src/objects.c @ 448:3078fd1074e8 r21-2-39

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-39
author cvs
date Mon, 13 Aug 2007 11:38:25 +0200
parents 576fb035e263
children 183866b06e0b
comparison
equal deleted inserted replaced
447:4fc5f13f3bd3 448:3078fd1074e8
614 { 614 {
615 Lisp_Object face = COLOR_SPECIFIER_FACE (XCOLOR_SPECIFIER (specifier)); 615 Lisp_Object face = COLOR_SPECIFIER_FACE (XCOLOR_SPECIFIER (specifier));
616 Lisp_Object property = 616 Lisp_Object property =
617 COLOR_SPECIFIER_FACE_PROPERTY (XCOLOR_SPECIFIER (specifier)); 617 COLOR_SPECIFIER_FACE_PROPERTY (XCOLOR_SPECIFIER (specifier));
618 if (!NILP (face)) 618 if (!NILP (face))
619 face_property_was_changed (face, property, locale); 619 {
620 face_property_was_changed (face, property, locale);
621 if (BUFFERP (locale))
622 XBUFFER (locale)->buffer_local_face_property = 1;
623 }
620 } 624 }
621 625
622 void 626 void
623 set_color_attached_to (Lisp_Object obj, Lisp_Object face, Lisp_Object property) 627 set_color_attached_to (Lisp_Object obj, Lisp_Object face, Lisp_Object property)
624 { 628 {
812 { 816 {
813 Lisp_Object face = FONT_SPECIFIER_FACE (XFONT_SPECIFIER (specifier)); 817 Lisp_Object face = FONT_SPECIFIER_FACE (XFONT_SPECIFIER (specifier));
814 Lisp_Object property = 818 Lisp_Object property =
815 FONT_SPECIFIER_FACE_PROPERTY (XFONT_SPECIFIER (specifier)); 819 FONT_SPECIFIER_FACE_PROPERTY (XFONT_SPECIFIER (specifier));
816 if (!NILP (face)) 820 if (!NILP (face))
817 face_property_was_changed (face, property, locale); 821 {
822 face_property_was_changed (face, property, locale);
823 if (BUFFERP (locale))
824 XBUFFER (locale)->buffer_local_face_property = 1;
825 }
818 } 826 }
819 827
820 void 828 void
821 set_font_attached_to (Lisp_Object obj, Lisp_Object face, Lisp_Object property) 829 set_font_attached_to (Lisp_Object obj, Lisp_Object face, Lisp_Object property)
822 { 830 {
947 Lisp_Object face = 955 Lisp_Object face =
948 FACE_BOOLEAN_SPECIFIER_FACE (XFACE_BOOLEAN_SPECIFIER (specifier)); 956 FACE_BOOLEAN_SPECIFIER_FACE (XFACE_BOOLEAN_SPECIFIER (specifier));
949 Lisp_Object property = 957 Lisp_Object property =
950 FACE_BOOLEAN_SPECIFIER_FACE_PROPERTY (XFACE_BOOLEAN_SPECIFIER (specifier)); 958 FACE_BOOLEAN_SPECIFIER_FACE_PROPERTY (XFACE_BOOLEAN_SPECIFIER (specifier));
951 if (!NILP (face)) 959 if (!NILP (face))
952 face_property_was_changed (face, property, locale); 960 {
961 face_property_was_changed (face, property, locale);
962 if (BUFFERP (locale))
963 XBUFFER (locale)->buffer_local_face_property = 1;
964 }
953 } 965 }
954 966
955 void 967 void
956 set_face_boolean_attached_to (Lisp_Object obj, Lisp_Object face, 968 set_face_boolean_attached_to (Lisp_Object obj, Lisp_Object face,
957 Lisp_Object property) 969 Lisp_Object property)