/[emacs]/emacs/src/fontset.c
ViewVC logotype

Diff of /emacs/src/fontset.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.65.2.9 by handa, Thu Aug 1 05:43:06 2002 UTC revision 1.65.2.10 by handa, Thu Aug 15 02:27:50 2002 UTC
# Line 229  void (*check_window_system_func) P_ ((vo Line 229  void (*check_window_system_func) P_ ((vo
229    
230    
231  /* Prototype declarations for static functions.  */  /* Prototype declarations for static functions.  */
232    static int fontset_add P_ ((Lisp_Object, Lisp_Object, Lisp_Object,
233                                Lisp_Object));
234  static Lisp_Object make_fontset P_ ((Lisp_Object, Lisp_Object, Lisp_Object));  static Lisp_Object make_fontset P_ ((Lisp_Object, Lisp_Object, Lisp_Object));
 static int fontset_id_valid_p P_ ((int));  
235  static Lisp_Object fontset_pattern_regexp P_ ((Lisp_Object));  static Lisp_Object fontset_pattern_regexp P_ ((Lisp_Object));
236  static void accumulate_script_ranges P_ ((Lisp_Object, Lisp_Object,  static void accumulate_script_ranges P_ ((Lisp_Object, Lisp_Object,
237                                            Lisp_Object));                                            Lisp_Object));
238  static Lisp_Object find_font_encoding P_ ((char *));  static Lisp_Object find_font_encoding P_ ((char *));
239    
240    #ifdef FONTSET_DEBUG
241    
242    /* Return 1 if ID is a valid fontset id, else return 0.  */
243    
244    static int
245    fontset_id_valid_p (id)
246         int id;
247    {
248      return (id >= 0 && id < ASIZE (Vfontset_table) - 1);
249    }
250    
251    #endif
252    
253    
254    
255  /********** MACROS AND FUNCTIONS TO HANDLE FONTSET **********/  /********** MACROS AND FUNCTIONS TO HANDLE FONTSET **********/
256    
# Line 340  fontset_ref_and_range (fontset, c, from, Line 355  fontset_ref_and_range (fontset, c, from,
355                              Fmake_vector (make_number (1), (elt)))      \                              Fmake_vector (make_number (1), (elt)))      \
356     : fontset_add ((fontset), (range), (elt), (add)))     : fontset_add ((fontset), (range), (elt), (add)))
357    
358  static void  static int
359  fontset_add (fontset, range, elt, add)  fontset_add (fontset, range, elt, add)
360       Lisp_Object fontset, range, elt, add;       Lisp_Object fontset, range, elt, add;
361  {  {
# Line 368  fontset_add (fontset, range, elt, add) Line 383  fontset_add (fontset, range, elt, add)
383      char_table_set_range (fontset, from, to1, elt1);          char_table_set_range (fontset, from, to1, elt1);    
384      from = to1 + 1;      from = to1 + 1;
385    } while (from < to);    } while (from < to);
386      return 0;
387  }  }
388    
389    

Legend:
Removed from v.1.65.2.9  
changed lines
  Added in v.1.65.2.10

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26