mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-04 08:47:11 +00:00
Code Issues Releases Activity

(internal_self_insert): Check sym by SYMBOLP before

Browse Source 
calling XSYMBOL (sym).
This commit is contained in:
Kenichi Handa 2009-07-13 01:03:28 +00:00
parent 7b607b7356
commit fb6b6049d8
2 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/ChangeLog
View File

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

2
src/cmds.c
View File

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