diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2020-10-04 22:50:38 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2020-10-04 22:50:38 -0400 |
| commit | 14a5db2912d9e4e802c1eeddfb3e551f9fb8f753 (patch) | |
| tree | e22e5a26244e060a680e4f3bd1fa5de0801f6e81 /test | |
| parent | 5ec21155c39aab8a452d190a260e6912d1d9a920 (diff) | |
| download | emacs-14a5db2912d9e4e802c1eeddfb3e551f9fb8f753.tar.gz emacs-14a5db2912d9e4e802c1eeddfb3e551f9fb8f753.tar.bz2 emacs-14a5db2912d9e4e802c1eeddfb3e551f9fb8f753.zip | |
* src/xdisp.c (syms_of_xdisp): New var `redisplay_skip_initial_frame`.
This makes it possible to run most of the redisplay code (tho not the
actual drawing since there's nowhere to draw) even when there's no
real frame at hand, as is the case in batch mode.
This makes `xdisp-tests--minibuffer-resizing` work even in batch.
(redisplay_internal): Obey it.
(init_xdisp): Set `echo_area_window` even in noninteractive mode.
* src/dispnew.c (update_frame): Skip the initial frame.
* src/frame.c (make_frame): Use 80x25 as the default initial size.
* test/src/xdisp-tests.el (xdisp-tests--minibuffer-resizing):
Use the new var and fix use of `executing-kbd-macro`.
Diffstat (limited to 'test')
| -rw-r--r-- | test/src/xdisp-tests.el | 24 |
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)) - ;; (sit-for 2) - ;; (delete-region (point) (point-max)) - (put-text-property 0 1 'cursor t text) - (overlay-put ol 'after-string text) - (redisplay 'force) - (throw 'result - ;; Make sure we do the see "hello" text. - (prog1 (equal (window-start) (point-min)) - ;; (list (window-start) (window-end) (window-width)) - (delete-overlay ol))))) + ;; (save-excursion (insert text)) + ;; (sit-for 2) + ;; (delete-region (point) (point-max)) + (put-text-property 0 1 'cursor t text) + (overlay-put ol 'after-string text) + (let ((executing-kbd-macro nil)) ;Don't skip redisplay + (redisplay 'force)) + (throw 'result + ;; Make sure we do the see "hello" text. + (prog1 (equal (window-start) (point-min)) + ;; (list (window-start) (window-end) (window-width)) + (delete-overlay ol))))) (let ((executing-kbd-macro t)) ;Force real minibuffer in `read-string'. (read-string "toto: "))))))) |