From: Kenichi Handa <handa@m17n.org>
Date: Mon, 13 Jul 2009 01:04:26 +0000 (+0000)
Subject: (internal_self_insert): Check sym by SYMBOLP before
X-Git-Tag: emacs-23.1~88
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=755967a183b1ec96fe3f0edbd41083b18e1f2de9;p=emacs.git

(internal_self_insert): Check sym by SYMBOLP before
calling XSYMBOL (sym).
---

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  <handa@m17n.org>
+
+	* cmds.c (internal_self_insert): Check sym by SYMBOLP before
+	calling XSYMBOL (sym).
+
 2009-07-10  Kenichi Handa  <handa@m17n.org>
 
 	* 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;