1185 |
(add-submenu '("Tools") (eudc-menu))) |
(add-submenu '("Tools") (eudc-menu))) |
1186 |
(eudc-emacs-p |
(eudc-emacs-p |
1187 |
(cond |
(cond |
1188 |
|
((fboundp 'easy-menu-create-menu) |
1189 |
|
(define-key |
1190 |
|
global-map |
1191 |
|
[menu-bar tools directory-search] |
1192 |
|
(cons "Directory Search" |
1193 |
|
(easy-menu-create-menu "Directory Search" (cdr (eudc-menu)))))) |
1194 |
((fboundp 'easy-menu-add-item) |
((fboundp 'easy-menu-add-item) |
1195 |
(let ((menu (eudc-menu))) |
(let ((menu (eudc-menu))) |
1196 |
(easy-menu-add-item nil '("tools") (easy-menu-create-menu (car menu) |
(easy-menu-add-item nil '("tools") (easy-menu-create-menu (car menu) |