aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorDmitry Gutov2016-05-09 03:41:49 +0300
committerDmitry Gutov2016-05-09 03:42:14 +0300
commit80bea210ff14a64daa1d71765983aa3baa149555 (patch)
tree42e70df299bb1fe47c9c011042dafadcaeb88075
parente2f785991d0c696fbb2bc2f331f888d979b8da82 (diff)
downloademacs-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.el6
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))