From: Gerd Moellmann <gerd@gnu.org>
Date: Thu, 13 Jan 2000 14:47:17 +0000 (+0000)
Subject: (toplevel): Remove autoloaded code installing
X-Git-Tag: emacs-pretest-21.0.90~5357
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=15fc5b2861d26de4556a49f7dc7ca52243318b11;p=emacs.git

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