(internal_self_insert): Check sym by SYMBOLP before

calling XSYMBOL (sym).

diff --git a/src/ChangeLog b/src/ChangeLog
index 3d95298223709d8d9714decd390f6a47d2a26a3b..e9caf7f29e1eed0ad840820ac852656397217b4f 100644 (file)
--- 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-11  Eli Zaretskii  <eliz@gnu.org>
 
        * dired.c (directory_files_internal_w32_unwind) [WINDOWSNT]: New

diff --git a/src/cmds.c b/src/cmds.c
index 60916705c97f23d37eda455e44a4b0267047852b..33472b5710bb2567d84ecce8ec9e2a1e261d251f 100644 (file)
--- 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;