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

Diff of /emacs/src/casetab.c

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

revision 1.26 by pj, Sat Oct 20 20:42:13 2001 UTC revision 1.26.4.1 by miles, Fri Apr 4 06:20:57 2003 UTC
# Line 71  check_case_table (obj) Line 71  check_case_table (obj)
71    while (tem = Fcase_table_p (obj), NILP (tem))    while (tem = Fcase_table_p (obj), NILP (tem))
72      obj = wrong_type_argument (Qcase_table_p, obj);      obj = wrong_type_argument (Qcase_table_p, obj);
73    return (obj);    return (obj);
74  }    }
75    
76  DEFUN ("current-case-table", Fcurrent_case_table, Scurrent_case_table, 0, 0, 0,  DEFUN ("current-case-table", Fcurrent_case_table, Scurrent_case_table, 0, 0, 0,
77         doc: /* Return the case table of the current buffer.  */)         doc: /* Return the case table of the current buffer.  */)
# Line 158  set_case_table (table, standard) Line 158  set_case_table (table, standard)
158        XCHAR_TABLE (table)->extras[2] = eqv;        XCHAR_TABLE (table)->extras[2] = eqv;
159      }      }
160    
161      /* This is so set_image_of_range_1 in regex.c can find the EQV table.  */
162      XCHAR_TABLE (canon)->extras[2] = eqv;
163    
164    if (standard)    if (standard)
165      Vascii_downcase_table = table;      Vascii_downcase_table = table;
166    else    else

Legend:
Removed from v.1.26  
changed lines
  Added in v.1.26.4.1

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