diff options
Diffstat (limited to 'test')
| -rw-r--r-- | test/lisp/autorevert-tests.el | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/test/lisp/autorevert-tests.el b/test/lisp/autorevert-tests.el index 4763994c5d4..7e176df6803 100644 --- a/test/lisp/autorevert-tests.el +++ b/test/lisp/autorevert-tests.el | |||
| @@ -132,12 +132,15 @@ This expects `auto-revert--messages' to be bound by | |||
| 132 | (error (message "%s" err) (signal (car err) (cdr err))))))) | 132 | (error (message "%s" err) (signal (car err) (cdr err))))))) |
| 133 | 133 | ||
| 134 | (defmacro with-auto-revert-test (&rest body) | 134 | (defmacro with-auto-revert-test (&rest body) |
| 135 | `(let ((auto-revert-interval-orig auto-revert-interval)) | 135 | `(let ((auto-revert-interval-orig auto-revert-interval) |
| 136 | (auto-revert--lockout-interval-orig auto-revert--lockout-interval)) | ||
| 136 | (unwind-protect | 137 | (unwind-protect |
| 137 | (progn | 138 | (progn |
| 138 | (customize-set-variable 'auto-revert-interval 0.1) | 139 | (customize-set-variable 'auto-revert-interval 0.1) |
| 140 | (setq auto-revert--lockout-interval 0.05) | ||
| 139 | ,@body) | 141 | ,@body) |
| 140 | (customize-set-variable 'auto-revert-interval auto-revert-interval-orig)))) | 142 | (customize-set-variable 'auto-revert-interval auto-revert-interval-orig) |
| 143 | (setq auto-revert--lockout-interval auto-revert--lockout-interval-orig)))) | ||
| 141 | 144 | ||
| 142 | (defun auto-revert-tests--write-file (text file time-delta &optional append) | 145 | (defun auto-revert-tests--write-file (text file time-delta &optional append) |
| 143 | (write-region text nil file append 'no-message) | 146 | (write-region text nil file append 'no-message) |