diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2013-01-07 13:03:01 -0500 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2013-01-07 13:03:01 -0500 |
| commit | 4986fa2175ea41a0ddb051d464293266b3bd7433 (patch) | |
| tree | 479c51f955a011b6aa023c010f73f25f1ecdfec5 /test | |
| parent | 3bee311e97e8512ee209853792cc8f4fd5bd0fd5 (diff) | |
| download | emacs-4986fa2175ea41a0ddb051d464293266b3bd7433.tar.gz | |
* lisp/emacs-lisp/advice.el (ad-activate-advised-definition): Refresh the
advice list when the interactive-spec of ad-Advice-* changes.
Diffstat (limited to 'test')
| -rw-r--r-- | test/automated/advice-tests.el | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/test/automated/advice-tests.el b/test/automated/advice-tests.el index bc9135c92d0..238561bef84 100644 --- a/test/automated/advice-tests.el +++ b/test/automated/advice-tests.el @@ -107,6 +107,12 @@ (lambda (f &rest args) (cons (cons 2 (called-interactively-p)) (apply f args)))) (should (equal (call-interactively 'sm-test7) '((2 . t) (1 . t) 11))) + + ;; Check handling of interactive spec. + (defun sm-test8 (a) (interactive "p") a) + (defadvice sm-test8 (before adv1 activate) nil) + (defadvice sm-test8 (before adv2 activate) (interactive "P") nil) + (should (equal (interactive-form 'sm-test8) '(interactive "P"))) )) ;; Local Variables: |