aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--test/lisp/simple-tests.el7
1 files changed, 5 insertions, 2 deletions
diff --git a/test/lisp/simple-tests.el b/test/lisp/simple-tests.el
index 8fa8295765b..601eca6cd49 100644
--- a/test/lisp/simple-tests.el
+++ b/test/lisp/simple-tests.el
@@ -469,8 +469,11 @@ See bug#35036."
469 469
470(ert-deftest simple-tests--undo-in-region () 470(ert-deftest simple-tests--undo-in-region ()
471 ;; Test undo/redo in region. 471 ;; Test undo/redo in region.
472 (skip-unless (not noninteractive))
473 (with-temp-buffer 472 (with-temp-buffer
473 ;; Enable `transient-mark-mode' so `region-active-p' works as
474 ;; expected. `region-active-p' is used to determine whether to
475 ;; perform regional undo in `undo'.
476 (transient-mark-mode)
474 (buffer-enable-undo) 477 (buffer-enable-undo)
475 (dolist (x '("a" "b" "c" "d" "e")) 478 (dolist (x '("a" "b" "c" "d" "e"))
476 (insert x) 479 (insert x)
@@ -506,9 +509,9 @@ See bug#35036."
506 lst) 509 lst)
507 510
508(ert-deftest simple-tests--undo-equiv-table () 511(ert-deftest simple-tests--undo-equiv-table ()
509 (skip-unless (not noninteractive))
510 (with-temp-buffer 512 (with-temp-buffer
511 (buffer-enable-undo) 513 (buffer-enable-undo)
514 (transient-mark-mode)
512 (let ((ul-hash-table (make-hash-table :test #'equal))) 515 (let ((ul-hash-table (make-hash-table :test #'equal)))
513 (dolist (x '("a" "b" "c")) 516 (dolist (x '("a" "b" "c"))
514 (insert x) 517 (insert x)