From: Richard M. Stallman Date: Thu, 2 Jan 1997 02:30:33 +0000 (+0000) Subject: (internal_self_insert): Check the property X-Git-Tag: emacs-20.1~3135 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9317a902a2ad8ae248469e2e7e44c1613f5365d5;p=emacs.git (internal_self_insert): Check the property on the hook, not on the abbrev symbol. --- 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; }