Mercurial > hg > xemacs-beta

comparison src/objects-msw.c @ 245:51092a27c943 r20-5b21

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-5b21
author cvs
date Mon, 13 Aug 2007 10:17:54 +0200
parents f220cc83d72e
children 83b3d10dcba9
comparison
equal deleted inserted replaced
244:78d4f1140794 245:51092a27c943
780 } 780 }
781 maybe_signal_simple_error ("unrecognized color", name, Qcolor, errb); 781 maybe_signal_simple_error ("unrecognized color", name, Qcolor, errb);
782 return(0); 782 return(0);
783 } 783 }
784 784
785 #if 0
785 static void 786 static void
786 mswindows_mark_color_instance (struct Lisp_Color_Instance *c, 787 mswindows_mark_color_instance (struct Lisp_Color_Instance *c,
787 void (*markobj) (Lisp_Object)) 788 void (*markobj) (Lisp_Object))
788 { 789 {
789 } 790 }
791 #endif
790 792
791 static void 793 static void
792 mswindows_print_color_instance (struct Lisp_Color_Instance *c, 794 mswindows_print_color_instance (struct Lisp_Color_Instance *c,
793 Lisp_Object printcharfun, 795 Lisp_Object printcharfun,
794 int escapeflag) 796 int escapeflag)
908 910
909 if (fields > 1 && strlen(weight)) 911 if (fields > 1 && strlen(weight))
910 { 912 {
911 char *c; 913 char *c;
912 /* Maybe split weight into weight and style */ 914 /* Maybe split weight into weight and style */
913 if (c=strchr(weight, ' ')) 915 if ((c=strchr(weight, ' ')))
914 { 916 {
915 *c = '\0'; 917 *c = '\0';
916 style = c+1; 918 style = c+1;
917 } 919 }
918 else 920 else
1056 } 1058 }
1057 1059
1058 return 1; 1060 return 1;
1059 } 1061 }
1060 1062
1063 #if 0
1061 static void 1064 static void
1062 mswindows_mark_font_instance (struct Lisp_Font_Instance *f, 1065 mswindows_mark_font_instance (struct Lisp_Font_Instance *f,
1063 void (*markobj) (Lisp_Object)) 1066 void (*markobj) (Lisp_Object))
1064 { 1067 {
1065 } 1068 }
1069 #endif
1066 1070
1067 static void 1071 static void
1068 mswindows_print_font_instance (struct Lisp_Font_Instance *f, 1072 mswindows_print_font_instance (struct Lisp_Font_Instance *f,
1069 Lisp_Object printcharfun, 1073 Lisp_Object printcharfun,
1070 int escapeflag) 1074 int escapeflag)