[elpa] externals/leaf b64a2fa 40/46: fix test

[Stefan Monnier]

branch: externals/leaf
commit b64a2fa668a4d9d1b4d045f23a2407a641fb1692
Author: Zheng Junjie <873216071@qq.com>
Commit: Naoya Yamashita <conao3@gmail.com>

    fix test
---
 leaf-tests.el | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/leaf-tests.el b/leaf-tests.el
index ff4f92d..998694a 100644
--- a/leaf-tests.el
+++ b/leaf-tests.el
@@ -2270,37 +2270,37 @@ Example:
   (cort-deftest-with-macroexpand leaf/leaf-key
     '(((leaf-key "C-M-i" 'flyspell-correct-wrapper)
        (let* ((old (lookup-key global-map (kbd "C-M-i")))
-              (value `(global-map "C-M-i" flyspell-correct-wrapper ,(and old 
(not (numberp old)) old))))
+              (value `(global-map "C-M-i" flyspell-correct-wrapper ,(and old 
(not (numberp old)) old) nil)))
          (push value leaf-key-bindlist)
          (define-key global-map (kbd "C-M-i") 'flyspell-correct-wrapper)))
 
       ((leaf-key [remap backward-sentence] 'sh-beginning-of-command)
        (let* ((old (lookup-key global-map [remap backward-sentence]))
-              (value `(global-map "<remap> <backward-sentence>" 
sh-beginning-of-command ,(and old (not (numberp old)) old))))
+              (value `(global-map "<remap> <backward-sentence>" 
sh-beginning-of-command ,(and old (not (numberp old)) old) nil)))
          (push value leaf-key-bindlist)
          (define-key global-map [remap backward-sentence] 
'sh-beginning-of-command)))
 
       ((leaf-key "C-M-i" 'flyspell-correct-wrapper 'c-mode-map)
        (let* ((old (lookup-key c-mode-map (kbd "C-M-i")))
-              (value `(c-mode-map "C-M-i" flyspell-correct-wrapper ,(and old 
(not (numberp old)) old))))
+              (value `(c-mode-map "C-M-i" flyspell-correct-wrapper ,(and old 
(not (numberp old)) old) nil)))
          (push value leaf-key-bindlist)
          (define-key c-mode-map (kbd "C-M-i") 'flyspell-correct-wrapper)))
 
       ((leaf-key [remap backward-sentence] 'sh-beginning-of-command 
'shell-mode-map)
        (let* ((old (lookup-key shell-mode-map [remap backward-sentence]))
-              (value `(shell-mode-map "<remap> <backward-sentence>" 
sh-beginning-of-command ,(and old (not (numberp old)) old))))
+              (value `(shell-mode-map "<remap> <backward-sentence>" 
sh-beginning-of-command ,(and old (not (numberp old)) old) nil)))
          (push value leaf-key-bindlist)
          (define-key shell-mode-map [remap backward-sentence] 
'sh-beginning-of-command)))
 
       ((leaf-key (vector 'key-chord ?i ?j) 'undo nil)
        (let* ((old (lookup-key global-map (vector 'key-chord 105 106)))
-              (value `(global-map "<key-chord> i j" undo ,(and old (not 
(numberp old)) old))))
+              (value `(global-map "<key-chord> i j" undo ,(and old (not 
(numberp old)) old) nil)))
          (push value leaf-key-bindlist)
          (define-key global-map (vector 'key-chord 105 106) 'undo)))
 
       ((leaf-key [(control ?x) (control ?f)] 'undo)
        (let* ((old (lookup-key global-map [(control 120) (control 102)]))
-              (value `(global-map "C-x C-f" undo ,(and old (not (numberp old)) 
old))))
+              (value `(global-map "C-x C-f" undo ,(and old (not (numberp old)) 
old) nil)))
          (push value leaf-key-bindlist)
          (define-key global-map [(control 120) (control 102)] 'undo))))))