diff options
| author | Stefan Monnier | 2012-11-16 13:02:39 -0500 |
|---|---|---|
| committer | Stefan Monnier | 2012-11-16 13:02:39 -0500 |
| commit | dd0c5bbb364c8a7f6c663c7bd93d048206b2e707 (patch) | |
| tree | 6ca3bd9064c154c6a85f49689f2090b8966795eb /test | |
| parent | 96e055075d7c73cf189038db1b15f9369888ea41 (diff) | |
| download | emacs-dd0c5bbb364c8a7f6c663c7bd93d048206b2e707.tar.gz emacs-dd0c5bbb364c8a7f6c663c7bd93d048206b2e707.zip | |
* lisp/emacs-lisp/advice.el (ad-make-advised-definition): Improve last fix.
Diffstat (limited to 'test')
| -rw-r--r-- | test/automated/advice-tests.el | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/test/automated/advice-tests.el b/test/automated/advice-tests.el index 8f9bf54114c..80321f8f3f9 100644 --- a/test/automated/advice-tests.el +++ b/test/automated/advice-tests.el | |||
| @@ -80,6 +80,13 @@ | |||
| 80 | (sm-test5 6) 100.1) | 80 | (sm-test5 6) 100.1) |
| 81 | ((advice-remove 'sm-test5 (lambda (f y) (* (funcall f y) 5))) | 81 | ((advice-remove 'sm-test5 (lambda (f y) (* (funcall f y) 5))) |
| 82 | (sm-test5 6) 20.1) | 82 | (sm-test5 6) 20.1) |
| 83 | |||
| 84 | ;; This used to signal an error (bug#12858). | ||
| 85 | ((autoload 'sm-test6 "foo") | ||
| 86 | (defadvice sm-test6 (around test activate) | ||
| 87 | ad-do-it) | ||
| 88 | t t) | ||
| 89 | |||
| 83 | )) | 90 | )) |
| 84 | 91 | ||
| 85 | (ert-deftest advice-tests () | 92 | (ert-deftest advice-tests () |