简单的小模式，以保持简单的菜单

Question

我想要一个菜单​​，当我需要它时我会打电话。我认为那种小模式 - 是要走的路。所以我写了一个次要模式，它只定义了keymap和easy-menu：

;; keymap:
(defvar bk-mdanalysis-mode-map
  (let ((map (make-sparse-keymap)))
    map)
  "Keymap for bk-mdanalysis minor mode")

;; menu:
(easy-menu-define mda bk-mdanalysis-mode-map "bk-mdanalysis-mode menu"
  '("BK-MDA"
    ["Test" (lambda () (interactive) (insert "test!")) t]
    ))

(define-minor-mode bk-mdanalysis-mode 
  nil nil nil 
  bk-mdanalysis-mode-map)

(provide 'bk-mdanalysis-mode)

由于某种原因，它不起作用。有什么问题？

修改：

等一下 - 它有效！

我现在应该删除它还是什么？

Answer 1

您将bk-mdanalysis-mode-map作为定义 - 次要模式的第5个参数放置，而它应该是第4个参数。幸运的是你定义 - 次要模式无论如何都会默认使用它，所以它仍然可以工作，这个第五个参数将被忽略。