Mercurial > emacs

comparison src/fontset.c @ 46466:9629aca792bb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(font_family_registry, fs_query_fontset): (list_fontsets): Use const for pointer to lisp string data.
author Ken Raeburn <raeburn@raeburn.org>
date Tue, 16 Jul 2002 19:48:21 +0000
parents dd231f1390d2
children 8a4e82b00f6f
comparison
equal deleted inserted replaced
46465:5c56d4068a01 46466:9629aca792bb
368 font_family_registry (fontname, force) 368 font_family_registry (fontname, force)
369 Lisp_Object fontname; 369 Lisp_Object fontname;
370 int force; 370 int force;
371 { 371 {
372 Lisp_Object family, registry; 372 Lisp_Object family, registry;
373 char *p = SDATA (fontname); 373 const char *p = SDATA (fontname);
374 char *sep[15]; 374 const char *sep[15];
375 int i = 0; 375 int i = 0;
376 376
377 while (*p && i < 15) 377 while (*p && i < 15)
378 if (*p++ == '-') 378 if (*p++ == '-')
379 { 379 {
780 } 780 }
781 781
782 for (i = 0; i < ASIZE (Vfontset_table); i++) 782 for (i = 0; i < ASIZE (Vfontset_table); i++)
783 { 783 {
784 Lisp_Object fontset; 784 Lisp_Object fontset;
785 unsigned char *this_name; 785 const unsigned char *this_name;
786 786
787 fontset = FONTSET_FROM_ID (i); 787 fontset = FONTSET_FROM_ID (i);
788 if (NILP (fontset) 788 if (NILP (fontset)
789 || !BASE_FONTSET_P (fontset)) 789 || !BASE_FONTSET_P (fontset))
790 continue; 790 continue;
845 val = Qnil; 845 val = Qnil;
846 846
847 for (id = 0; id < ASIZE (Vfontset_table); id++) 847 for (id = 0; id < ASIZE (Vfontset_table); id++)
848 { 848 {
849 Lisp_Object fontset; 849 Lisp_Object fontset;
850 unsigned char *name; 850 const unsigned char *name;
851 851
852 fontset = FONTSET_FROM_ID (id); 852 fontset = FONTSET_FROM_ID (id);
853 if (NILP (fontset) 853 if (NILP (fontset)
854 || !BASE_FONTSET_P (fontset) 854 || !BASE_FONTSET_P (fontset)
855 || !EQ (frame, FONTSET_FRAME (fontset))) 855 || !EQ (frame, FONTSET_FRAME (fontset)))