Mercurial > emacs
changeset 47566:65c4cd99d916
(eudc-install-menu): Use `define-key' and
`easy-menu-create-menu' to avoid duplication of menu.
| author | John Paul Wallington <jpw@pobox.com> |
|---|---|
| date | Fri, 20 Sep 2002 23:51:44 +0000 |
| parents | a02c3a1fc1ab |
| children | 1075de6f6ebd |
| files | lisp/ChangeLog lisp/net/eudc.el |
| diffstat | 2 files changed, 11 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- 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
--- 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)