(toplevel): Remove autoloaded code installing

menu with easymenu, because that causes build problems.

1 files changed, 0 insertions, 27 deletions

diff --git a/lisp/net/eudc.el b/lisp/net/eudc.el
index 61d1d03272f..9bee63401b7 100644
--- 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)