diff src/cmds.c @ 276:6330739388db r21-0b36

Import from CVS: tag r21-0b36
author cvs
date Mon, 13 Aug 2007 10:30:37 +0200
parents c5d627a313b1
children 57709be46d1b
line wrap: on
line diff
--- a/src/cmds.c	Mon Aug 13 10:29:43 2007 +0200
+++ b/src/cmds.c	Mon Aug 13 10:30:37 2007 +0200
@@ -371,18 +371,20 @@
 
       if (WORD_SYNTAX_P (syntax_table, c2))
 	{
+#if 1
+	  Fexpand_abbrev ();
+#else  /* FSFmacs */
 	  Lisp_Object sym = Fexpand_abbrev ();
 
+	  /* I think this is too bogus to add.  The function should
+             have a way of examining the character to be inserted, so
+             it can decide whether to insert it or not.  We should
+             design it better than that.  */
+
 	  /* Here FSFmacs remembers MODIFF, compares it after
-             Fexpand_abbrev() finishes, and updates HAIRY.
+             Fexpand_abbrev() finishes, and updates HAIRY.  */
 
-	     A synch with Emacs 20.2.  I'm not sure if it's too bogus
-	     to copy, but I guess it can be useful.  If we expanded an
-	     abbrev which has a hook, and the hook has a non-nil
-	     `no-self-insert' property, return right away -- don't
-	     really self-insert.
-
-	     NOTE: we cannot simply check for Vlast_abbrev, because
+	  /* NOTE: we cannot simply check for Vlast_abbrev, because
 	     Fexpand_abbrev() can bail out before setting it to
 	     anything meaningful, leaving us stuck with an old value.
 	     Thus Fexpand_abbrev() was extended to return the actual
@@ -396,6 +398,7 @@
 	      if (!NILP (prop))
 		return;
 	    }
+#endif /* FSFmacs */
         }
     }
   if ((c1 == ' ' || c1 == '\n')