(toplevel): Remove autoloaded code installing

menu with easymenu, because that causes build problems.

diff --git a/lisp/net/eudc.el b/lisp/net/eudc.el
index 61d1d03272f45db4c58e071028e3014de50d6555..9bee63401b7b67fc83fd85793c70a01e85d30d90 100644 (file)
--- a/lisp/net/eudc.el
+++ b/lisp/net/eudc.el
@@ -1243,33 +1243,6 @@ This does nothing except loading eudc by autoload side-effect."
   (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)