Mercurial > hg > xemacs-beta

diff lisp/symbols.el @ 430:a5df635868b2 r21-2-23

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-23
author cvs
date Mon, 13 Aug 2007 11:29:08 +0200
parents 74fd4e045ea6
children 697ef44129c6 7039e6323819
line wrap: on
line diff
--- a/lisp/symbols.el	Mon Aug 13 11:28:16 2007 +0200
+++ b/lisp/symbols.el	Mon Aug 13 11:29:08 2007 +0200
@@ -124,7 +124,7 @@
   (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)))