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

Diff of /emacs/src/ccl.c

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

revision 1.73 by pj, Sat Oct 20 20:48:47 2001 UTC revision 1.74 by pj, Fri Nov 2 20:19:18 2001 UTC
# Line 2056  programs.  */) Line 2056  programs.  */)
2056    if (setup_ccl_program (&ccl, ccl_prog) < 0)    if (setup_ccl_program (&ccl, ccl_prog) < 0)
2057      error ("Invalid CCL program");      error ("Invalid CCL program");
2058    
2059    CHECK_VECTOR (reg, 1);    CHECK_VECTOR (reg);
2060    if (XVECTOR (reg)->size != 8)    if (XVECTOR (reg)->size != 8)
2061      error ("Length of vector REGISTERS is not 8");      error ("Length of vector REGISTERS is not 8");
2062    
# Line 2114  See the documentation of `define-ccl-pro Line 2114  See the documentation of `define-ccl-pro
2114    if (setup_ccl_program (&ccl, ccl_prog) < 0)    if (setup_ccl_program (&ccl, ccl_prog) < 0)
2115      error ("Invalid CCL program");      error ("Invalid CCL program");
2116    
2117    CHECK_VECTOR (status, 1);    CHECK_VECTOR (status);
2118    if (XVECTOR (status)->size != 9)    if (XVECTOR (status)->size != 9)
2119      error ("Length of vector STATUS is not 9");      error ("Length of vector STATUS is not 9");
2120    CHECK_STRING (str, 2);    CHECK_STRING (str);
2121    
2122    GCPRO2 (status, str);    GCPRO2 (status, str);
2123    
# Line 2178  Return index number of the registered CC Line 2178  Return index number of the registered CC
2178    int idx;    int idx;
2179    Lisp_Object resolved;    Lisp_Object resolved;
2180    
2181    CHECK_SYMBOL (name, 0);    CHECK_SYMBOL (name);
2182    resolved = Qnil;    resolved = Qnil;
2183    if (!NILP (ccl_prog))    if (!NILP (ccl_prog))
2184      {      {
2185        CHECK_VECTOR (ccl_prog, 1);        CHECK_VECTOR (ccl_prog);
2186        resolved = resolve_symbol_ccl_program (ccl_prog);        resolved = resolve_symbol_ccl_program (ccl_prog);
2187        if (NILP (resolved))        if (NILP (resolved))
2188          error ("Error in CCL program");          error ("Error in CCL program");
# Line 2261  Return index number of the registered ma Line 2261  Return index number of the registered ma
2261    int i;    int i;
2262    Lisp_Object index;    Lisp_Object index;
2263    
2264    CHECK_SYMBOL (symbol, 0);    CHECK_SYMBOL (symbol);
2265    CHECK_VECTOR (map, 1);    CHECK_VECTOR (map);
2266        
2267    for (i = 0; i < len; i++)    for (i = 0; i < len; i++)
2268      {      {

Legend:
Removed from v.1.73  
changed lines
  Added in v.1.74

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