;ELC   
;;; compiled by nk@arafel.viteno.net on Tue May 10 07:48:30 2005
;;; from file /usr/local/users/nk/pkg-build/test/mule-packages/lookup/lisp/ndmisc.el
;;; emacs version 21.4 (patch 17) "Jumbo Shrimp" XEmacs Lucid.
;;; bytecomp version 2.27 XEmacs; 2000-09-12.
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs 19.

(if (and (boundp 'emacs-version)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "20")))
    (error "`ndmisc.el' was compiled for Emacs 20"))

(or (boundp 'current-load-list) (setq current-load-list nil))


(byte-code "ÆÇ!ˆÁBÈÀBÉÊ‰ËÌ\nÊ%+ÍÉÎÏ#ˆÍÉÐÑ#ˆÒBÓÒ!¬…ÔÒÊ\"ˆÊ‡" [ndmisc-agent ndmisc-version class location options current-load-list require lookup "0.3" ndmisc nil vector :agent put :arranges (lookup-arrange-default-headings) :adjusts (lookup-adjust-goto-min) ndmisc-url-dictionary default-boundp set-default] 6)
(defalias 'lookup-make-url-reference #[(url heading) "¬‹ÆÇÈ#É!ˆÊË	\nÇ%+‰ÌÍÀ#ˆ*)‡" [jump dictionary code heading entry ndmisc-url-dictionary lookup-new-dictionary nil "URL" lookup-dictionary-init vector :entry ndmisc-url-jump lookup-entry-put-property ndmisc-agent url] 7])
(defalias 'ndmisc-url-jump #[(entry) "Á‰ÂH)!‡" [entry browse-url 2] 4])
(put 'ndmisc 'content 'ndmisc-dictionary-content)
(defalias 'ndmisc-dictionary-content #[(dictionary entry) "	a­¦‰ÆH)‰ÇH)rqˆÈÉ!)‰a«‚ÊËÌ\n$+‡" [ndmisc-url-dictionary dictionary keys heading url entry 3 2 substitute-command-keys "\\[lookup-entry-open-other]" "See also:" format "%s\n\n  %s\n\nType `%s' to go to this site.\n" lookup-entry-buffer] 6])
(put 'ndmisc 'open 'ndmisc-dictionary-open)
(defalias 'ndmisc-dictionary-open #[(dictionary entry) "\n	a­ƒÃ!‡" [entry ndmisc-url-dictionary dictionary ndmisc-url-jump] 2])
(provide 'ndmisc)