comparison lisp/net/eudc.el @ 27320:0d7491a370d2

(toplevel): Remove autoloaded code installing menu with easymenu, because that causes build problems.

27319:a896ba4a496b

  "Load the Emacs Unified Directory Client.
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)

;;; eudc.el ends here

27320:0d7491a370d2

  "Load the Emacs Unified Directory Client.
This does nothing except loading eudc by autoload side-effect."
  (interactive)
  nil)

;;}}}

(provide 'eudc)

;;; eudc.el ends here