Mercurial > emacs
changeset 27320:0d7491a370d2
(toplevel): Remove autoloaded code installing
menu with easymenu, because that causes build problems.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Thu, 13 Jan 2000 14:47:17 +0000 |
| parents | a896ba4a496b |
| children | a9e8dcb78b6c |
| files | lisp/net/eudc.el |
| diffstat | 1 files changed, 0 insertions(+), 27 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/net/eudc.el Thu Jan 13 14:46:19 2000 +0000 +++ b/lisp/net/eudc.el Thu Jan 13 14:47:17 2000 +0000 @@ -1243,33 +1243,6 @@ (interactive) nil) -;;;###autoload -(let ((menu '("Directory Search" - ["Load Hotlist of Servers" eudc-load-eudc t] - ["New Server" eudc-set-server t] - ["---" nil nil] - ["Query with Form" eudc-query-form t] - ["Expand Inline Query" eudc-expand-inline t] - ["---" nil nil] - ["Get Email" eudc-get-email t] - ["Get Phone" eudc-get-phone t]))) - (if (not (featurep 'eudc-autoloads)) - (if (string-match "XEmacs" emacs-version) - (if (and (featurep 'menubar) - (not (featurep 'infodock))) - (add-submenu '("Tools") menu)) - (require 'easymenu) - (cond - ((fboundp 'easy-menu-add-item) - (easy-menu-add-item nil '("tools") (easy-menu-create-menu (car menu) - (cdr menu)))) - ((fboundp 'easy-menu-create-keymaps) - (define-key - global-map - [menu-bar tools eudc] - (cons "Directory Search" - (easy-menu-create-keymaps "Directory Search" (cdr menu))))))))) - ;;}}} (provide 'eudc)