procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add new function 'add-display-text-property'

Browse source 
* doc/lispref/display.texi (Display Property): Document it.
* lisp/emacs-lisp/subr-x.el (add-display-text-property): New function.
This commit is contained in:
Lars Ingebrigtsen 2021-11-24 19:38:41 +01:00
parent 34f2878ce2
commit fde9363a57
4 changed files with 95 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

18
test/lisp/emacs-lisp/subr-x-tests.el
View file

@ -676,5 +676,23 @@
(buffer-string))
"foo\n")))
(ert-deftest test-add-display-text-property ()
(with-temp-buffer
(insert "Foo bar zot gazonk")
(add-display-text-property 4 8 'height 2.0)
(add-display-text-property 2 12 'raise 0.5)
(should (equal (get-text-property 2 'display) '(raise 0.5)))
(should (equal (get-text-property 5 'display)
'((raise 0.5) (height 2.0))))
(should (equal (get-text-property 9 'display) '(raise 0.5))))
(with-temp-buffer
(insert "Foo bar zot gazonk")
(put-text-property 4 8 'display [(height 2.0)])
(add-display-text-property 2 12 'raise 0.5)
(should (equal (get-text-property 2 'display) '(raise 0.5)))
(should (equal (get-text-property 5 'display)
[(raise 0.5) (height 2.0)]))
(should (equal (get-text-property 9 'display) '(raise 0.5)))))
(provide 'subr-x-tests)
;;; subr-x-tests.el ends here