(M-48305): Separate J78-7368, J83-7368, K0-5C2F and J90-7368.

[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)))