(ad-special-forms): Use track-mouse iff bound.

diff --git a/lisp/emacs-lisp/advice.el b/lisp/emacs-lisp/advice.el
index 9f670e8010c172d2c4b29f059259698e177784a0..6dab539a01983ee6d143518da290720c8874005d 100644 (file)
--- a/lisp/emacs-lisp/advice.el
+++ b/lisp/emacs-lisp/advice.el
@@ -2472,13 +2472,16 @@ will clear the cache."
 ;; There is no way to determine whether some subr is a special form or not,
 ;; hence we need this list (which is probably out of date):
 (defvar ad-special-forms
-  (mapcar 'symbol-function
-         '(and catch cond condition-case defconst defmacro
-               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
-               with-output-to-temp-buffer)))
+  (let ((tem '(and catch cond condition-case defconst defmacro
+                  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
+                  with-output-to-temp-buffer)))
+    ;; track-mouse could be void in some configurations.
+    (if (fboundp 'track-mouse)
+       (setq tem (cons 'track-mouse tem)))
+    (mapcar 'symbol-function tem)))
 
 (defmacro ad-special-form-p (definition)
   ;;"non-nil if DEFINITION is a special form."