From 6eadcf17169a223927960335903e4acb056f8831 Mon Sep 17 00:00:00 2001 From: marty hiatt Date: Sat, 14 Oct 2023 15:02:47 +0200 Subject: tests docstring --- test/mastodon-tl-tests.el | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/test/mastodon-tl-tests.el b/test/mastodon-tl-tests.el index d6940d4..899960e 100644 --- a/test/mastodon-tl-tests.el +++ b/test/mastodon-tl-tests.el @@ -849,12 +849,10 @@ Strict-Transport-Security: max-age=31536000 (should (equal (list 'next test-name expected-next) (list 'next test-name (point))))))))))) - (defun tl-tests--property-values-at (property ranges) "Returns a list with property values at the given ranges. - - The property value for PROPERTY within a region is assumed to be - constant." +The property value for PROPERTY within a region is assumed to be +constant." (let (result) (dolist (range ranges (nreverse result)) (push (get-text-property (car range) property) result)))) -- cgit v1.2.3