Commits

james  committed 4fa8f95

Change cl-push to push.

  • Participants
  • Parent commits fe2dc23

Comments (0)

Files changed (2)

+2004-06-28  Jerry James  <james@xemacs.org>
+
+	* lisp/xlib-xr.el (X-Event-define): Use push instead of cl-push.
+
 2004-05-14  Norbert Koch  <viteno@xemacs.org>
 
 	* Makefile (VERSION): XEmacs package 1.10 released.

File lisp/xlib-xr.el

 	fsym
 	forms)
 
-    (cl-push `(aset X-EventsList ,type ,descr) forms)
+    (push `(aset X-EventsList ,type ,descr) forms)
     (while dnames
       (when (car dnames)
 	(setq fsym (intern (concat "X-Event-" name "-" (symbol-name (car dnames)))))
-	(cl-push `(defsubst* ,fsym (ev)
-		       (nth ,offs (X-Event-evinfo ev)))
-		 forms))
+	(push `(defsubst* ,fsym (ev)
+		(nth ,offs (X-Event-evinfo ev)))
+	      forms))
       (setq offs (1+ offs))
       (setq dnames (cdr dnames)))