1 files changed, 13 insertions, 11 deletions
diff --git a/test/src/xdisp-tests.el b/test/src/xdisp-tests.el
index 3d0d0f58302..95c39dacc3e 100644
--- a/test/src/xdisp-tests.el
+++ b/test/src/xdisp-tests.el
@@ -33,19 +33,21 @@
          (lambda ()
            (insert "hello")
            (let ((ol (make-overlay (point) (point)))
+                  (redisplay-skip-initial-frame nil)
                  (max-mini-window-height 1)
                  (text "askdjfhaklsjdfhlkasjdfhklasdhflkasdhflkajsdhflkashdfkljahsdlfkjahsdlfkjhasldkfhalskdjfhalskdfhlaksdhfklasdhflkasdhflkasdhflkajsdhklajsdgh"))
-             ;; (save-excursion (insert text))
+              ;; (save-excursion (insert text))
-             ;; (sit-for 2)
+              ;; (sit-for 2)
-             ;; (delete-region (point) (point-max))
+              ;; (delete-region (point) (point-max))
-             (put-text-property 0 1 'cursor t text)
+              (put-text-property 0 1 'cursor t text)
-             (overlay-put ol 'after-string text)
+              (overlay-put ol 'after-string text)
-             (redisplay 'force)
+              (let ((executing-kbd-macro nil)) ;Don't skip redisplay
-             (throw 'result
+                (redisplay 'force))
-                    ;; Make sure we do the see "hello" text.
+              (throw 'result
-                    (prog1 (equal (window-start) (point-min))
+                     ;; Make sure we do the see "hello" text.
-                      ;; (list (window-start) (window-end) (window-width))
+                     (prog1 (equal (window-start) (point-min))
-                      (delete-overlay ol)))))
+                       ;; (list (window-start) (window-end) (window-width))
+                       (delete-overlay ol)))))
        (let ((executing-kbd-macro t)) ;Force real minibuffer in `read-string'.
          (read-string "toto: ")))))))

diff --git a/test/src/xdisp-tests.el b/test/src/xdisp-tests.el index 3d0d0f58302..95c39dacc3e 100644 --- a/test/src/xdisp-tests.el +++ b/test/src/xdisp-tests.el
@@ -33,19 +33,21 @@
33	(lambda ()	33	(lambda ()
34	(insert "hello")	34	(insert "hello")
35	(let ((ol (make-overlay (point) (point)))	35	(let ((ol (make-overlay (point) (point)))
		36	(redisplay-skip-initial-frame nil)
36	(max-mini-window-height 1)	37	(max-mini-window-height 1)
37	(text "askdjfhaklsjdfhlkasjdfhklasdhflkasdhflkajsdhflkashdfkljahsdlfkjahsdlfkjhasldkfhalskdjfhalskdfhlaksdhfklasdhflkasdhflkasdhflkajsdhklajsdgh"))	38	(text "askdjfhaklsjdfhlkasjdfhklasdhflkasdhflkajsdhflkashdfkljahsdlfkjahsdlfkjhasldkfhalskdjfhalskdfhlaksdhfklasdhflkasdhflkasdhflkajsdhklajsdgh"))
38	;; (save-excursion (insert text))	39	;; (save-excursion (insert text))
39	;; (sit-for 2)	40	;; (sit-for 2)
40	;; (delete-region (point) (point-max))	41	;; (delete-region (point) (point-max))
41	(put-text-property 0 1 'cursor t text)	42	(put-text-property 0 1 'cursor t text)
42	(overlay-put ol 'after-string text)	43	(overlay-put ol 'after-string text)
43	(redisplay 'force)	44	(let ((executing-kbd-macro nil)) ;Don't skip redisplay
44	(throw 'result	45	(redisplay 'force))
45	;; Make sure we do the see "hello" text.	46	(throw 'result
46	(prog1 (equal (window-start) (point-min))	47	;; Make sure we do the see "hello" text.
47	;; (list (window-start) (window-end) (window-width))	48	(prog1 (equal (window-start) (point-min))
48	(delete-overlay ol)))))	49	;; (list (window-start) (window-end) (window-width))
		50	(delete-overlay ol)))))
49	(let ((executing-kbd-macro t)) ;Force real minibuffer in `read-string'.	51	(let ((executing-kbd-macro t)) ;Force real minibuffer in `read-string'.
50	(read-string "toto: ")))))))	52	(read-string "toto: ")))))))
51		53