Mercurial > emacs
diff lisp/net/eudc.el @ 27320:0d7491a370d2
(toplevel): Remove autoloaded code installing
menu with easymenu, because that causes build problems.
author | Gerd Moellmann <gerd@gnu.org> |
---|---|
date | Thu, 13 Jan 2000 14:47:17 +0000 |
parents | babfd92e24bf |
children | e33d394fe874 |
line wrap: on
line diff
--- 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)