; * test/redisplay-testsuite.el (test-redisplay-4): Remove
accidentally duplicated test.
(insert "XYZ\n")
;; Overlay strings with partial `invisibility' property and with a
;; display property on the before-string.
- (insert "\n Expected: A...C")
- (insert "\n Result: ")
- (let ((opoint (point)))
- (insert "X\n")
- (let ((ov (make-overlay opoint (1+ opoint)))
- (str "ABC"))
- (put-text-property 1 2 'invisible 'test-redisplay--ellipsis-invis str)
- (overlay-put ov 'display str)))
(insert "\n Expected: ..."
(propertize "DEF" 'display '(image :type xpm :file "close.xpm"))
(propertize "ABC" 'face 'highlight) "XYZ")