(gt-pj-1-and-jis-x0208-1990-different-code-points): Add #x4879 and

[chise/xemacs-chise.git-] / lisp / symbols.el

diff --git a/lisp/symbols.el b/lisp/symbols.el
index c965f6c..d359378 100644 (file)
--- 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)))