Mercurial > emacs
changeset 51819:ff438bca7989
(Qexpand_abbrev): New sym.
(syms_of_cmds): Initialize it.
(internal_self_insert): Use it to call expand-abbrev.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Tue, 08 Jul 2003 21:25:35 +0000 |
| parents | c23aefddb54a |
| children | bdec96ab4706 |
| files | src/cmds.c |
| diffstat | 1 files changed, 8 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/src/cmds.c Tue Jul 08 16:57:15 2003 +0000 +++ b/src/cmds.c Tue Jul 08 21:25:35 2003 +0000 @@ -1,5 +1,6 @@ /* Simple built-in editing commands. - Copyright (C) 1985, 93, 94, 95, 96, 97, 1998, 2001, 02 Free Software Foundation, Inc. + Copyright (C) 1985, 93, 94, 95, 96, 97, 1998, 2001, 02, 03 + Free Software Foundation, Inc. This file is part of GNU Emacs. @@ -368,12 +369,13 @@ return 0. A value of 1 indicates this *might* not have been simple. A value of 2 means this did things that call for an undo boundary. */ +static Lisp_Object Qexpand_abbrev; + int internal_self_insert (c, noautofill) int c; int noautofill; { - extern Lisp_Object Fexpand_abbrev (); int hairy = 0; Lisp_Object tem; register enum syntaxcode synt; @@ -477,7 +479,7 @@ int modiff = MODIFF; Lisp_Object sym; - sym = Fexpand_abbrev (); + sym = call0 (Qexpand_abbrev); /* If we expanded an abbrev which has a hook, and the hook has a non-nil `no-self-insert' property, @@ -565,6 +567,9 @@ Qoverwrite_mode_binary = intern ("overwrite-mode-binary"); staticpro (&Qoverwrite_mode_binary); + Qexpand_abbrev = intern ("expand-abbrev"); + staticpro (&Qexpand_abbrev); + DEFVAR_LISP ("self-insert-face", &Vself_insert_face, doc: /* If non-nil, set the face of the next self-inserting character to this. See also `self-insert-face-command'. */);