;;; redisplay-testsuite.el --- Test suite for redisplay.
-;; Copyright (C) 2009-2015 Free Software Foundation, Inc.
+;; Copyright (C) 2009-2016 Free Software Foundation, Inc.
;; Author: Chong Yidong <cyd@stupidchicken.com>
;; Keywords: internal
(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")