diff options
| author | Dmitry Gutov | 2016-05-09 03:41:49 +0300 |
|---|---|---|
| committer | Dmitry Gutov | 2016-05-09 03:42:14 +0300 |
| commit | 80bea210ff14a64daa1d71765983aa3baa149555 (patch) | |
| tree | 42e70df299bb1fe47c9c011042dafadcaeb88075 | |
| parent | e2f785991d0c696fbb2bc2f331f888d979b8da82 (diff) | |
| download | emacs-80bea210ff14a64daa1d71765983aa3baa149555.tar.gz emacs-80bea210ff14a64daa1d71765983aa3baa149555.zip | |
Emulate interactive mode
* test/lisp/jit-lock-tests.el (jit-lock-tests--setup-buffer)
(jit-lock-does-not-refontify-unnecessarily):
Bind noninteractive to nil (bug#23278).
| -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)) |