1 /* Primitives for word-abbrev mode.
2 Copyright (C) 1985, 1986, 1993, 1996, 1998, 2001, 2002, 2003, 2004,
3 2005, 2006, 2007 Free Software Foundation, Inc.
5 This file is part of GNU Emacs.
7 GNU Emacs is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 2, or (at your option)
12 GNU Emacs is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with GNU Emacs; see the file COPYING. If not, write to
19 the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
20 Boston, MA 02110-1301, USA. */
30 #include "character.h"
33 /* An abbrev table is an obarray.
34 Each defined abbrev is represented by a symbol in that obarray
35 whose print name is the abbreviation.
36 The symbol's value is a string which is the expansion.
37 If its function definition is non-nil, it is called
38 after the expansion is done.
39 The plist slot of the abbrev symbol is its usage count. */
41 /* List of all abbrev-table name symbols:
42 symbols whose values are abbrev tables. */
44 Lisp_Object Vabbrev_table_name_list
;
46 /* The table of global abbrevs. These are in effect
47 in any buffer in which abbrev mode is turned on. */
49 Lisp_Object Vglobal_abbrev_table
;
51 /* The local abbrev table used by default (in Fundamental Mode buffers) */
53 Lisp_Object Vfundamental_mode_abbrev_table
;
55 /* Set nonzero when an abbrev definition is changed */
61 /* Non-nil => use this location as the start of abbrev to expand
62 (rather than taking the word before point as the abbrev) */
64 Lisp_Object Vabbrev_start_location
;
66 /* Buffer that Vabbrev_start_location applies to */
67 Lisp_Object Vabbrev_start_location_buffer
;
69 /* The symbol representing the abbrev most recently expanded */
71 Lisp_Object Vlast_abbrev
;
73 /* A string for the actual text of the abbrev most recently expanded.
74 This has more info than Vlast_abbrev since case is significant. */
76 Lisp_Object Vlast_abbrev_text
;
78 /* Character address of start of last abbrev expanded */
80 EMACS_INT last_abbrev_point
;
82 /* Hook to run before expanding any abbrev. */
84 Lisp_Object Vpre_abbrev_expand_hook
, Qpre_abbrev_expand_hook
;
86 Lisp_Object Qsystem_type
, Qcount
, Qforce
;
88 DEFUN ("make-abbrev-table", Fmake_abbrev_table
, Smake_abbrev_table
, 0, 0, 0,
89 doc
: /* Create a new, empty abbrev table object. */)
92 /* The value 59 is arbitrary chosen prime number. */
93 return Fmake_vector (make_number (59), make_number (0));
96 DEFUN ("clear-abbrev-table", Fclear_abbrev_table
, Sclear_abbrev_table
, 1, 1, 0,
97 doc
: /* Undefine all abbrevs in abbrev table TABLE, leaving it empty. */)
103 CHECK_VECTOR (table
);
104 size
= XVECTOR (table
)->size
;
106 for (i
= 0; i
< size
; i
++)
107 XVECTOR (table
)->contents
[i
] = make_number (0);
111 DEFUN ("define-abbrev", Fdefine_abbrev
, Sdefine_abbrev
, 3, 6, 0,
112 doc
: /* Define an abbrev in TABLE named NAME, to expand to EXPANSION and call HOOK.
113 NAME must be a string, and should be lower-case.
114 EXPANSION should usually be a string.
115 To undefine an abbrev, define it with EXPANSION = nil.
116 If HOOK is non-nil, it should be a function of no arguments;
117 it is called after EXPANSION is inserted.
118 If EXPANSION is not a string, the abbrev is a special one,
119 which does not expand in the usual way but only runs HOOK.
121 COUNT, if specified, gives the initial value for the abbrev's
122 usage-count, which is incremented each time the abbrev is used.
123 \(The default is zero.)
125 SYSTEM-FLAG, if non-nil, says that this is a "system" abbreviation
126 which should not be saved in the user's abbreviation file.
127 Unless SYSTEM-FLAG is `force', a system abbreviation will not
128 overwrite a non-system abbreviation of the same name. */)
129 (table
, name
, expansion
, hook
, count
, system_flag
)
130 Lisp_Object table
, name
, expansion
, hook
, count
, system_flag
;
132 Lisp_Object sym
, oexp
, ohook
, tem
;
133 CHECK_VECTOR (table
);
136 /* If defining a system abbrev, do not overwrite a non-system abbrev
137 of the same name, unless 'force is used. */
138 if (!NILP (system_flag
) && !EQ (system_flag
, Qforce
))
140 sym
= Fintern_soft (name
, table
);
142 if (!NILP (SYMBOL_VALUE (sym
)) &&
143 NILP (Fplist_get (XSYMBOL (sym
)->plist
, Qsystem_type
))) return Qnil
;
147 count
= make_number (0);
149 CHECK_NUMBER (count
);
151 sym
= Fintern (name
, table
);
153 oexp
= SYMBOL_VALUE (sym
);
154 ohook
= XSYMBOL (sym
)->function
;
155 if (!((EQ (oexp
, expansion
)
156 || (STRINGP (oexp
) && STRINGP (expansion
)
157 && (tem
= Fstring_equal (oexp
, expansion
), !NILP (tem
))))
160 || (tem
= Fequal (ohook
, hook
), !NILP (tem
))))
161 && NILP (system_flag
))
164 Fset (sym
, expansion
);
167 if (! NILP (system_flag
))
168 Fsetplist (sym
, list4 (Qcount
, count
, Qsystem_type
, system_flag
));
170 Fsetplist (sym
, count
);
175 DEFUN ("define-global-abbrev", Fdefine_global_abbrev
, Sdefine_global_abbrev
, 2, 2,
176 "sDefine global abbrev: \nsExpansion for %s: ",
177 doc
: /* Define ABBREV as a global abbreviation for EXPANSION. */)
179 Lisp_Object abbrev
, expansion
;
181 Fdefine_abbrev (Vglobal_abbrev_table
, Fdowncase (abbrev
),
182 expansion
, Qnil
, make_number (0), Qnil
);
186 DEFUN ("define-mode-abbrev", Fdefine_mode_abbrev
, Sdefine_mode_abbrev
, 2, 2,
187 "sDefine mode abbrev: \nsExpansion for %s: ",
188 doc
: /* Define ABBREV as a mode-specific abbreviation for EXPANSION. */)
190 Lisp_Object abbrev
, expansion
;
192 if (NILP (current_buffer
->abbrev_table
))
193 error ("Major mode has no abbrev table");
195 Fdefine_abbrev (current_buffer
->abbrev_table
, Fdowncase (abbrev
),
196 expansion
, Qnil
, make_number (0), Qnil
);
200 DEFUN ("abbrev-symbol", Fabbrev_symbol
, Sabbrev_symbol
, 1, 2, 0,
201 doc
: /* Return the symbol representing abbrev named ABBREV.
202 This symbol's name is ABBREV, but it is not the canonical symbol of that name;
203 it is interned in an abbrev-table rather than the normal obarray.
204 The value is nil if that abbrev is not defined.
205 Optional second arg TABLE is abbrev table to look it up in.
206 The default is to try buffer's mode-specific abbrev table, then global table. */)
208 Lisp_Object abbrev
, table
;
211 CHECK_STRING (abbrev
);
213 sym
= Fintern_soft (abbrev
, table
);
217 if (!NILP (current_buffer
->abbrev_table
))
218 sym
= Fintern_soft (abbrev
, current_buffer
->abbrev_table
);
219 if (NILP (SYMBOL_VALUE (sym
)))
222 sym
= Fintern_soft (abbrev
, Vglobal_abbrev_table
);
224 if (NILP (SYMBOL_VALUE (sym
)))
229 DEFUN ("abbrev-expansion", Fabbrev_expansion
, Sabbrev_expansion
, 1, 2, 0,
230 doc
: /* Return the string that ABBREV expands into in the current buffer.
231 Optionally specify an abbrev table as second arg;
232 then ABBREV is looked up in that table only. */)
234 Lisp_Object abbrev
, table
;
237 sym
= Fabbrev_symbol (abbrev
, table
);
238 if (NILP (sym
)) return sym
;
239 return Fsymbol_value (sym
);
242 /* Expand the word before point, if it is an abbrev.
243 Returns 1 if an expansion is done. */
245 DEFUN ("expand-abbrev", Fexpand_abbrev
, Sexpand_abbrev
, 0, 0, "",
246 doc
: /* Expand the abbrev before point, if there is an abbrev there.
247 Effective when explicitly called even when `abbrev-mode' is nil.
248 Returns the abbrev symbol, if expansion took place. */)
251 register char *buffer
, *p
;
252 int wordstart
, wordend
;
253 register int wordstart_byte
, wordend_byte
, idx
, idx_byte
;
255 int uccount
= 0, lccount
= 0;
256 register Lisp_Object sym
;
257 Lisp_Object expansion
, hook
, tem
;
259 int multibyte
= ! NILP (current_buffer
->enable_multibyte_characters
);
263 Frun_hooks (1, &Qpre_abbrev_expand_hook
);
266 if (!(BUFFERP (Vabbrev_start_location_buffer
)
267 && XBUFFER (Vabbrev_start_location_buffer
) == current_buffer
))
268 Vabbrev_start_location
= Qnil
;
269 if (!NILP (Vabbrev_start_location
))
271 tem
= Vabbrev_start_location
;
272 CHECK_NUMBER_COERCE_MARKER (tem
);
273 wordstart
= XINT (tem
);
274 Vabbrev_start_location
= Qnil
;
275 if (wordstart
< BEGV
|| wordstart
> ZV
)
277 if (wordstart
&& wordstart
!= ZV
)
279 wordstart_byte
= CHAR_TO_BYTE (wordstart
);
280 if (FETCH_BYTE (wordstart_byte
) == '-')
281 del_range (wordstart
, wordstart
+ 1);
285 wordstart
= scan_words (PT
, -1);
290 wordstart_byte
= CHAR_TO_BYTE (wordstart
);
291 wordend
= scan_words (wordstart
, 1);
298 wordend_byte
= CHAR_TO_BYTE (wordend
);
299 whitecnt
= PT
- wordend
;
300 if (wordend
<= wordstart
)
303 p
= buffer
= (char *) alloca (wordend_byte
- wordstart_byte
);
305 for (idx
= wordstart
, idx_byte
= wordstart_byte
; idx
< wordend
; )
311 FETCH_CHAR_ADVANCE (c
, idx
, idx_byte
);
315 c
= FETCH_BYTE (idx_byte
);
320 c
= DOWNCASE (c
), uccount
++;
321 else if (! NOCASEP (c
))
324 p
+= CHAR_STRING (c
, p
);
329 if (VECTORP (current_buffer
->abbrev_table
))
330 sym
= oblookup (current_buffer
->abbrev_table
, buffer
,
331 wordend
- wordstart
, p
- buffer
);
333 XSETFASTINT (sym
, 0);
335 if (INTEGERP (sym
) || NILP (SYMBOL_VALUE (sym
)))
336 sym
= oblookup (Vglobal_abbrev_table
, buffer
,
337 wordend
- wordstart
, p
- buffer
);
338 if (INTEGERP (sym
) || NILP (SYMBOL_VALUE (sym
)))
341 if (INTERACTIVE
&& !EQ (minibuf_window
, selected_window
))
343 /* Add an undo boundary, in case we are doing this for
344 a self-inserting command which has avoided making one so far. */
350 = Fbuffer_substring (make_number (wordstart
), make_number (wordend
));
352 /* Now sym is the abbrev symbol. */
355 last_abbrev_point
= wordstart
;
357 /* Increment use count. */
358 if (INTEGERP (XSYMBOL (sym
)->plist
))
359 XSETINT (XSYMBOL (sym
)->plist
,
360 XINT (XSYMBOL (sym
)->plist
) + 1);
361 else if (INTEGERP (tem
= Fget (sym
, Qcount
)))
362 Fput (sym
, Qcount
, make_number (XINT (tem
) + 1));
364 /* If this abbrev has an expansion, delete the abbrev
365 and insert the expansion. */
366 expansion
= SYMBOL_VALUE (sym
);
367 if (STRINGP (expansion
))
371 insert_from_string (expansion
, 0, 0, SCHARS (expansion
),
372 SBYTES (expansion
), 1);
373 del_range_both (PT
, PT_BYTE
,
374 wordend
+ (PT
- wordstart
),
375 wordend_byte
+ (PT_BYTE
- wordstart_byte
),
378 SET_PT (PT
+ whitecnt
);
380 if (uccount
&& !lccount
)
382 /* Abbrev was all caps */
383 /* If expansion is multiple words, normally capitalize each word */
384 /* This used to be if (!... && ... >= ...) Fcapitalize; else Fupcase
385 but Megatest 68000 compiler can't handle that */
386 if (!abbrev_all_caps
)
387 if (scan_words (PT
, -1) > scan_words (wordstart
, 1))
389 Fupcase_initials_region (make_number (wordstart
),
393 /* If expansion is one word, or if user says so, upcase it all. */
394 Fupcase_region (make_number (wordstart
), make_number (PT
));
399 /* Abbrev included some caps. Cap first initial of expansion */
400 int pos
= wordstart_byte
;
402 /* Find the initial. */
405 && SYNTAX (FETCH_MULTIBYTE_CHAR (pos
)) != Sword
)
409 && (SYNTAX (*BUF_BYTE_ADDRESS (current_buffer
, pos
))
413 /* Change just that. */
414 pos
= BYTE_TO_CHAR (pos
);
415 Fupcase_initials_region (make_number (pos
), make_number (pos
+ 1));
419 hook
= XSYMBOL (sym
)->function
;
422 Lisp_Object expanded
, prop
;
424 /* If the abbrev has a hook function, run it. */
425 expanded
= call0 (hook
);
427 /* In addition, if the hook function is a symbol with
428 a non-nil `no-self-insert' property, let the value it returned
429 specify whether we consider that an expansion took place. If
430 it returns nil, no expansion has been done. */
434 && (prop
= Fget (hook
, intern ("no-self-insert")),
442 DEFUN ("unexpand-abbrev", Funexpand_abbrev
, Sunexpand_abbrev
, 0, 0, "",
443 doc
: /* Undo the expansion of the last abbrev that expanded.
444 This differs from ordinary undo in that other editing done since then
450 if (last_abbrev_point
< BEGV
451 || last_abbrev_point
> ZV
)
453 SET_PT (last_abbrev_point
);
454 if (STRINGP (Vlast_abbrev_text
))
456 /* This isn't correct if Vlast_abbrev->function was used
457 to do the expansion */
461 val
= SYMBOL_VALUE (Vlast_abbrev
);
463 error ("Value of `abbrev-symbol' must be a string");
465 del_range_byte (PT_BYTE
, PT_BYTE
+ SBYTES (val
), 1);
466 /* Don't inherit properties here; just copy from old contents. */
467 insert_from_string (Vlast_abbrev_text
, 0, 0,
468 SCHARS (Vlast_abbrev_text
),
469 SBYTES (Vlast_abbrev_text
), 0);
470 Vlast_abbrev_text
= Qnil
;
471 /* Total number of characters deleted. */
472 adjust
= ZV
- zv_before
;
474 SET_PT (last_abbrev_point
< opoint
? opoint
+ adjust
: opoint
);
479 write_abbrev (sym
, stream
)
480 Lisp_Object sym
, stream
;
482 Lisp_Object name
, count
, system_flag
;
484 if (INTEGERP (XSYMBOL (sym
)->plist
))
486 count
= XSYMBOL (sym
)->plist
;
491 count
= Fget (sym
, Qcount
);
492 system_flag
= Fget (sym
, Qsystem_type
);
495 if (NILP (SYMBOL_VALUE (sym
)) || ! NILP (system_flag
))
499 name
= SYMBOL_NAME (sym
);
500 Fprin1 (name
, stream
);
502 Fprin1 (SYMBOL_VALUE (sym
), stream
);
504 Fprin1 (XSYMBOL (sym
)->function
, stream
);
506 Fprin1 (count
, stream
);
511 describe_abbrev (sym
, stream
)
512 Lisp_Object sym
, stream
;
514 Lisp_Object one
, count
, system_flag
;
516 if (INTEGERP (XSYMBOL (sym
)->plist
))
518 count
= XSYMBOL (sym
)->plist
;
523 count
= Fget (sym
, Qcount
);
524 system_flag
= Fget (sym
, Qsystem_type
);
527 if (NILP (SYMBOL_VALUE (sym
)))
530 one
= make_number (1);
531 Fprin1 (Fsymbol_name (sym
), stream
);
533 if (!NILP (system_flag
))
535 insert_string (" (sys)");
536 Findent_to (make_number (20), one
);
539 Findent_to (make_number (15), one
);
541 Fprin1 (count
, stream
);
542 Findent_to (make_number (20), one
);
543 Fprin1 (SYMBOL_VALUE (sym
), stream
);
544 if (!NILP (XSYMBOL (sym
)->function
))
546 Findent_to (make_number (45), one
);
547 Fprin1 (XSYMBOL (sym
)->function
, stream
);
553 record_symbol (sym
, list
)
554 Lisp_Object sym
, list
;
556 XSETCDR (list
, Fcons (sym
, XCDR (list
)));
559 DEFUN ("insert-abbrev-table-description", Finsert_abbrev_table_description
,
560 Sinsert_abbrev_table_description
, 1, 2, 0,
561 doc
: /* Insert before point a full description of abbrev table named NAME.
562 NAME is a symbol whose value is an abbrev table.
563 If optional 2nd arg READABLE is non-nil, a human-readable description
564 is inserted. Otherwise the description is an expression,
565 a call to `define-abbrev-table', which would
566 define the abbrev table NAME exactly as it is currently defined.
568 Abbrevs marked as "system abbrevs" are normally omitted. However, if
569 READABLE is non-nil, they are listed. */)
571 Lisp_Object name
, readable
;
578 table
= Fsymbol_value (name
);
579 CHECK_VECTOR (table
);
581 XSETBUFFER (stream
, current_buffer
);
583 symbols
= Fcons (Qnil
, Qnil
);
584 map_obarray (table
, record_symbol
, symbols
);
585 symbols
= XCDR (symbols
);
586 symbols
= Fsort (symbols
, Qstring_lessp
);
588 if (!NILP (readable
))
591 Fprin1 (name
, stream
);
592 insert_string (")\n\n");
593 while (! NILP (symbols
))
595 describe_abbrev (XCAR (symbols
), stream
);
596 symbols
= XCDR (symbols
);
599 insert_string ("\n\n");
603 insert_string ("(define-abbrev-table '");
604 Fprin1 (name
, stream
);
605 insert_string (" '(\n");
606 while (! NILP (symbols
))
608 write_abbrev (XCAR (symbols
), stream
);
609 symbols
= XCDR (symbols
);
611 insert_string (" ))\n\n");
617 DEFUN ("define-abbrev-table", Fdefine_abbrev_table
, Sdefine_abbrev_table
,
619 doc
: /* Define TABLENAME (a symbol) as an abbrev table name.
620 Define abbrevs in it according to DEFINITIONS, which is a list of elements
621 of the form (ABBREVNAME EXPANSION HOOK USECOUNT SYSTEMFLAG).
622 \(If the list is shorter than that, omitted elements default to nil). */)
623 (tablename
, definitions
)
624 Lisp_Object tablename
, definitions
;
626 Lisp_Object name
, exp
, hook
, count
;
627 Lisp_Object table
, elt
, sys
;
629 CHECK_SYMBOL (tablename
);
630 table
= Fboundp (tablename
);
631 if (NILP (table
) || (table
= Fsymbol_value (tablename
), NILP (table
)))
633 table
= Fmake_abbrev_table ();
634 Fset (tablename
, table
);
635 Vabbrev_table_name_list
= Fcons (tablename
, Vabbrev_table_name_list
);
637 CHECK_VECTOR (table
);
639 for (; CONSP (definitions
); definitions
= XCDR (definitions
))
641 elt
= XCAR (definitions
);
642 name
= Fcar (elt
); elt
= Fcdr (elt
);
643 exp
= Fcar (elt
); elt
= Fcdr (elt
);
644 hook
= Fcar (elt
); elt
= Fcdr (elt
);
645 count
= Fcar (elt
); elt
= Fcdr (elt
);
647 Fdefine_abbrev (table
, name
, exp
, hook
, count
, sys
);
655 Qsystem_type
= intern ("system-type");
656 staticpro (&Qsystem_type
);
658 Qcount
= intern ("count");
661 Qforce
= intern ("force");
664 DEFVAR_LISP ("abbrev-table-name-list", &Vabbrev_table_name_list
,
665 doc
: /* List of symbols whose values are abbrev tables. */);
666 Vabbrev_table_name_list
= Fcons (intern ("fundamental-mode-abbrev-table"),
667 Fcons (intern ("global-abbrev-table"),
670 DEFVAR_LISP ("global-abbrev-table", &Vglobal_abbrev_table
,
671 doc
: /* The abbrev table whose abbrevs affect all buffers.
672 Each buffer may also have a local abbrev table.
673 If it does, the local table overrides the global one
674 for any particular abbrev defined in both. */);
675 Vglobal_abbrev_table
= Fmake_abbrev_table ();
677 DEFVAR_LISP ("fundamental-mode-abbrev-table", &Vfundamental_mode_abbrev_table
,
678 doc
: /* The abbrev table of mode-specific abbrevs for Fundamental Mode. */);
679 Vfundamental_mode_abbrev_table
= Fmake_abbrev_table ();
680 current_buffer
->abbrev_table
= Vfundamental_mode_abbrev_table
;
681 buffer_defaults
.abbrev_table
= Vfundamental_mode_abbrev_table
;
683 DEFVAR_LISP ("last-abbrev", &Vlast_abbrev
,
684 doc
: /* The abbrev-symbol of the last abbrev expanded. See `abbrev-symbol'. */);
686 DEFVAR_LISP ("last-abbrev-text", &Vlast_abbrev_text
,
687 doc
: /* The exact text of the last abbrev expanded.
688 A value of nil means the abbrev has already been unexpanded. */);
690 DEFVAR_INT ("last-abbrev-location", &last_abbrev_point
,
691 doc
: /* The location of the start of the last abbrev expanded. */);
694 Vlast_abbrev_text
= Qnil
;
695 last_abbrev_point
= 0;
697 DEFVAR_LISP ("abbrev-start-location", &Vabbrev_start_location
,
698 doc
: /* Buffer position for `expand-abbrev' to use as the start of the abbrev.
699 When nil, use the word before point as the abbrev.
700 Calling `expand-abbrev' sets this to nil. */);
701 Vabbrev_start_location
= Qnil
;
703 DEFVAR_LISP ("abbrev-start-location-buffer", &Vabbrev_start_location_buffer
,
704 doc
: /* Buffer that `abbrev-start-location' has been set for.
705 Trying to expand an abbrev in any other buffer clears `abbrev-start-location'. */);
706 Vabbrev_start_location_buffer
= Qnil
;
708 DEFVAR_PER_BUFFER ("local-abbrev-table", ¤t_buffer
->abbrev_table
, Qnil
,
709 doc
: /* Local (mode-specific) abbrev table of current buffer. */);
711 DEFVAR_BOOL ("abbrevs-changed", &abbrevs_changed
,
712 doc
: /* Set non-nil by defining or altering any word abbrevs.
713 This causes `save-some-buffers' to offer to save the abbrevs. */);
716 DEFVAR_BOOL ("abbrev-all-caps", &abbrev_all_caps
,
717 doc
: /* *Set non-nil means expand multi-word abbrevs all caps if abbrev was so. */);
720 DEFVAR_LISP ("pre-abbrev-expand-hook", &Vpre_abbrev_expand_hook
,
721 doc
: /* Function or functions to be called before abbrev expansion is done.
722 This is the first thing that `expand-abbrev' does, and so this may change
723 the current abbrev table before abbrev lookup happens. */);
724 Vpre_abbrev_expand_hook
= Qnil
;
725 Qpre_abbrev_expand_hook
= intern ("pre-abbrev-expand-hook");
726 staticpro (&Qpre_abbrev_expand_hook
);
728 defsubr (&Smake_abbrev_table
);
729 defsubr (&Sclear_abbrev_table
);
730 defsubr (&Sdefine_abbrev
);
731 defsubr (&Sdefine_global_abbrev
);
732 defsubr (&Sdefine_mode_abbrev
);
733 defsubr (&Sabbrev_expansion
);
734 defsubr (&Sabbrev_symbol
);
735 defsubr (&Sexpand_abbrev
);
736 defsubr (&Sunexpand_abbrev
);
737 defsubr (&Sinsert_abbrev_table_description
);
738 defsubr (&Sdefine_abbrev_table
);
741 /* arch-tag: b721db69-f633-44a8-a361-c275acbdad7d
742 (do not change this comment) */