Keymap problem

["lu@luxdo.jp" <lu@luxdo.jp>]

I use the following code to define a menu named "Pmd" which
have only one menu item named "pmd current buffer".
The menuitem binded to 'pmd-current-buffer.
but the shotcut (C-c p b) does not work,What is the problem?
Thanks.

(defun pmd-minor-mode (&optional arg)
""
(setq pmd-list-entry-keymap (make-keymap))
(use-local-map pmd-list-entry-keymap)
(defvar pmd:map nil
"The pmd keymap.")
(setq pmd:map (make-sparse-keymap))
(define-key pmd:map "\C-cpb" 'pmd-current-buffer)
(easy-menu-define pmd:menu
(list pmd:map pmd-list-entry-keymap)
"pmd menu"
'("Pmd"
[ "pmd current buffer" pmd-current-buffer t ]
)
)

(easy-menu-add pmd:menu pmd:map)
)

(add-hook 'jde-mode-hook (function pmd-minor-mode))