mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-23 22:20:24 -08:00
Code Issues Projects Releases Wiki Activity

(byte-compile-track-mouse): Undo previous change,

Browse source 
but use byte-compile-top-level-body.
This commit is contained in:
Richard M. Stallman 1994-03-10 17:22:59 +00:00
parent fcb8a0c510
commit d7846e0891
1 changed files with 7 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

12
lisp/emacs-lisp/bytecomp.el
View file

@ -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))