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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ebbe543adf1c04b78c9205bcc43cb95aae2890a4..21f22693f66a3b8342ce3b8148d0b4a8577c074e 100644 (file)
--- 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 c8f7be749f045e484e724a21920c1207543e5531..4d32929ee9b6fa288b9649b2cd855ea064ed8a8c 100644 (file)
--- 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)