Mercurial > hg > xemacs-beta
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')