# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 762910071 0
# Node ID bc0db1c2790ef6c4c075e2c02e0bbfb733583ad6
# Parent  9f7708f75f171cd0e65b3c9340a31f5612a13445
(byte-compile-track-mouse): Handle >1 body form.
Generate code that binds track-mouse.

diff -r 9f7708f75f17 -r bc0db1c2790e lisp/emacs-lisp/bytecomp.el
--- a/lisp/emacs-lisp/bytecomp.el	Sat Mar 05 23:26:52 1994 +0000
+++ b/lisp/emacs-lisp/bytecomp.el	Sat Mar 05 23:27:51 1994 +0000
@@ -2689,13 +2689,11 @@
   (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))))))))
+  (let ((byte-compile-bound-variables byte-compile-bound-variables))
+    (byte-compile-push-constant t)
+    (byte-compile-variable-ref 'byte-varbind 'track-mouse)
+    (byte-compile-body-do-effect (cdr form))
+    (byte-compile-out 'byte-unbind 1)))
 
 (defun byte-compile-condition-case (form)
   (let* ((var (nth 1 form))