changeset 23946:82f89865fa9b

(ad-special-forms): Add save-current-buffer and track-mouse.
author Andreas Schwab <schwab@suse.de>
date Mon, 28 Dec 1998 10:10:22 +0000
parents 688314651e5a
children f01d27883cb1
files lisp/emacs-lisp/advice.el
diffstat 1 files changed, 5 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- 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."