mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-08 15:35:02 +00:00
Code Issues Releases Activity

(internal_self_insert): Check the property

Browse Source 
on the hook, not on the abbrev symbol.
This commit is contained in:
Richard M. Stallman 1997-01-02 02:30:33 +00:00
parent 05a455e217
commit 9317a902a2
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/cmds.c
View File

@ -325,11 +325,13 @@ internal_self_insert (c1, noautofill)
sym = Fexpand_abbrev ();
/* If we expanded an abbrev which has only a hook,
and the hook has a non-nil `no-self-insert' property,
return right away--don't really self-insert. */
if (! NILP (sym) && ! NILP (XSYMBOL (sym)->function))
if (! NILP (sym) && ! NILP (XSYMBOL (sym)->function)
&& SYMBOLP (XSYMBOL (sym)->function))
{
Lisp_Object prop;
prop = Fget (sym, intern ("no-self-insert"));
prop = Fget (XSYMBOL (sym)->function, intern ("no-self-insert"));
if (! NILP (prop))
return Qnil;
}