summaryrefslogtreecommitdiff
path: root/lisp/emacs-lisp/advice.el
diff options
context:
space:
mode:
authorAndreas Schwab <schwab@suse.de>1998-12-28 10:10:22 +0000
committerAndreas Schwab <schwab@suse.de>1998-12-28 10:10:22 +0000
commit9d52160a5c4cbeb9486b7bba1faeaedadf6d75a0 (patch)
tree17f0fa844888ffd14d260c123937ca69d736c8f5 /lisp/emacs-lisp/advice.el
parentfcd66424787c4aa626951039dfea5a480bb6d9a4 (diff)
downloademacs-9d52160a5c4cbeb9486b7bba1faeaedadf6d75a0.tar.gz
(ad-special-forms): Add save-current-buffer
and track-mouse.
Diffstat (limited to 'lisp/emacs-lisp/advice.el')
-rw-r--r--lisp/emacs-lisp/advice.el10
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/emacs-lisp/advice.el b/lisp/emacs-lisp/advice.el
index 86dde119594..51cc5e74448 100644
--- 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."