Commit 15fc5b28 authored by Gerd Moellmann's avatar Gerd Moellmann
Browse files

(toplevel): Remove autoloaded code installing

menu with easymenu, because that causes build problems.
parent 8f2a992b
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment