# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1057699535 0
# Node ID ff438bca7989be4d0d495fd54016e59d5345b8e7
# Parent  c23aefddb54a95fa251294d0dbcc824e52fe9e8f
(Qexpand_abbrev): New sym.
(syms_of_cmds): Initialize it.
(internal_self_insert): Use it to call expand-abbrev.

diff -r c23aefddb54a -r ff438bca7989 src/cmds.c
--- 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'.  */);