diff options
| author | John Paul Wallington <jpw@pobox.com> | 2002-09-20 23:51:44 +0000 |
|---|---|---|
| committer | John Paul Wallington <jpw@pobox.com> | 2002-09-20 23:51:44 +0000 |
| commit | a13a339168848d392339856d171c534dbd8b1dc6 (patch) | |
| tree | 05ae47fcadfb24a0643020e9ac3e00984f3b90a5 | |
| parent | 5190c95ed41e6e59020362b7e37533ec302d5931 (diff) | |
| download | emacs-a13a339168848d392339856d171c534dbd8b1dc6.tar.gz | |
(eudc-install-menu): Use `define-key' and
`easy-menu-create-menu' to avoid duplication of menu.
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/net/eudc.el | 6 |
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) |