# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 737495235 0
# Node ID e2f296263868316ac34cce9e2c8fd439b0284560
# Parent  ae18dabac4653ed7dfbd0fbcd5857930c4c94e35
(byte-compile-track-mouse): New function.
This is a kludge; track-mouse must be compiled better.

diff -r ae18dabac465 -r e2f296263868 lisp/emacs-lisp/bytecomp.el
--- a/lisp/emacs-lisp/bytecomp.el	Sat May 15 19:00:34 1993 +0000
+++ b/lisp/emacs-lisp/bytecomp.el	Sat May 15 19:47:15 1993 +0000
@@ -2610,6 +2610,7 @@
 (byte-defop-compiler-1 save-restriction)
 (byte-defop-compiler-1 save-window-excursion)
 (byte-defop-compiler-1 with-output-to-temp-buffer)
+(byte-defop-compiler-1 track-mouse)
 
 (defun byte-compile-catch (form)
   (byte-compile-form (car (cdr form)))
@@ -2624,6 +2625,15 @@
   (byte-compile-form-do-effect (car (cdr form)))
   (byte-compile-out 'byte-unbind 1))
 
+(defun byte-compile-track-mouse (form)
+  (byte-compile-form
+   (list
+    'funcall
+    (list 'quote
+	  (list 'lambda nil
+		(list 'track-mouse
+		      (byte-compile-top-level (nth 1 form))))))))
+
 (defun byte-compile-condition-case (form)
   (let* ((var (nth 1 form))
 	 (byte-compile-bound-variables