diff --git a/lisp/emacs-lisp/easymenu.el b/lisp/emacs-lisp/easymenu.el
index 6ce754cd35f..9360f778cfc 100644
--- a/lisp/emacs-lisp/easymenu.el
+++ b/lisp/emacs-lisp/easymenu.el
@@ -164,7 +164,8 @@ is a list of menu items, as above."
 			      selected
 			      ;; Simulate radio buttons with menu-enable.
 			      (put command 'menu-enable
-				   (list 'not selected)))))))	       
+				   (list 'not selected)))))	       
+		   (put command 'menu-enable keyword)))
 	       (if (keymapp callback)
 		   (setq name (concat name " ...")))
 	       (if (symbolp callback)