From: John Paul Wallington <jpw@pobox.com>
Date: Sat, 21 Sep 2002 04:38:39 +0000 (+0000)
Subject: (eudc-install-menu): Use `define-key' and
X-Git-Tag: emacs-pretest-21.2.91~31
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=15797fc5dbea5a2605d16ed8eaf19070638fc0cd;p=emacs.git

(eudc-install-menu): Use `define-key' and
`easy-menu-create-menu' to avoid duplication of menu.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b58e36c7c4a..832ef27015c 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-13  Francesco Potorti`  <pot@gnu.org>
 
 	* play/tetris.el (tetris-blank-options, tetris-cell-options):
diff --git a/lisp/net/eudc.el b/lisp/net/eudc.el
index 09e25aa4f6c..c840ecd2106 100644
--- a/lisp/net/eudc.el
+++ b/lisp/net/eudc.el
@@ -1202,7 +1202,13 @@ queries the server for the existing fields and displays a corresponding form."
    ((and eudc-xemacs-p (featurep 'menubar))
     (add-submenu '("Tools") (eudc-menu)))
    (eudc-emacs-p
-    (cond 
+    (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)