[elpa] externals/leaf e800a2288e 16/28: transform nil into ()

[ELPA Syncer]

branch: externals/leaf
commit e800a2288ef6d0e72c9f209a12ddac9aee0e773c
Author: Naoya Yamashita <conao3@gmail.com>
Commit: Naoya Yamashita <conao3@gmail.com>

    transform nil into ()
---
 leaf-tests.el | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/leaf-tests.el b/leaf-tests.el
index c5b72b11a0..1edd271e45 100644
--- a/leaf-tests.el
+++ b/leaf-tests.el
@@ -1612,13 +1612,13 @@ Example:
     ((leaf hook
        :hook (foo-hook . (lambda () (foo))))
      (prog1 'hook
-       (add-hook 'foo-hook #'(lambda nil (foo)))))
+       (add-hook 'foo-hook #'(lambda () (foo)))))
 
     ;; lambda sexp with many sexps
     ((leaf hook
        :hook (foo-hook . (lambda () (foo) (bar) (baz))))
      (prog1 'hook
-       (add-hook 'foo-hook #'(lambda nil (foo) (bar) (baz)))))))
+       (add-hook 'foo-hook #'(lambda () (foo) (bar) (baz)))))))
 
 (cort-deftest-with-macroexpand leaf/advice
   '(
@@ -2450,7 +2450,7 @@ Example:
          (leaf-safe-push value leaf-key-bindlist)
          (define-key global-map [(control 120) (control 102)] 'undo)))
 
-      ((leaf-key "M-s O" (lambda nil "color-moccur" (interactive) 
(color-moccur)))
+      ((leaf-key "M-s O" (lambda () "color-moccur" (interactive) 
(color-moccur)))
        (let* ((old (lookup-key global-map (kbd "M-s O")))
               (value `(global-map "M-s O" *lambda-function* ,(and old (not 
(numberp old)) old) nil)))
          (leaf-safe-push value leaf-key-bindlist)