diff options
Diffstat (limited to 'test')
| -rw-r--r-- | test/redisplay-testsuite.el | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/test/redisplay-testsuite.el b/test/redisplay-testsuite.el index 357ab08bf84..40a21b7fea4 100644 --- a/test/redisplay-testsuite.el +++ b/test/redisplay-testsuite.el @@ -251,6 +251,18 @@ static unsigned char x_bits[] = {0xff, 0x81, 0xbd, 0xa5, 0xa5, 0xbd, 0x81, 0xff (str "ABC")) (put-text-property 1 2 'invisible 'test-redisplay--ellipsis-invis str) (overlay-put ov 'display str))) + ;; Overlay string with 2 adjacent and different invisible + ;; properties. This caused an infloop before Emacs 25. + (insert "\n Expected: ABC") + (insert "\n Result: ") + (let ((opoint (point))) + (insert "ABC\n") + (let ((ov (make-overlay (1+ opoint) (+ 2 opoint))) + (str (concat (propertize "X" + 'invisible 'test-redisplay--simple-invis) + (propertize "Y" + 'invisible 'test-redisplay--simple-invis2)))) + (overlay-put ov 'after-string str))) (insert "\n")) @@ -264,6 +276,7 @@ static unsigned char x_bits[] = {0xff, 0x81, 0xbd, 0xa5, 0xa5, 0xbd, 0x81, 0xff (erase-buffer) (setq buffer-invisibility-spec '(test-redisplay--simple-invis + test-redisplay--simple-invis2 (test-redisplay--ellipsis-invis . t))) (test-redisplay-1) (test-redisplay-2) |