;ELC   
;;; Compiled by aatharuv@cutter-john.mit.edu on Sun Jan  5 18:16:14 2003
;;; from file /afs/sipb.mit.edu/contrib/emacs/packages/w3-4.0pre.47/lisp/w3-java.el
;;; in Emacs version 21.1.1
;;; with bytecomp version 2.85
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`w3-java.el' was compiled for Emacs 19.29 or later"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(custom-declare-group 'w3-java nil "Emacs/W3 Java Runtime support" :prefix "w3-java" :group 'w3)
#@48 *The program name of the Java virtual machine.
(custom-declare-variable 'w3-java-vm-program '"hotjava" '(#$ . -741) :type '(choice (string :tag "External program") (function :tag "Lisp function")) :group 'w3-java)
#@224 *Arguments that should be passed to the program `w3-java-vm-program'.
The special symbol 'file may be used in the list of arguments and will
be replaced with the name of a file containing the commands to run a
Java applet.
(custom-declare-variable 'w3-java-vm-arguments ''(file) '(#$ . -962) :type 'list :group 'w3-java)
(defalias 'w3-java-run-applet #[(options params) "\306\307!\212\310\311!q\210\312 \210\313\314\315\316\317\320\321\322\323\324\325\326\327\330\331	\332#\333\330\334\n\335#\336\337\340\261\210\341ed#\210;\203P \342\211\343\344\345\346\303)BBBB!\347\f!\210\f*\202X \343\350\303)BB!*\207" [file options params w3-java-vm-program proc process-connection-type url-generate-unique-filename "%s-runjava.html" get-buffer-create " *java*" erase-buffer "<html>\n" " <head>\n" "  <title>Emacs/W3 Java Application</title>\n" " </head>\n" " <body>\n" "  <p>\n" "   This page was automatically generated by Emacs/W3 to\n" "   run this Java applet.  Any problems with the HTML should\n" "   be referred to <a href='mailto:w3-bugs@xemacs.org'>\n" "   the Emacs/W3 bug list</a>.\n" "  </p>\n" "  <hr>\n" "  <applet " mapconcat #[(x) "\301\302@A#\207" [x format "%s=\"%s\""] 4] " " ">\n" #[(x) "\301\302@A#\207" [x format "   <param name=\"%s\" value=\"%s\">"] 4] "\n" "  </applet>\n" " </body>\n" "</html>\n" write-region nil eval start-process name buffer process-kill-without-query funcall w3-java-vm-arguments] 19])
(provide 'w3-java)
