X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fsymbols.el;h=d35937829d20c3f1ec262fbc6600839386b7c6d1;hb=fab488218d4dfcdd9918fb1bb2e0bfc2a19542fd;hp=c965f6cbc2862b7d31a2f194d5cfccc598dcc021;hpb=6883ee56ec887c2c48abe5b06b5e66aa74031910;p=chise%2Fxemacs-chise.git.1

diff --git a/lisp/symbols.el b/lisp/symbols.el
index c965f6c..d359378 100644
--- a/lisp/symbols.el
+++ b/lisp/symbols.el
@@ -124,7 +124,7 @@ each of the handlers."
   (let ((event (apply getfun harg args)))
        (if (event-live-p event)
 	   nil
-	 (setq event (allocate-event))
+	 (setq event (make-event))
 	 (apply setfun harg event args))
        (character-to-event value event)))