From 755967a183b1ec96fe3f0edbd41083b18e1f2de9 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Mon, 13 Jul 2009 01:04:26 +0000 Subject: [PATCH] (internal_self_insert): Check sym by SYMBOLP before calling XSYMBOL (sym). --- src/ChangeLog | 5 +++++ src/cmds.c | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/src/ChangeLog b/src/ChangeLog index f56c5c6e441..3f9e6ca2ca7 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,8 @@ +2009-07-13 Kenichi Handa + + * cmds.c (internal_self_insert): Check sym by SYMBOLP before + calling XSYMBOL (sym). + 2009-07-10 Kenichi Handa * xftfont.c (xftfont_open): Fix typo: FC_RGBA->FC_HINT_STYLE. diff --git a/src/cmds.c b/src/cmds.c index 60916705c97..33472b5710b 100644 --- a/src/cmds.c +++ b/src/cmds.c @@ -492,7 +492,7 @@ internal_self_insert (c, noautofill) /* 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. */ - if (! NILP (sym) && ! NILP (XSYMBOL (sym)->function) + if (SYMBOLP (sym) && ! NILP (sym) && ! NILP (XSYMBOL (sym)->function) && SYMBOLP (XSYMBOL (sym)->function)) { Lisp_Object prop; -- 2.39.5