(menu-bar-tools-menu): Add EUDC submenu.

diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el
index bf392e3082f7340a1c38393cbd6122adaae1be0a..5da42f37c7fa7eb928d87c6d0c33ecc6919aed95 100644 (file)
--- a/lisp/menu-bar.el
+++ b/lisp/menu-bar.el
@@ -74,6 +74,8 @@ A large number or nil slows down menu responsiveness."
 (define-key menu-bar-tools-menu [calendar] '("Display Calendar" . calendar))
 (define-key menu-bar-tools-menu [speedbar]
   '("Display Speedbar" . speedbar-frame-mode))
+(define-key menu-bar-tools-menu [directory-search]
+  '("Directory Search" . eudc-tools-menu))
 (define-key menu-bar-tools-menu [compose-mail] '("Send Mail" . compose-mail))
 (define-key menu-bar-tools-menu [rmail] '("Read Mail" . read-mail-command))
 (define-key menu-bar-tools-menu [gnus] '("Read Net News" . gnus))