From 9317a902a2ad8ae248469e2e7e44c1613f5365d5 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 2 Jan 1997 02:30:33 +0000 Subject: [PATCH] (internal_self_insert): Check the property on the hook, not on the abbrev symbol. --- src/cmds.c | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/src/cmds.c b/src/cmds.c index 2e6464bf0ce..db05b38460e 100644 --- a/src/cmds.c +++ b/src/cmds.c @@ -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; }