97 |
{ |
{ |
98 |
int i, size; |
int i, size; |
99 |
|
|
100 |
CHECK_VECTOR (table, 0); |
CHECK_VECTOR (table); |
101 |
size = XVECTOR (table)->size; |
size = XVECTOR (table)->size; |
102 |
abbrevs_changed = 1; |
abbrevs_changed = 1; |
103 |
for (i = 0; i < size; i++) |
for (i = 0; i < size; i++) |
120 |
Lisp_Object table, name, expansion, hook, count; |
Lisp_Object table, name, expansion, hook, count; |
121 |
{ |
{ |
122 |
Lisp_Object sym, oexp, ohook, tem; |
Lisp_Object sym, oexp, ohook, tem; |
123 |
CHECK_VECTOR (table, 0); |
CHECK_VECTOR (table); |
124 |
CHECK_STRING (name, 1); |
CHECK_STRING (name); |
125 |
|
|
126 |
if (NILP (count)) |
if (NILP (count)) |
127 |
count = make_number (0); |
count = make_number (0); |
128 |
else |
else |
129 |
CHECK_NUMBER (count, 0); |
CHECK_NUMBER (count); |
130 |
|
|
131 |
sym = Fintern (name, table); |
sym = Fintern (name, table); |
132 |
|
|
183 |
Lisp_Object abbrev, table; |
Lisp_Object abbrev, table; |
184 |
{ |
{ |
185 |
Lisp_Object sym; |
Lisp_Object sym; |
186 |
CHECK_STRING (abbrev, 0); |
CHECK_STRING (abbrev); |
187 |
if (!NILP (table)) |
if (!NILP (table)) |
188 |
sym = Fintern_soft (abbrev, table); |
sym = Fintern_soft (abbrev, table); |
189 |
else |
else |
244 |
if (!NILP (Vabbrev_start_location)) |
if (!NILP (Vabbrev_start_location)) |
245 |
{ |
{ |
246 |
tem = Vabbrev_start_location; |
tem = Vabbrev_start_location; |
247 |
CHECK_NUMBER_COERCE_MARKER (tem, 0); |
CHECK_NUMBER_COERCE_MARKER (tem); |
248 |
wordstart = XINT (tem); |
wordstart = XINT (tem); |
249 |
Vabbrev_start_location = Qnil; |
Vabbrev_start_location = Qnil; |
250 |
if (wordstart < BEGV || wordstart > ZV) |
if (wordstart < BEGV || wordstart > ZV) |
479 |
Lisp_Object table; |
Lisp_Object table; |
480 |
Lisp_Object stream; |
Lisp_Object stream; |
481 |
|
|
482 |
CHECK_SYMBOL (name, 0); |
CHECK_SYMBOL (name); |
483 |
table = Fsymbol_value (name); |
table = Fsymbol_value (name); |
484 |
CHECK_VECTOR (table, 0); |
CHECK_VECTOR (table); |
485 |
|
|
486 |
XSETBUFFER (stream, current_buffer); |
XSETBUFFER (stream, current_buffer); |
487 |
|
|
516 |
Lisp_Object name, exp, hook, count; |
Lisp_Object name, exp, hook, count; |
517 |
Lisp_Object table, elt; |
Lisp_Object table, elt; |
518 |
|
|
519 |
CHECK_SYMBOL (tablename, 0); |
CHECK_SYMBOL (tablename); |
520 |
table = Fboundp (tablename); |
table = Fboundp (tablename); |
521 |
if (NILP (table) || (table = Fsymbol_value (tablename), NILP (table))) |
if (NILP (table) || (table = Fsymbol_value (tablename), NILP (table))) |
522 |
{ |
{ |
524 |
Fset (tablename, table); |
Fset (tablename, table); |
525 |
Vabbrev_table_name_list = Fcons (tablename, Vabbrev_table_name_list); |
Vabbrev_table_name_list = Fcons (tablename, Vabbrev_table_name_list); |
526 |
} |
} |
527 |
CHECK_VECTOR (table, 0); |
CHECK_VECTOR (table); |
528 |
|
|
529 |
for (; !NILP (definitions); definitions = Fcdr (definitions)) |
for (; !NILP (definitions); definitions = Fcdr (definitions)) |
530 |
{ |
{ |