# HG changeset patch
# User John Paul Wallington <jpw@pobox.com>
# Date 1032565904 0
# Node ID 65c4cd99d916c86db6a7df4f6445c5aea938e8bf
# Parent  a02c3a1fc1ab3e78b3a9cda624bfdf65dd3b6fd2
(eudc-install-menu): Use `define-key' and
`easy-menu-create-menu' to avoid duplication of menu.

diff -r a02c3a1fc1ab -r 65c4cd99d916 lisp/ChangeLog
--- a/lisp/ChangeLog	Fri Sep 20 20:38:18 2002 +0000
+++ b/lisp/ChangeLog	Fri Sep 20 23:51:44 2002 +0000
@@ -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 -r a02c3a1fc1ab -r 65c4cd99d916 lisp/net/eudc.el
--- a/lisp/net/eudc.el	Fri Sep 20 20:38:18 2002 +0000
+++ b/lisp/net/eudc.el	Fri Sep 20 23:51:44 2002 +0000
@@ -1185,6 +1185,12 @@
     (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)