# HG changeset patch
# User Andreas Schwab <schwab@suse.de>
# Date 914839822 0
# Node ID 82f89865fa9b671ac892c9332653be590085f735
# Parent  688314651e5a515fb0aa92cd8b83e42f2e1d236c
(ad-special-forms): Add save-current-buffer
and track-mouse.

diff -r 688314651e5a -r 82f89865fa9b lisp/emacs-lisp/advice.el
--- a/lisp/emacs-lisp/advice.el	Sun Dec 27 08:04:05 1998 +0000
+++ b/lisp/emacs-lisp/advice.el	Mon Dec 28 10:10:22 1998 +0000
@@ -2474,11 +2474,11 @@
 (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."