mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-04 19:10:37 -08:00
Code Issues Projects Releases Wiki Activity

(Qexpand_abbrev): New sym.

Browse source 
(syms_of_cmds): Initialize it.
(internal_self_insert): Use it to call expand-abbrev.
This commit is contained in:
Stefan Monnier 2003-07-08 21:25:35 +00:00
parent d775d486e9
commit 53abaf5417
1 changed files with 8 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

11
src/cmds.c
View file

@ -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 @@ Whichever character you type to run this command is inserted. */)
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 @@ internal_self_insert (c, noautofill)
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 @@ syms_of_cmds ()
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'. */);