From dbe23aec174001c42f6edc7a594863a82a24bcfa Mon Sep 17 00:00:00 2001
From: Kyle Meyer <kyle@kyleam.com>
Date: Sun, 15 May 2022 13:56:37 -0400
Subject: [PATCH] lispy-test.el (lispy-toggle-threaded-last): Update for Emacs
 28

Starting with Emacs 28.1, thread-first uses `(declare (indent 0) ...)`
rather than `(declare (indent 1) ...)`.
---

  Proposed upstream at <https://github.com/abo-abo/lispy/pull/632>.

 lispy-test.el | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/lispy-test.el b/lispy-test.el
index d946731..87d8c87 100644
--- a/lispy-test.el
+++ b/lispy-test.el
@@ -150,7 +150,13 @@ (ert-deftest lispy-toggle-threaded-last ()
                    "|(thread-last (a 1) (b 2) (c 3))"))
   (should (string= (lispy-with "|(equal 1443070800.0\n       (ts-unix\n        (ts-parse-org-element\n         (org-element-context))))"
                                (lispy-toggle-thread-last))
-                   "|(thread-last (org-element-context)\n  (ts-parse-org-element)\n  (ts-unix)\n  (equal 1443070800.0))"))
+                   (let ((indent (make-string
+                                  (if (version< emacs-version "28.1") 2 13)
+                                  ?\s)))
+                     (concat "|(thread-last (org-element-context)\n"
+                             indent "(ts-parse-org-element)\n"
+                             indent "(ts-unix)\n"
+                             indent "(equal 1443070800.0))"))))
   (should (string= (lispy-with "|(thread-last (org-element-context)\n  (ts-parse-org-element)\n  (ts-unix)\n  (equal 1443070800.0))"
                                (lispy-toggle-thread-last))
                    "|(equal 1443070800.0\n       (ts-unix\n        (ts-parse-org-element\n         (org-element-context))))")))

base-commit: df1b7e614fb0f73646755343e8892ddda310f427
-- 
2.36.0

t' type='search' size='10' name='q' value=''/>
<input type='submit' value='search'/>
</form>
</td></tr></table>
<div class='path'>path: <a href='/guix/log/?id=cd0d27f30dc2274fbf8477f44275d9184521f044'>root</a>/<a href='/guix/log/gnu?id=cd0d27f30dc2274fbf8477f44275d9184521f044'>gnu</a>/<a href='/guix/log/gnu/tests?id=cd0d27f30dc2274fbf8477f44275d9184521f044'>tests</a>/<a href='/guix/log/gnu/tests/ldap.scm?id=cd0d27f30dc2274fbf8477f44275d9184521f044'>ldap.scm</a></div><div class='content'><table class='list nowrap'><tr class='nohover'><th class='left'>Age</th><th class='left'>Commit message (<a href='/guix/log/gnu/tests/ldap.scm?id=cd0d27f30dc2274fbf8477f44275d9184521f044&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2022-06-24 10:24:54 +0200'>2022-06-24</span></td><td><a href='/guix/commit/gnu/tests/ldap.scm?id=ed2d2a2d579456c356288232128bf32322c5edfa'>tests: ldap: Increase VM memory size.</a><span class='msg-avail'>...</span></td><td>Timotej Lazar</td></tr>
<tr><td><span title='2021-09-26 23:20:56 +0200'>2021-09-26</span></td><td><a href='/guix/commit/gnu/tests/ldap.scm?id=89b05442933d92f4b21c3294455a498e8333727d'>tests: Reduce boilerplate for users of 'system-test-runner'.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2021-09-25 18:52:05 +0200'>2021-09-25</span></td><td><a href='/guix/commit/gnu/tests/ldap.scm?id=1fb75128a5202b406622da6272bc809c46d1f439'>tests: Adjust to SRFI-64 as found in Guile 3.0.7.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2021-04-18 10:31:59 +0200'>2021-04-18</span></td><td><a href='/guix/commit/gnu/tests/ldap.scm?id=868d8068a0b0ea985c6f8d28cb7a436c96bd4de5'>tests: ldap: Fix it.</a><span class='msg-avail'>...</span></td><td>Mathieu Othacehe</td></tr>
<tr><td><span title='2019-03-20 20:31:15 +0100'>2019-03-20</span></td><td><a href='/guix/commit/gnu/tests/ldap.scm?id=c16423f143919916a5273761d7ed29bd49f14519'>services: Add nslcd-service-type.</a><span class='msg-avail'>...</span></td><td>Ricardo Wurmus</td></tr>