(ad-special-forms): Correct the conditional inclusion of `track-mouse'.

2 files changed, 4 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ebbe543adf1..21f22693f66 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2000-11-21  Miles Bader  <miles@gnu.org>
 
+        * emacs-lisp/advice.el (ad-special-forms): Correct the conditional
+        inclusion of `track-mouse'.
+
         * textmodes/refill.el (refill-ignorable-overlay): New variable.
         (refill-adjust-ignorable-overlay): New function.
         (refill-fill-paragraph-at): Use `refill-ignorable-overlay' to fill
diff --git a/lisp/emacs-lisp/advice.el b/lisp/emacs-lisp/advice.el
index c8f7be749f0..4d32929ee9b 100644
--- a/lisp/emacs-lisp/advice.el
+++ b/lisp/emacs-lisp/advice.el
@@ -2471,7 +2471,7 @@ will clear the cache."
                    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)