mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-06 03:40:56 -08:00
Code Issues Projects Releases Wiki 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
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;