diff options
| author | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2023-10-14 15:02:47 +0200 |
|---|---|---|
| committer | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2023-10-14 15:02:47 +0200 |
| commit | 6eadcf17169a223927960335903e4acb056f8831 (patch) | |
| tree | 14b011ae6c34f80450be7b4cbf40374cc7d30eb8 /test/mastodon-tl-tests.el | |
| parent | dc6f827bcbf06e1f942318eeec4e58334beea3c0 (diff) | |
tests docstring
Diffstat (limited to 'test/mastodon-tl-tests.el')
| -rw-r--r-- | test/mastodon-tl-tests.el | 6 |
1 files 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)))) |