diff src/cmds.c @ 16748:64f315c0e3f4

(internal_self_insert): If the abbrev has no expansion, just a hook, inhibit the insertion of the character.

--- a/src/cmds.c	Thu Dec 26 20:53:54 1996 +0000
+++ b/src/cmds.c	Thu Dec 26 20:54:22 1996 +0000
@@ -320,10 +320,20 @@
       && PT > BEGV && SYNTAX (FETCH_CHAR (PT - 1)) == Sword)
     {
       int modiff = MODIFF;
-      Fexpand_abbrev ();
-      /* We can't trust the value of Fexpand_abbrev,
-	 but if Fexpand_abbrev changed the buffer,
-	 assume it expanded something.  */
+      Lisp_Object sym;
+
+      sym = Fexpand_abbrev ();
+
+      /* If we expanded an abbrev which has only a hook,
+	 return right away--don't really self-insert.  */
+      if (! NILP (sym) && ! NILP (XSYMBOL (sym)->function))
+	{
+	  Lisp_Object prop;
+	  prop = Fget (sym, intern ("no-self-insert"));
+	  if (! NILP (prop))
+	    return Qnil;
+	}
+
       if (MODIFF != modiff)
 	hairy = 2;
     }