(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)