diff options
| author | Richard M. Stallman | 1994-03-10 17:22:59 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-03-10 17:22:59 +0000 |
| commit | d7846e08916ee27de2dabec62015cd4c7b34d1b1 (patch) | |
| tree | 709549b5883f32dd737452d971fa60e78a166f62 | |
| parent | fcb8a0c5102f21ae55a8e19297b30af04a7083c4 (diff) | |
| download | emacs-d7846e08916ee27de2dabec62015cd4c7b34d1b1.tar.gz emacs-d7846e08916ee27de2dabec62015cd4c7b34d1b1.zip | |
(byte-compile-track-mouse): Undo previous change,
but use byte-compile-top-level-body.
| -rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 12 |
1 files changed, 7 insertions, 5 deletions
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." | |||
| 2689 | (byte-compile-out 'byte-unbind 1)) | 2689 | (byte-compile-out 'byte-unbind 1)) |
| 2690 | 2690 | ||
| 2691 | (defun byte-compile-track-mouse (form) | 2691 | (defun byte-compile-track-mouse (form) |
| 2692 | (let ((byte-compile-bound-variables byte-compile-bound-variables)) | 2692 | (byte-compile-form |
| 2693 | (byte-compile-push-constant t) | 2693 | (list |
| 2694 | (byte-compile-variable-ref 'byte-varbind 'track-mouse) | 2694 | 'funcall |
| 2695 | (byte-compile-body-do-effect (cdr form)) | 2695 | (list 'quote |
| 2696 | (byte-compile-out 'byte-unbind 1))) | 2696 | (list 'lambda nil |
| 2697 | (cons 'track-mouse | ||
| 2698 | (byte-compile-top-level-body (cdr form)))))))) | ||
| 2697 | 2699 | ||
| 2698 | (defun byte-compile-condition-case (form) | 2700 | (defun byte-compile-condition-case (form) |
| 2699 | (let* ((var (nth 1 form)) | 2701 | (let* ((var (nth 1 form)) |