diff options
| -rw-r--r-- | test/redisplay-testsuite.el | 8 |
1 files changed, 0 insertions, 8 deletions
diff --git a/test/redisplay-testsuite.el b/test/redisplay-testsuite.el index a5ec1e89eaf..332eeb1cc9f 100644 --- a/test/redisplay-testsuite.el +++ b/test/redisplay-testsuite.el | |||
| @@ -263,14 +263,6 @@ static unsigned char x_bits[] = {0xff, 0x81, 0xbd, 0xa5, 0xa5, 0xbd, 0x81, 0xff | |||
| 263 | (insert "XYZ\n") | 263 | (insert "XYZ\n") |
| 264 | ;; Overlay strings with partial `invisibility' property and with a | 264 | ;; Overlay strings with partial `invisibility' property and with a |
| 265 | ;; display property on the before-string. | 265 | ;; display property on the before-string. |
| 266 | (insert "\n Expected: A...C") | ||
| 267 | (insert "\n Result: ") | ||
| 268 | (let ((opoint (point))) | ||
| 269 | (insert "X\n") | ||
| 270 | (let ((ov (make-overlay opoint (1+ opoint))) | ||
| 271 | (str "ABC")) | ||
| 272 | (put-text-property 1 2 'invisible 'test-redisplay--ellipsis-invis str) | ||
| 273 | (overlay-put ov 'display str))) | ||
| 274 | (insert "\n Expected: ..." | 266 | (insert "\n Expected: ..." |
| 275 | (propertize "DEF" 'display '(image :type xpm :file "close.xpm")) | 267 | (propertize "DEF" 'display '(image :type xpm :file "close.xpm")) |
| 276 | (propertize "ABC" 'face 'highlight) "XYZ") | 268 | (propertize "ABC" 'face 'highlight) "XYZ") |