# HG changeset patch
# User Miles Bader <miles@gnu.org>
# Date 974796525 0
# Node ID b51b000b2c50f9cf37a58fdb6c111625ecc61370
# Parent  15b91d26a2d1be0a2678e08bc5461a4ac7ab38c9
(ad-special-forms): Correct the conditional inclusion of `track-mouse'.

diff -r 15b91d26a2d1 -r b51b000b2c50 lisp/emacs-lisp/advice.el
--- a/lisp/emacs-lisp/advice.el	Tue Nov 21 01:25:01 2000 +0000
+++ b/lisp/emacs-lisp/advice.el	Tue Nov 21 08:48:45 2000 +0000
@@ -2471,7 +2471,7 @@
 		   defun defvar function if interactive let let*
 		   or prog1 prog2 progn quote save-current-buffer
 		   save-excursion save-restriction save-window-excursion
-		   setq setq-default track-mouse unwind-protect while
+		   setq setq-default unwind-protect while
 		   with-output-to-temp-buffer)))
     ;; track-mouse could be void in some configurations.
     (if (fboundp 'track-mouse)