mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-11-21 06:55:35 +00:00
Code

test-org-capture/entry: Fix Emacs 27 compatibility

Browse Source 
* testing/lisp/test-org-capture.el (test-org-capture/entry): Use
`org-dlet' instead of `dlet' that is not yet available in Emacs 27.
This commit is contained in:
Ihor Radchenko 2024-06-18 18:09:21 +02:00
parent c37a17ac2a
commit 840cb395aa
No known key found for this signature in database
GPG Key ID: 6470762A7DA11D8B
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
testing/lisp/test-org-capture.el
View File

@ -244,7 +244,7 @@
(equal
"* A\n* B\n** H1 Capture text\n* C\n"
(org-test-with-temp-text-in-file "* A\n* B\n* C\n"
(dlet ((test-org-capture/entry/headline))
(org-dlet ((test-org-capture/entry/headline))
(let* ((file (buffer-file-name))
(org-capture-templates
`(("t" "Todo" entry (file+headline ,file test-org-capture/entry/headline) "** H1 %?"))))
@ -285,7 +285,7 @@
(equal
"* A\n** B\n*** H1 Capture text\n** C\n"
(org-test-with-temp-text-in-file "* A\n** B\n** C\n"
(dlet ((test-org-capture/entry/file+olp))
(org-dlet ((test-org-capture/entry/file+olp))
(let* ((file (buffer-file-name))
(org-capture-templates
`(("t" "Todo" entry (file+olp ,file test-org-capture/entry/file+olp) "* H1 %?"))))
@ -328,7 +328,7 @@
(equal
"* A\n** B\n*** 2024\n**** 2024-06 June\n***** 2024-06-16 Sunday\n****** H1 Capture text\n** C\n"
(org-test-with-temp-text-in-file "* A\n** B\n** C\n"
(dlet ((test-org-capture/entry/file+olp+datetree))
(org-dlet ((test-org-capture/entry/file+olp+datetree))
(let* ((file (buffer-file-name))
(org-capture-templates
`(("t" "Todo" entry (file+olp+datetree ,file test-org-capture/entry/file+olp+datetree) "* H1 %?"))))