(eudc-install-menu): Use `define-key' and

`easy-menu-create-menu' to avoid duplication of menu.

2 files changed, 11 insertions, 0 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 46e155111b3..e139cf6113e 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2002-09-21  John Paul Wallington  <jpw@shootybangbang.com>
+
+        * net/eudc.el (eudc-install-menu): Use `define-key' and
+        `easy-menu-create-menu' to avoid duplication of menu.
+
 2002-09-20  Kim F. Storm  <storm@cua.dk>
 
         * kmacro.el (kmacro-step-edit-query): Use RET to execute rest of
diff --git a/lisp/net/eudc.el b/lisp/net/eudc.el
index 363bc8be825..4c501e9c63b 100644
--- a/lisp/net/eudc.el
+++ b/lisp/net/eudc.el
@@ -1185,6 +1185,12 @@ queries the server for the existing fields and displays a corresponding form."
     (add-submenu '("Tools") (eudc-menu)))
    (eudc-emacs-p
     (cond
+     ((fboundp 'easy-menu-create-menu)
+      (define-key
+        global-map
+        [menu-bar tools directory-search]
+        (cons "Directory Search"
+              (easy-menu-create-menu "Directory Search" (cdr (eudc-menu))))))
      ((fboundp 'easy-menu-add-item)
       (let ((menu (eudc-menu)))
         (easy-menu-add-item nil '("tools") (easy-menu-create-menu (car menu)