From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 10 Mar 1994 17:22:59 +0000 (+0000)
Subject: (byte-compile-track-mouse): Undo previous change,
X-Git-Tag: emacs-19.34~9559
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d7846e08916ee27de2dabec62015cd4c7b34d1b1;p=emacs.git

(byte-compile-track-mouse): Undo previous change,
but use byte-compile-top-level-body.
---

diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index 437c5da3340..be117d1184f 100644
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -2689,11 +2689,13 @@ If FORM is a lambda or a macro, byte-compile it as a function."
   (byte-compile-out 'byte-unbind 1))
 
 (defun byte-compile-track-mouse (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)))
+  (byte-compile-form
+   (list
+    'funcall
+    (list 'quote
+	  (list 'lambda nil
+		(cons 'track-mouse
+		      (byte-compile-top-level-body (cdr form))))))))
 
 (defun byte-compile-condition-case (form)
   (let* ((var (nth 1 form))