From a13a339168848d392339856d171c534dbd8b1dc6 Mon Sep 17 00:00:00 2001 From: John Paul Wallington Date: Fri, 20 Sep 2002 23:51:44 +0000 Subject: [PATCH] (eudc-install-menu): Use `define-key' and `easy-menu-create-menu' to avoid duplication of menu. --- lisp/ChangeLog | 5 +++++ lisp/net/eudc.el | 6 ++++++ 2 files changed, 11 insertions(+) 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 + + * 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 * 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) -- 2.11.4.GIT