mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-25 10:47:00 +00:00
Code Issues Releases Activity

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

Browse Source 
This is a kludge; track-mouse must be compiled better.
This commit is contained in:
Richard M. Stallman 1993-05-15 19:47:15 +00:00
parent 356ba514a3
commit 6e8d0db7e2
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lisp/emacs-lisp/bytecomp.el
View File

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