/[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.5 by fx, Sat May 25 12:43:42 2002 UTC revision 1.65.2.6 by fx, Tue Jul 16 15:10:44 2002 UTC
# Line 231  fontset_ref (fontset, c) Line 231  fontset_ref (fontset, c)
231            for (tail = FONTSET_CHARSET_ALIST (fontset);            for (tail = FONTSET_CHARSET_ALIST (fontset);
232                 CONSP (tail);  tail = XCDR (tail))                 CONSP (tail);  tail = XCDR (tail))
233              {              {
234                charset = CHARSET_FROM_ID (XCAR (XCAR (tail)));                charset = CHARSET_FROM_ID (XINT (XCAR (XCAR (tail))));
235                if (ENCODE_CHAR (charset, c) != CHARSET_INVALID_CODE (charset))                if (ENCODE_CHAR (charset, c) != CHARSET_INVALID_CODE (charset))
236                  {                  {
237                    elt = XCDR (XCAR (tail));                    elt = XCDR (XCAR (tail));
# Line 260  fontset_set (fontset, idx, elt) Line 260  fontset_set (fontset, idx, elt)
260      {      {
261        Lisp_Object id, slot, tail;        Lisp_Object id, slot, tail;
262                
263        id = make_number (CHARSET_SYMBOL_ID (idx));        id = CHARSET_SYMBOL_ID (idx);
264        if (id == charset_ascii)        if (XFASTINT (id) == charset_ascii)
265          Fset_char_table_range (fontset,          Fset_char_table_range (fontset,
266                                 Fcons (make_number (0), make_number (127)),                                 Fcons (make_number (0), make_number (127)),
267                                 elt);                                 elt);
# Line 559  fs_load_font (f, fontname) Line 559  fs_load_font (f, fontname)
559        if (STRINGP (XCAR (elt)) && CHARSETP (XCDR (elt))        if (STRINGP (XCAR (elt)) && CHARSETP (XCDR (elt))
560            && fast_c_string_match_ignore_case (XCAR (elt), fontname) >= 0)            && fast_c_string_match_ignore_case (XCAR (elt), fontname) >= 0)
561          {          {
562            fontp->charset = CHARSET_SYMBOL_ID (XCDR (elt));            fontp->charset = XFASTINT (CHARSET_SYMBOL_ID (XCDR (elt)));
563            break;            break;
564          }          }
565      }      }
# Line 1173  If FRAME is omitted, it defaults to the Line 1173  If FRAME is omitted, it defaults to the
1173      {      {
1174        elt = XCAR (tail);        elt = XCAR (tail);
1175        elt = Fcons ((INTEGERP (XCAR (elt))        elt = Fcons ((INTEGERP (XCAR (elt))
1176                      ? CHARSET_NAME (CHARSET_FROM_ID (XCAR (elt)))                      ? CHARSET_NAME (CHARSET_FROM_ID (XFASTINT (XCAR (elt))))
1177                      : XCAR (elt)),                      : XCAR (elt)),
1178                     Fcons (XCDR (elt), Qnil));                     Fcons (XCDR (elt), Qnil));
1179        XSETCDR (XCAR (val), Fcons (elt, Qnil));        XSETCDR (XCAR (val), Fcons (elt, Qnil));

Legend:
Removed from v.1.65.2.5  
changed lines
  Added in v.1.65.2.6

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