From 80bea210ff14a64daa1d71765983aa3baa149555 Mon Sep 17 00:00:00 2001 From: Dmitry Gutov Date: Mon, 9 May 2016 03:41:49 +0300 Subject: [PATCH] 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). --- test/lisp/jit-lock-tests.el | 6 ++++-- 1 file 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 @@ (defun jit-lock-tests--setup-buffer () (setq font-lock-defaults '(nil t)) - (font-lock-mode)) + (let (noninteractive) + (font-lock-mode))) (ert-deftest jit-lock-fontify-now-fontifies-a-new-buffer () (ert-with-test-buffer (:name "xxx") @@ -51,7 +52,8 @@ (ert-with-test-buffer (:name "xxx") (setq font-lock-defaults (list '(((lambda () (error "Don't call me")))) t)) - (font-lock-mode) + (let (noninteractive) + (font-lock-mode)) (insert "aaa") (with-silent-modifications (put-text-property (point-min) (point-max) 'fontified t)) -- 2.39.2