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

Diff of /emacs/src/character.c

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

revision 1.1.2.8 by handa, Mon Jul 22 06:46:08 2002 UTC revision 1.1.2.9 by handa, Fri Jul 26 06:19:03 2002 UTC
# Line 77  Lisp_Object Vchar_direction_table; Line 77  Lisp_Object Vchar_direction_table;
77  unsigned char *_fetch_multibyte_char_p;  unsigned char *_fetch_multibyte_char_p;
78  int _fetch_multibyte_char_len;  int _fetch_multibyte_char_len;
79    
80  /* Alist of scripts vs character ranges.  */  /* Char table of scripts.  */
81  Lisp_Object Vscript_alist;  Lisp_Object Vchar_script_table;
82    
83    static Lisp_Object Qchar_script_table;
84    
85    
86    
87    
# Line 920  A char-table for width (columns) of each Line 923  A char-table for width (columns) of each
923                 doc: /* A char-table for each printable character.  */);                 doc: /* A char-table for each printable character.  */);
924    Vprintable_chars = Fmake_char_table (Qnil, Qnil);    Vprintable_chars = Fmake_char_table (Qnil, Qnil);
925    
926    DEFVAR_LISP ("script-alist", &Vscript_alist,    DEFVAR_LISP ("char-script-table", &Vchar_script_table,
927                 doc: /* Alist of scripts vs the corresponding character ranges.                 doc: /* Char table of script symbols.
928  Each element has this form:  It has one extra slot whose value is a list of script symbols.  */);
929          ( SCRIPT (FROM-1 . TO-1) (FROM-2 . TO-2) ...)  
930  SCRIPT is a symbol representing a script name.    /* Intern this now in case it isn't already done.
931  FROM-n and TO-n specifies ranges of characters that belongs to SCRIPT.  */);       Setting this variable twice is harmless.
932    Vscript_alist = Qnil;       But don't staticpro it here--that is done in alloc.c.  */
933      Qchar_table_extra_slots = intern ("char-table-extra-slots");
934      DEFSYM (Qchar_script_table, "char-script-table");
935      Fput (Qchar_script_table, Qchar_table_extra_slots, make_number (1));
936      Vchar_script_table = Fmake_char_table (Qchar_script_table, Qnil);
937  }  }
938    
939  #endif /* emacs */  #endif /* emacs */

Legend:
Removed from v.1.1.2.8  
changed lines
  Added in v.1.1.2.9

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