diff options
| author | Andreas Schwab | 1998-12-28 10:10:22 +0000 |
|---|---|---|
| committer | Andreas Schwab | 1998-12-28 10:10:22 +0000 |
| commit | 9d52160a5c4cbeb9486b7bba1faeaedadf6d75a0 (patch) | |
| tree | 17f0fa844888ffd14d260c123937ca69d736c8f5 | |
| parent | fcd66424787c4aa626951039dfea5a480bb6d9a4 (diff) | |
| download | emacs-9d52160a5c4cbeb9486b7bba1faeaedadf6d75a0.tar.gz emacs-9d52160a5c4cbeb9486b7bba1faeaedadf6d75a0.zip | |
(ad-special-forms): Add save-current-buffer
and track-mouse.
| -rw-r--r-- | lisp/emacs-lisp/advice.el | 10 |
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." | |||
| 2474 | (defvar ad-special-forms | 2474 | (defvar ad-special-forms |
| 2475 | (mapcar 'symbol-function | 2475 | (mapcar 'symbol-function |
| 2476 | '(and catch cond condition-case defconst defmacro | 2476 | '(and catch cond condition-case defconst defmacro |
| 2477 | defun defvar function if interactive let let* | 2477 | defun defvar function if interactive let let* |
| 2478 | or prog1 prog2 progn quote save-excursion | 2478 | or prog1 prog2 progn quote save-current-buffer |
| 2479 | save-restriction save-window-excursion setq | 2479 | save-excursion save-restriction save-window-excursion |
| 2480 | setq-default unwind-protect while | 2480 | setq setq-default track-mouse unwind-protect while |
| 2481 | with-output-to-temp-buffer))) | 2481 | with-output-to-temp-buffer))) |
| 2482 | 2482 | ||
| 2483 | (defmacro ad-special-form-p (definition) | 2483 | (defmacro ad-special-form-p (definition) |
| 2484 | ;;"non-nil if DEFINITION is a special form." | 2484 | ;;"non-nil if DEFINITION is a special form." |