Mercurial > emacs
changeset 6293:649c8a929063
(byte-compile-track-mouse): Undo previous change,
but use byte-compile-top-level-body.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 10 Mar 1994 17:22:59 +0000 |
| parents | a52a879c385c |
| children | 6044f2615082 |
| files | lisp/emacs-lisp/bytecomp.el |
| diffstat | 1 files changed, 7 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emacs-lisp/bytecomp.el Thu Mar 10 17:08:48 1994 +0000 +++ b/lisp/emacs-lisp/bytecomp.el Thu Mar 10 17:22:59 1994 +0000 @@ -2689,11 +2689,13 @@ (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))