Mercurial > hg > xemacs-beta
comparison src/faces.c @ 2:ac2d302a0011 r19-15b2
Import from CVS: tag r19-15b2
author | cvs |
---|---|
date | Mon, 13 Aug 2007 08:46:35 +0200 |
parents | 376386a54a3c |
children | 859a2309aef8 |
comparison
equal
deleted
inserted
replaced
1:c0c6a60d29db | 2:ac2d302a0011 |
---|---|
1793 } | 1793 } |
1794 | 1794 |
1795 fold = XFACE (old_face); | 1795 fold = XFACE (old_face); |
1796 fnew = XFACE (new_face); | 1796 fnew = XFACE (new_face); |
1797 | 1797 |
1798 Fcopy_specifier (fold->foreground, fnew->foreground, locale, | 1798 #define COPY_PROPERTY(property) \ |
1799 tag_set, exact_p, how_to_add); | 1799 Fcopy_specifier (fold->property, fnew->property, \ |
1800 Fcopy_specifier (fold->background, fnew->background, locale, | 1800 locale, tag_set, exact_p, how_to_add); |
1801 tag_set, exact_p, how_to_add); | 1801 |
1802 Fcopy_specifier (fold->font, fnew->font, locale, | 1802 COPY_PROPERTY (foreground); |
1803 tag_set, exact_p, how_to_add); | 1803 COPY_PROPERTY (background); |
1804 Fcopy_specifier (fold->display_table, fnew->display_table, locale, | 1804 COPY_PROPERTY (font); |
1805 tag_set, exact_p, how_to_add); | 1805 COPY_PROPERTY (display_table); |
1806 Fcopy_specifier (fold->background_pixmap, fnew->background_pixmap, | 1806 COPY_PROPERTY (background_pixmap); |
1807 locale, tag_set, exact_p, how_to_add); | 1807 COPY_PROPERTY (underline); |
1808 Fcopy_specifier (fold->underline, fnew->underline, locale, | 1808 COPY_PROPERTY (strikethru); |
1809 tag_set, exact_p, how_to_add); | 1809 COPY_PROPERTY (highlight); |
1810 Fcopy_specifier (fold->strikethru, fnew->strikethru, locale, | 1810 COPY_PROPERTY (dim); |
1811 tag_set, exact_p, how_to_add); | 1811 COPY_PROPERTY (blinking); |
1812 Fcopy_specifier (fold->highlight, fnew->highlight, locale, | 1812 COPY_PROPERTY (reverse); |
1813 tag_set, exact_p, how_to_add); | 1813 #undef COPY_PROPERTY |
1814 Fcopy_specifier (fold->dim, fnew->dim, locale, | |
1815 tag_set, exact_p, how_to_add); | |
1816 Fcopy_specifier (fold->blinking, fnew->blinking, locale, | |
1817 tag_set, exact_p, how_to_add); | |
1818 Fcopy_specifier (fold->reverse, fnew->reverse, locale, | |
1819 tag_set, exact_p, how_to_add); | |
1820 /* #### should it copy the individual specifiers, if they exist? */ | 1814 /* #### should it copy the individual specifiers, if they exist? */ |
1821 fnew->plist = Fcopy_sequence (fold->plist); | 1815 fnew->plist = Fcopy_sequence (fold->plist); |
1822 | 1816 |
1823 UNGCPRO; | 1817 UNGCPRO; |
1824 | 1818 |