Mercurial > emacs

changeset 2798:e2f296263868

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(byte-compile-track-mouse): New function. This is a kludge; track-mouse must be compiled better.
author Richard M. Stallman <rms@gnu.org>
date Sat, 15 May 1993 19:47:15 +0000
parents ae18dabac465
children 93a5aef19835
files lisp/emacs-lisp/bytecomp.el
diffstat 1 files changed, 10 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/emacs-lisp/bytecomp.el	Sat May 15 19:00:34 1993 +0000
+++ b/lisp/emacs-lisp/bytecomp.el	Sat May 15 19:47:15 1993 +0000
@@ -2610,6 +2610,7 @@
 (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 @@
   (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