diff options
| -rw-r--r-- | test/lisp/simple-tests.el | 7 |
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) |