From 9d52160a5c4cbeb9486b7bba1faeaedadf6d75a0 Mon Sep 17 00:00:00 2001 From: Andreas Schwab Date: Mon, 28 Dec 1998 10:10:22 +0000 Subject: [PATCH] (ad-special-forms): Add save-current-buffer and track-mouse. --- lisp/emacs-lisp/advice.el | 10 +++++----- 1 file 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." -- 2.39.2