(ad-special-forms): Add save-current-buffer

and track-mouse.

diff --git a/lisp/emacs-lisp/advice.el b/lisp/emacs-lisp/advice.el
index 86dde11959420d56734beb636a131e717cf49424..51cc5e7444848b3edf6275df3abfc9356a94bbce 100644 (file)
--- a/lisp/emacs-lisp/advice.el
+++ b/lisp/emacs-lisp/advice.el
@@ -2474,11 +2474,11 @@ will clear the cache."
 (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-excursion
-                               save-restriction save-window-excursion setq
-                              setq-default unwind-protect while
-                              with-output-to-temp-buffer)))
+               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)))
 
 (defmacro ad-special-form-p (definition)
   ;;"non-nil if DEFINITION is a special form."