Fixed Issue 136.

Groups names shadow snippet names menus.
This commit is contained in:
capitaomorte 2010-04-18 16:42:32 +00:00
parent b593dc48f8
commit 927545a1fa

View File

@ -1053,7 +1053,8 @@ Also takes care of adding and updaring to the associated menu."
;;
(dolist (subgroup group)
(let ((subgroup-keymap (lookup-key keymap (vector (make-symbol subgroup)))))
(unless subgroup-keymap
(unless (and subgroup-keymap
(keymapp subgroup-keymap))
(setq subgroup-keymap (make-sparse-keymap))
(define-key keymap (vector (make-symbol subgroup))
`(menu-item ,subgroup ,subgroup-keymap)))