# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 947774837 0
# Node ID 0d7491a370d277ea93aba8704e20ca5000447f71
# Parent  a896ba4a496b70fb17a2b7ac9005eac6d373079b
(toplevel): Remove autoloaded code installing
menu with easymenu, because that causes build problems.

diff -r a896ba4a496b -r 0d7491a370d2 lisp/net/eudc.el
--- 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)