Mercurial > hg > xemacs-beta

comparison src/faces.c @ 2:ac2d302a0011 r19-15b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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