Commit 6e8d0db7 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(byte-compile-track-mouse): New function.

This is a kludge; track-mouse must be compiled better.
parent 356ba514
......@@ -2610,6 +2610,7 @@ If FORM is a lambda or a macro, byte-compile it as a function."
(byte-defop-compiler-1 save-restriction)
(byte-defop-compiler-1 save-window-excursion)
(byte-defop-compiler-1 with-output-to-temp-buffer)
(byte-defop-compiler-1 track-mouse)
(defun byte-compile-catch (form)
(byte-compile-form (car (cdr form)))
......@@ -2624,6 +2625,15 @@ If FORM is a lambda or a macro, byte-compile it as a function."
(byte-compile-form-do-effect (car (cdr form)))
(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))))))))
(defun byte-compile-condition-case (form)
(let* ((var (nth 1 form))
(byte-compile-bound-variables
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment