diff options
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index 7d686b10057..76a0712dcad 100644 --- a/lisp/emacs-lisp/bytecomp.el +++ b/lisp/emacs-lisp/bytecomp.el @@ -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 |