(internal_self_insert): Check sym by SYMBOLP before

calling XSYMBOL (sym).

(internal_self_insert): Check sym by SYMBOLP before
calling XSYMBOL (sym).
fb6b6049 · Kenichi Handa · 7b607b73 · fb6b6049 · fb6b6049
Commit fb6b6049 authored Jul 13, 2009 by Kenichi Handa
Hide whitespace changes
Inline Side-by-side

Showing with 6 additions and 1 deletion

src/ChangeLog src/ChangeLog +5 -0

src/cmds.c src/cmds.c +1 -1

No files found.
--- a/src/ChangeLog
+++ b/src/ChangeLog
+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

--- 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;