diff options
| author | Richard M. Stallman <rms@gnu.org> | 1993-05-15 19:47:15 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1993-05-15 19:47:15 +0000 |
| commit | 6e8d0db7e232ba187d5b3e9c548f1fe312b7fa99 (patch) | |
| tree | dc23a09f0f48768e4d79186e7da32ff40fa99f81 /lisp/emacs-lisp | |
| parent | 356ba514a3cfc4a11c031fdce4c6bb81c4ed5ae3 (diff) | |
| download | emacs-6e8d0db7e232ba187d5b3e9c548f1fe312b7fa99.tar.gz emacs-6e8d0db7e232ba187d5b3e9c548f1fe312b7fa99.tar.bz2 emacs-6e8d0db7e232ba187d5b3e9c548f1fe312b7fa99.zip | |
(byte-compile-track-mouse): New function.
This is a kludge; track-mouse must be compiled better.
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 |