diff options
Diffstat (limited to 'test')
| -rw-r--r-- | test/lisp/jit-lock-tests.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/test/lisp/jit-lock-tests.el b/test/lisp/jit-lock-tests.el index 26b97998a2c..3d1db85ac9f 100644 --- a/test/lisp/jit-lock-tests.el +++ b/test/lisp/jit-lock-tests.el | |||
| @@ -28,7 +28,8 @@ | |||
| 28 | 28 | ||
| 29 | (defun jit-lock-tests--setup-buffer () | 29 | (defun jit-lock-tests--setup-buffer () |
| 30 | (setq font-lock-defaults '(nil t)) | 30 | (setq font-lock-defaults '(nil t)) |
| 31 | (font-lock-mode)) | 31 | (let (noninteractive) |
| 32 | (font-lock-mode))) | ||
| 32 | 33 | ||
| 33 | (ert-deftest jit-lock-fontify-now-fontifies-a-new-buffer () | 34 | (ert-deftest jit-lock-fontify-now-fontifies-a-new-buffer () |
| 34 | (ert-with-test-buffer (:name "xxx") | 35 | (ert-with-test-buffer (:name "xxx") |
| @@ -51,7 +52,8 @@ | |||
| 51 | (ert-with-test-buffer (:name "xxx") | 52 | (ert-with-test-buffer (:name "xxx") |
| 52 | (setq font-lock-defaults | 53 | (setq font-lock-defaults |
| 53 | (list '(((lambda () (error "Don't call me")))) t)) | 54 | (list '(((lambda () (error "Don't call me")))) t)) |
| 54 | (font-lock-mode) | 55 | (let (noninteractive) |
| 56 | (font-lock-mode)) | ||
| 55 | (insert "aaa") | 57 | (insert "aaa") |
| 56 | (with-silent-modifications | 58 | (with-silent-modifications |
| 57 | (put-text-property (point-min) (point-max) 'fontified t)) | 59 | (put-text-property (point-min) (point-max) 'fontified t)) |