绑定密钥时参数数量错误

我绑定了这把钥匙:

  (evil-define-key
    'normal neotree-mode-map
... More keybindings ...
    (kbd "m") 'neotree-modify-mode-menu)

我的功能是:

(defun neotree-modify-mode-menu (option)
  "Asks for a mode and execute associated Neotree command"
  (interactive "c(a)dd node | (d)elete node | (r)ename node")
  (cond
    ((eq option ?a) (neotree-create-node))
    ((eq option ?d) (neotree-delete-node))
    ((eq option ?c) (neotree-copy-node))
    ((eq option ?r) (neotree-rename-node))
    (:else (message (format "Invalid option %c" option)))))

它适用于每个选项,但不适用于创建节点。原因是create node采用了一个参数,我可以在这里看到: https://github.com/jaypei/emacs-neotree/blob/dev/neotree.el#L1921

因此,当从键绑定调用函数时,我遇到了这个错误:

Wrong number of arguments: #[(filename) "Å2w^@Æ^X GÇU\203^R^@ÈÅÆ\"\210  ÉÆOÊ\232?^PË  !\203*^@ÌÍ  \"\210ÈÅÆ\"\210^H\203[^@                                                                     
ÎÏ  \"!\203[^@Ð ÇÑÒ ÓÔ$TOÔ\"\210ÕÖÆ #\210×  !\210ØÆ!\210^K\203[^@Ù  !\210^H?\205u^@^LÎÚ \"!\205u^@Ð Ô\"\210×  !\210ØÆ!)0\207" [is-file filename neo-confirm-create-file neo-create-file-auto-o\
pen neo-confirm-create-directory rlt nil 0 throw -1 ...] 8 ("/home/panavtec/.emacs.d/elpa/neotree-20170522.758/neotree.elc" . 64641) (let* ((current-dir (neo-buffer--get-filename-current-lin\
e neo-buffer--start-node)) (current-dir (neo-path--match-path-directory current-dir)) (filename (read-file-name "Filename:" current-dir))) (if (file-directory-p filename) (setq filename (con\
cat filename "/"))) (list filename))], 0   

如果我将键绑定到neotree create node函数,它会工作:

  (evil-define-key normal neotree-mode-map
    (kbd "m") 'neotree-create-node)