Commit 9317a902 authored by Richard M. Stallman's avatar Richard M. Stallman

(internal_self_insert): Check the property

on the hook, not on the abbrev symbol.
parent 05a455e2
......@@ -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;
}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment