;ELC   
;;; compiled by jwz@thalidomide on Sat May 14 17:12:33 1994
;;; from file /th/jwz/emacs19/lisp/w3/w3.el
;;; emacs version 19.10 Lucid (beta23).
;;; bytecomp version 2.24; 26-Apr-94.
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs 18.

(if (and (boundp 'emacs-version)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19")))
    (error "This file was compiled for Emacs 19."))

(byte-code "¬ŽÁÂ!¬‰ÁÃ!¬„ÄÅ!ˆÆÇ!¬‡ÈÇÉÊË$ˆÆÌ!¬‡ÈÌÍÎË$ˆÄÏ!ˆÆÐ!¬„ÐÑMˆÆÒ!¬„ÒÓMˆÁ‡" [noninteractive featurep efs efs-auto require ange-ftp fboundp gopher-dispatch-object autoload "gopher" "Get a gopher doc." t html-mode "html-mode" "Edit html documents." w3-vars add-hook #[(hook-var function &optional at-end) "À	!¬„	ÂLˆ	J‰<«†@Ä=«ƒCÅ\"?­’	«ˆÈC\"ª„BL)‡" [boundp hook-var nil old lambda w3-member function at-end append] 5 "Add a function to a hook.\nFirst argument HOOK-VAR (a symbol) is the name of a hook, second\n argument FUNCTION is the function to add.\nThird (optional) argument AT-END means to add the function at the end\n of the hook list instead of the beginning.  If the function is already\n present, this has no effect.\nReturns nil if FUNCTION was already present in HOOK-VAR, else new\n value of HOOK-VAR."] setenv #[(variable &optional value) "ÀÁ\n\"«…ÃÄ\n\"‡ÅÆ\nÁP!PÇ	\n	­½À	@\"« Ç=«‹Í	@\"ª‰	\nÁQ ˆÇ‰	ªU	A‰	¬K\nÁQBª?+‡" [string-match "=" variable error "Environment variable name `%s' contains `='" "\\`" regexp-quote nil process-environment scan case-fold-search pattern value delq] 5 "Set the value of the environment variable named VARIABLE to VALUE.\nVARIABLE should be a string.  VALUE is optional; if not provided or is\n`nil', the environment variable VARIABLE will be removed.  \nThis function works by modifying `process-environment'." "sSet environment variable: \nsSet %s to value: "]] 5)
(fset 'nntp-header-number '(macro . #[(header) "À	ÂE‡" [aref header 0] 3 "\
Return article number in HEADER."]))
(fset 'nntp-header-subject '(macro . #[(header) "À	ÂE‡" [aref header 1] 3 "\
Return subject string in HEADER."]))
(fset 'nntp-header-from '(macro . #[(header) "À	ÂE‡" [aref header 2] 3 "\
Return author string in HEADER."]))
(fset 'nntp-header-xref '(macro . #[(header) "À	ÂE‡" [aref header 3] 3 "\
Return xref string in HEADER."]))
(fset 'nntp-header-lines '(macro . #[(header) "À	ÂE‡" [aref header 4] 3 "\
Return lines in HEADER."]))
(fset 'nntp-header-date '(macro . #[(header) "À	ÂE‡" [aref header 5] 3 "\
Return date in HEADER."]))
(fset 'nntp-header-id '(macro . #[(header) "À	ÂE‡" [aref header 6] 3 "\
Return Id in HEADER."]))
(fset 'nntp-header-references '(macro . #[(header) "À	ÂE‡" [aref header 7] 3 "\
Return references in HEADER."]))
(defvar w3-b64-encoding "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/" "\
The string to use to encode with base 64.")
(byte-code "ÀÁMˆÂÃMˆÄÅMˆÆÇM‡" [b0 #[(x) "ÁÂÄ\"Å\"H‡" [w3-b64-encoding logand lsh x -18 63] 5] b1 #[(x) "ÁÂÄ\"Å\"H‡" [w3-b64-encoding logand lsh x -12 63] 5] b2 #[(x) "ÁÂÄ\"Å\"H‡" [w3-b64-encoding logand lsh x -6 63] 5] b3 #[(x) "Á\nÃ\"H‡" [w3-b64-encoding logand x 63] 4]] 2)
(fset 'b64-encode #[(str) "À	!Â‰GÅV«ÆÅOÇQÅÈO‰ªkP‰*‡" [b64-encode-internal str "" y x 76 0 "\n" nil] 5 "\
Do base64 encoding on string STR and return the encoded string.
This code was converted to lisp code by me from the C code in
ftp://cs.utk.edu/pub/MIME/b64encode.c.  Returns a string that is
broken into 76 byte lines."])
(fset 'b64-encode-internal #[(str) "ÀÁ‰‰GÇV«’ÈÀÇO!ÈÇÁO!P‚¯ GÇU«µÀHÉHÊHËÌÍÎ\"Ï\"ÌÍÎ\"Ð\"Í\nÎ\"#ÑÒÓ!Ô!Õ!Ö!%ªÒGÊU«©ÀHÉHËÌÍÎ\"Ï\"ÌÍÎ\"Ð\"\"Ñ×Ó!Ô!Õ!$ª¢GÉU«šÀHËÌÍÎ\"Ï\"!ÑØÓ!Ô!#ªÙ,‡" [0 nil w3 w2 w1 word str 3 b64-encode-internal 1 2 logior lsh logand 255 16 8 format "%c%c%c%c" b0 b1 b2 b3 "%c%c%c=" "%c%c==" ""] 7 "\
Do base64 encoding on string STR and return the encoded string.
This code was converted to lisp code by me from the C code in
ftp://cs.utk.edu/pub/MIME/b64encode.c.  Returns the entire string,
not broken up into 76 byte lines."])
(fset 'w3-uuencode-buffer #[(&optional buff) "®pŠqˆÁÂ!ˆÃedÅ‰ÆÇ&ˆÁÈ!)‡" [buff w3-lazy-message "UUencoding..." call-process-region w3-uuencode-program t nil "w3-temp-file" "UUencoding... done."] 8 "\
UUencode buffer BUFF, with a default of the current buffer."])
(fset 'w3-uudecode-buffer #[(&optional buff) "®pÁ ŠqˆebˆÃÄÅÆ#ˆÇÈ\nP!ˆÉÊ!ˆËed#ˆÉÊ!ˆÍ ˆÎ\n!ˆÉÏ!ˆÅÐÑ*‡" [buff w3-generate-unique-filename newname re-search-forward "^begin [0-9][0-9][0-9] \\(.*\\)$" nil t replace-match "begin 600 " w3-lazy-message "UUdecoding..." call-process-region w3-uudecode-program erase-buffer insert-file-contents "UUdecoding... done." (delete-file newname) ((error))] 4 "\
UUdecode buffer BUFF, with a default of the current buffer."])
(fset 'w3-decode-pgp/pem #[(arg) "À ˆÁ ‡" [mc-decrypt-message w3-parse-mime-headers] 1 "\
Decode a pgp/pem response from an HTTP/1.0 server.
This expects the decoded message to contain all the necessary HTTP/1.0 headers
to correctly act on the decoded message (new content-type, etc)."])
(defvar w3-basic-auth-storage nil "\
Where usernames and passwords are stored.  Its value is an assoc list of
assoc lists.  The first assoc list is keyed by the server name.  The cdr of
this is an assoc list based on the 'directory' specified by the url we are
looking up.")
(fset 'w3-public-key-exists #[(entity scheme) "ÀŠ\nÃ=«¡ÄÅ!qˆÆ ˆÇÀÉÀÊË&ˆebˆÍÀÉ#ªœ\nÏ=«’Ð!qˆebˆÍÀÉ#ª…ÒÓ\n\"ˆÔp!ˆ)	)‡" [nil retval scheme pgp get-buffer-create " *keytmp*" erase-buffer call-process mc-pgp-path t "+batchmode" "-kxaf" entity search-forward mc-pgp-key-begin-line pem find-file-noselect mc-ripem-pubkeyfile message "Bad value for SCHEME in w3-public-key-exists %S" kill-buffer] 8 "\
Return t iff a key for ENTITY exists using public key system SCHEME.
ENTITY is the username/hostname combination we are checking for.
SCHEME is a symbol representing what public key encryption program to use.
       Currently only 'pgp (Pretty Good Privacy) and 'pem (RIPEM) are
       recognized."])
(fset 'w3-get-server-keys #[(entity &optional scheme) "¬‚	ŠÂ\"«ƒÄªžÅÆ\"ˆÇÉÊËÌÍ\"ÌÎ\"#!ˆÏ ˆÐ!))‡" [scheme mc-default-scheme w3-public-key-exists entity nil string-match "\\([^@]+\\)@\\(.*\\)" " *w3-get-keys*" w3-working-buffer w3-retrieve format "gopher://%s:79/0%s/w" w3-match 1 2 mc-snarf-keys kill-buffer] 7 "\
Make sure the key for ENTITY exists using SCHEME.
ENTITY is the username/hostname combination to get the info for.  
       This should be a string you could pass to 'finger'.
SCHEME is a symbol representing what public key encryption program to use.
       Currently only 'pgp (Pretty Good Privacy) and 'pem (RIPEM) are
       recognized."])
(fset 'w3-fetch-with-pgp #[(url recipient type) "¬„ÁÂ!ˆÃÅÆ!\"Ç‰	\nŠË\"ˆÎÏ!qˆÐ ˆÑÓ\n±ˆÔ\"ˆebˆÕÓÓQÇÆ#«„e`|ˆÖ 	×ØÙÚ=«ƒÛª‡Ü=­Ý#BßØàÚ=«ƒáª‡Ü=­â\"BD)ãÏ!ˆäåæ!!+‡" [noninteractive require mailcrypt w3-create-mime-request url w3-view-this-url t nil w3-request-extra-headers w3-request-data request w3-get-server-keys recipient type get-buffer-create " *w3-encryption*" erase-buffer "\n\n" mail-header-separator "\n" mc-encrypt-message re-search-forward buffer-string "Authorized" format "%s entity=\"%s\"" pgp "PGP" pem "PEM" w3-pgp/pem-entity "Content-type" "application/x-www-%s-reply" "pgp" "pem" kill-buffer w3-retrieve w3-parse-relative-link "/"] 6 "\
Retrieve a document with public-key authentication.
      URL is the url to request from the server.
RECIPIENT is the server's entity name (usually webmaster@host)
     TYPE is a symbol representing what public key encryption program to use.
          Currently only 'pgp (Pretty Good Privacy) and 'pem (RIPEM) are
          recognized."])
(fset 'w3-basic-auth #[(url &optional prompt overwrite) "À	!‰@Ã\nA@QÅ\n8ÇÇ	Ç\nÇÌ\"£‰\n¬¯«¦ÏÐÑ \"Ó!	ÔÕÖ	#!‰BDB‚Ö ÇªÿÌ\n\"£‰¬¼\n«¸¬´×Ø\n@@!ÙP\"«ˆ\n@Aª–×ØÚ\n@@!!ÙP\"«†\n@A\nA‰\n¬H¬„¬„««ÏÐÑ \"Ó!	ÔÕÖ	#!Ì\"‰\nB\nAB¡ˆ.‡" [w3-grok-http-href url href ":" server 2 path nil user pass byserv retval assoc w3-basic-auth-storage prompt read-string "Username: " user-real-login-name w3-passwd-entry-func "Password: " b64-encode format "%s:%s" string-match regexp-quote "/*[^/]+" w3-basepath overwrite] 8 "\
Get the username/password for the specified URL.
If optional argument PROMPT is non-nil, ask for the username/password
to use for the url and its descendants.  If optional third argument
OVERWRITE is non-nil, overwrite the old username/password pair if it
is found in the assoc list."])
(byte-code "ÀÁ!¬„ÂÃMˆÀ‡" [boundp MULE string-width length] 2)
(fset 'w3-truncate-string #[(str len &optional pad) "ÀÁ!«ÍÂ!Ä‰È!	X¬¦Ê8!\\‰	X«‡TªiËÌÍ\"\"ˆÄ‰•O«ŽÌ	È!Z\"Pª+‡G	V«‡Ä	Oª«‡G	V«ƒÏª‰Ì	GZ\"P‡" [boundp MULE string-to-char-list str 0 sw n cl string-width len char-width string-match make-string 46 pad ""] 5 "\
Truncate string STR so that string-width of STR is not greater than LEN.
If width of the truncated string is less than LEN, and if a character PAD is
defined, add padding end of it."])
(fset 'w3-split #[(str del) "À‰Ã\"«šÆ‰”OÆ•ÀOÃÇ	\"¬h	‰D\nBª`Èš¬†‰D\nB\n*‡" [nil y x string-match del str 0 "^[ \\	]+$" ""] 3 "\
Split the string STR, with DEL (a regular expression) as the delimiter.
Returns an assoc list that you can use with completing-read."])
(fset 'w3-handle-form #[(num) "ebˆÀÁÂÃ#«ˆÄÅ”Å•\"ªÆÂ‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰	\nØÙ\"A®ÚØÛ\"A®ƒÜÃ!BÀÝÂÃ#…«Þ”Þ•B‰@bˆÀßÂÃ#«‡Þ•Þ”Bª†Âˆ``BÄAA\"@@|ˆØà\"A®á–Øâ\"A®‚Øã\"A®ÆäØå\"A®æ!äØç\"A®è!\nØé\"«‡Âê˜«–ØÛ\"«Øë\"ABìš¬†íš«„ìš«‰Æš«ƒîïš«Ÿð\n1¯2B2‚d óô—P!õ!¬ƒö#	@bˆ÷	!ˆø@`9ð\n1¯Ã%ˆ÷úû\"«ƒÆªü!ˆ‚d .‡" [re-search-forward "<FORM\\([^>]*\\)>" nil t w3-parse-args 1 "" formatfun options prompt maxlength size checked value default name type input nd st tmp method action args assoc "method" "GET" "action" w3-view-url "<INPUT" 0 ">" "type" "text" "name" "value" string-to-int "size" "20" "maxlength" "10000" "checked" "SUBMIT" "src" "CHECKBOX" "RADIO" "on" "HIDDEN" w3form num w3-hidden-forms intern "w3-form-format-" fboundp w3-form-format-unknown w3-insert w3-add-zone w3-node-style w3-member ("CHECKBOX" "RADIO") " "] 18 "\
Parse a form, expecting the region to be narrowed between the <FORM>
and </FORM> tags."])
(fset 'w3-form-format-int #[(&rest args) "À	@®Â	A@Ã#‡" [w3-truncate-string args "" 95] 4 "\
Format an integer entry field"])
(byte-code "ÀÁMˆÂÁMˆÃÁM‡" [w3-form-format-url w3-form-format-int w3-form-format-float w3-form-format-date] 2)
(fset 'w3-form-format-reset #[(&rest args) "@Á˜«‚Â‡@‡" [args "" "Reset fields"] 2 "\
Format a reset button"])
(fset 'w3-form-format-password #[(&rest args) "@®ÁA@‰G\nY«†Ä\nÅ\"ª…ÄGÅ\"G\nY«ƒÁª‡Ä\nGZÆ\"P*‡" [args "" size value make-string 42 46] 5 "\
Format a password entry field"])
(fset 'w3-form-format-checkbox #[(&rest args) "À	8ÃÄ\n«ƒÅªÆ\")‡" [2 args checked format "[%s]" "X" " "] 3 "\
Format a checkbox entry"])
(fset 'w3-form-format-radio 'w3-form-format-checkbox)
(fset 'w3-form-format-submit #[(&rest args) "@Á˜«‚Â‡@‡" [args "" "Submit this form"] 2 "\
Format a form submit button"])
(fset 'w3-form-format-text #[(&rest args) "À	@	A@Â#‡" [w3-truncate-string args 95] 4 "\
Format a text field"])
(defun w3-form-format-textarea (&rest args) "\
Format a multiline text box" "Multiline text entry")
(byte-code "ÀÁMˆÂÁM‡" [w3-form-format- w3-form-format-text w3-form-format-unknown] 2)
(fset 'w3-handle-textareas #[(num action) "ÀÁ‰‰‰‰ÂÁ‰‰‰	\nebˆÎÏÁÐ#­áÑ”ÒÓ”Ó•\"ÔÕ!ˆÎÖÁÐ#«ˆÔÕ!ˆÑ”ª„Áˆ`{‰\n\n×Ø\"A®Õ|ˆÙÚ!ˆÛ`Ý\n	¯Ð%ˆª.‡" ["TEXTAREA" nil 100 input nd st options maxlength size checked value default name type re-search-forward "<TEXTAREA\\([^>]*\\)>\\\n*" t 0 w3-parse-args 1 replace-match "" "\\n*</TEXTAREA[^>]*>\\\n*" assoc "name" w3-insert "Multiline Text Entry Area" w3-add-zone w3-node-style w3form action num] 16 "\
Handle <SELECT> tags in a form"])
(fset 'w3-handle-selections #[(num action) "ÀÁ‰‰‰‰ÂÁ‰‰‰‰‰ÃÁ	\nebˆÓÔÁÕ#…;Ã”	Ö×”×•\"ØÙ!ˆÁÁÁÁÓÚÁÕ#«ˆØÙ!ˆÃ”ª„Áˆ`	bˆÓÛÕ#«¯Ö×”×•\"\nÜÝ”Ý•{!‰‰BBÞ!V«„Þ!ßà\n\"«NªIá\\	|ˆßâ\"A®Ùãßä\"A®å!ßæ\"®…ßç\"‰«•	bˆèé!ˆêë\"ˆèì!ˆ‚. ¬ŒGS8@ª„	bˆí\"èîÁ#!ˆï	`0ñ23¯Õ%ˆ‚. .‡" ["OPTION" nil 100 0 sel longest mult input nd st parm options maxlength size checked value default name type re-search-forward "<SELECT\\([^>]*\\)>\\\n*" t w3-parse-args 1 replace-match "" "\\n*</SELECT[^>]*>\\\n*" "[\\\n ]*<OPTION\\([^>]*\\)> *\\([^<]*\\)" w3-eat-trailing-space 2 string-width assoc "selected" 5 "name" string-to-int "size" "20" "several" "multiple" w3-insert "<UL>\n" mapcar #[(x) "ÀÁÂ@@š«ƒÆªÇ@%!‡" [w3-insert format "<LI><INPUT TYPE=\"CHECKBOX\" NAME=\"%s\" VALUE=\"%s\" %s>%s\n" name x default "CHECKED" ""] 7] "</UL>\n" w3-truncate-string w3-form-format-text w3-add-zone w3-node-style w3form action num] 16 "\
Handle <SELECT> tags in a form"])
(fset 'w3-handle-forms #[nil "qˆÁÂ‰‰ebˆÇÈÂÉ#­ÐÊ”ËÁ”Á•\"ÇÌÂÉ#«„Ê•ªd}ˆÍÎ\"A®ÏÍÐ\"A®ƒÑÉ!ÒB\"ˆÓB\"ˆÔ!ˆTÕÖ×\"ˆ~ˆª),‡" [w3-working-buffer 1 nil z y x num re-search-forward "<FORM\\([^>]*\\)>" t 0 w3-parse-args "</FORM>" assoc "method" "GET" "action" w3-view-url w3-handle-selections w3-handle-textareas w3-handle-form w3-replace-regexp "</*FORM[^>]*>" "<p>"] 5 "\
Take care of parsing an entire buffer for <FORM> tags."])
(fset 'w3-do-text-entry #[(formobj zone) "	pEÂÃÄÅ8Æ8#!É!ˆÊ ˆË ˆÌÍ8!ˆÏÐ!ˆÑÒÓ\"*‡" [formobj zone get-buffer-create format "%d:%s" 9 3 buff data switch-to-buffer-other-window indented-text-mode erase-buffer w3-insert 5 w3-current-last-buffer message "Press C-c C-c when finished with text entry." local-set-key "" w3-finish-text-entry] 7 "\
Read in a multiline text entry area."])
(fset 'w3-finish-text-entry #[nil "ƒž @A@Ã8	A@Ã	8Ç	8É	8\nË Í	8Ï	8Ñ	8Ó	8Õ	8××ÚÛÜ\"ˆÝp!ˆÞ ˆ«Šß!«…à!¬…áâ!ª¸ã!ˆ$«ƒå ˆæ\n!ç\n!è\n!ˆé*ë\n¯ì%.‡$¬ƒå ˆ×‡" [w3-current-last-buffer formobj zone 2 buff actn type 3 name 4 deft buffer-string valu 6 chkd 7 size 8 maxl 9 ident 10 options nil st nd local-set-key "" undefined kill-buffer delete-window bufferp buffer-name message "Could not find the form buffer for this text!" switch-to-buffer buffer-read-only toggle-read-only w3-zone-start w3-zone-end w3-delete-zone w3-add-zone w3-node-style w3form t] 15 "\
Finish a text entry area" nil])
(fset 'w3-do-form-entry #[(formobj zone) "A@Â8Ä8Æ8È8	Ê8Ì8Î8Ð8Ò8Ô!×!ÙÛÜ—P!Þš„8ßš« ¬ƒá ˆâ\"ˆŠã!¬ƒä «ƒá ˆåš«‡?ª¢æš¬ßš¬˜çš«‡è!ˆªŒé	%	çš¬äæš«‡ê!ˆªØßš¬Óë!ˆ|ˆbˆì	#!ˆí`.ï		¯ð%ˆ ¬ƒá ˆ1«„ò 3ôõ!«‡ö37\"ˆøù\"«…úª¤øû\"«…üª™øý\"«…þªŽÿ!G@ š«ƒð)ª‰A Ù	#ˆ­‰A 	#.‡" [formobj actn 2 type 3 name 4 deft 5 valu 6 chkd 7 size 8 maxl 9 ident 10 options w3-zone-start zone st w3-zone-end nd nil submit-it intern "w3-form-format-" formatfun "SUBMIT" "TEXTAREA" buffer-read-only toggle-read-only w3-do-text-entry fboundp w3-form-format-unknown "CHECKBOX" "RADIO" "RESET" w3-revert-form w3-read-correct-format w3-set-radio-button w3-delete-zone w3-insert w3-add-zone w3-node-style w3form t w3-running-FSF19 w3-only-links w3-zones-list boundp MULE w3-mule-attribute-zones w3-mule-attribute string-match "^isindex$" isindex "^internal-gopher$" gopher "^internal-wais$" wais w3-zones-matching 1 w3-submit-form] 15 "\
Read in a form entry field.
FORMOBJ is the data returned by w3-zone-at, and contains all the information
        about the entry area (size, type, value, etc)
   ZONE is the actual zone object.  This should be able to be passed to
        w3-delete-zone."])
(fset 'w3-zones-matching #[(actn &optional raw) "À ÂÂ	«¥Å	@!‰@Æ=«”Ç8š«Œ	«„	@ªB	A‰¬[	¬¡\n‰«›	@‰@Æ=«ŒÇ8š«„B	A‰¬e+‡" [w3-all-zones big nil data result w3-zone-data w3form 9 actn raw w3-hidden-forms] 3 "\
Return a list of data entry zones in form number ACTN
With optional second argument raw, don't grab the data of the zone, but
return the actual zone."])
(fset 'w3-revert-form #[(actn) "ŠÀ	Â\"ÄÄÄÄÄÄ	Ä\nÄÄÄÄÄÄÄÄ«ƒÔ ˆÕÖ\"ˆ.«„Ø ÚÛ!­†Ü\")‡" [w3-zones-matching actn t zones nil data type name deft valu chkd size maxl idnt strt end cur options formatfun buffer-read-only toggle-read-only mapcar #[(cur) "À	!‰A@Ä\n8Æ\n8È\n8	Ê\n8Ì\n8Î\n8Ð\n8Ò\n8Ô\n8Ö	!Ø	!ÚÛ—P!Ý!¬ƒÞßà\"«‚á‡ßâ\"«†	ª„	#«†bˆª„ä	!ˆ|ˆbˆå#!ˆæ`'è	¯é%‡" [w3-zone-data cur data actn 2 type 3 name 4 deft 5 valu 6 chkd 7 size 8 maxl 9 idnt 10 options w3-zone-start strt w3-zone-end end intern "w3-form-format-" formatfun fboundp w3-form-format-unknown w3-member ("SUBMIT" "RESET") nil ("RADIO" "CHECKBOX") w3-running-FSF19 w3-delete-zone w3-insert w3-add-zone w3-node-style w3form t] 16] w3-running-FSF19 w3-only-links w3-zones-list boundp MULE w3-mule-attribute-zones w3-mule-attribute] 3 "\
Revert all values for form ACTN to their defaults"])
(fset 'w3-form-encode-multipart #[(formobjs &optional sep) "®Á‰ÃÄÆ#)B‡" [sep "--some-separator" separator mapconcat #[(formobj) "ÀÁ\n8Ã\"«…Ä\n8«ˆÀÁ\n8Å\"«‚Æ‡ÈÉ\n8ÊË\n8°‡" [w3-member 2 formobj ("CHECKBOX" "RADIO") 6 ("RESET") "" separator "\nContent-id: " 3 "\n\n" 5] 6] formobjs "\n"] 6 "\
Create a multipart form submission.
Returns a cons of two strings.  Car is the separator used.
cdr is the body of the MIME message."])
(fset 'w3-form-encode #[(result &optional isindex-query) "À\nÃ=«ŠÄÅ@8Pªç\nÇ=«¡«ÞÈ@8—Éš«‹ÊÅ@8!ËA‰ªa«½ÌÍ@8Î\"«‡Ï@8«¤ÌÍ@8Ð\"¬šÈ@8ÑÊÅ@8!	Àš¬ƒÒªÀ	°A‰¬C	)‡" ["" query isindex-query gopher "	" 5 result isindex 3 "isindex" w3-hexify-string nil w3-member 2 ("CHECKBOX" "RADIO") 6 ("RESET" "SUBMIT") "=" "&"] 6 "\
Create a string suitably enocoded for a URL request."])
(fset 'w3-form-encode-ask-block #[(result) "À\n«¦Ã\n@8Ä˜«†Å\n@8«’ÆÃ\n@8Ç\"¬‰ÈÉ	Ê\n@8#\nA‰¬Z	ËP)‡" ["" query result 2 "RADIO" 6 w3-member ("SUBMIT" "RESET") format "%s\n%s" 5 "\n.\n"] 6 "\
Submit a gopher ask block to the server."])
(fset 'w3-submit-form #[(ident isindex &optional actn) "À	!Ã\n\"@®Ç–A	ÊË	\"«‡Ì	Í\"	Î=«ˆÏ	P!ªÚÐ=«Ñ$ˆÕÖ‰\"ªÅ×˜«Ø\n!Ï	ÙÚP!P!ª¯Û˜«”ÜÝBC á	!+ª•Ç˜«Šáâã	#!ª…äå\",‡" [w3-zones-matching ident result w3-form-encode isindex query actn "GET" themeth theurl string-match "\\([^\\?]*\\)\\?" w3-match 1 gopher w3-fetch wais w3-perform-wais-query w3-current-server w3-current-port w3-current-file w3-sentinel nil "GOPHER-ASK" w3-form-encode-ask-block w3-hexify-string "	+	1\n+-1\n" "POST" "Content-type" "application/x-www-form-urlencoded" w3-request-extra-headers w3-request-data w3-request-method w3-maybe-relative format "%s?%s" message "Unknown submit method: %s"] 5 "\
Submit form entry fields matching ACTN as their action identifier."])
(fset 'w3-matching-radios #[(ext) "À ÂÃ!8ÆÃ!8È	È\nÈÌÍ	\"ˆ.‡" [w3-all-zones big 9 w3-zone-data ext idnt 3 name nil data cur result mapcar #[(cur) "À	!‰@Ã=­–Ä\n8š­Æ\n8š­‡	B‰‡" [w3-zone-data cur data w3form 9 idnt 3 name result] 3]] 3 "\
Return a list of all zones containing radio buttons with the same name
as that in EXT."])
(fset 'w3-set-radio-button #[(ext) "ŠÀ	!ÃÄ	!8ÆÄ	!8È	È\nÈÈÈÈÈÈÈÈÈ\nƒÄ\n@!‰A@	Ô8\nÆ8Õ8Ö8×8Ø8Ù8Ã8Ú8Û\n@!Ü\n@!«ÅÝ	\n@\"¬¾Þ\n@!ˆbˆ|ˆÈßà#!ˆá`\"ã	\n¯ä%ˆªÇ¬ÃÝ	\n@\"«¼Þ\n@!ˆbˆ|ˆäßà#!ˆá`\"ã	\n¯ä%ˆ\nA‰„7 .%¬ƒæ ˆ'«„è )êë!­†ì)-\")‡" [w3-matching-radios ext result 9 w3-zone-data idnt 3 name nil actn type deft valu chkd size maxl strt end data options 2 4 5 6 7 8 10 w3-zone-start w3-zone-end w3-zone-eq w3-delete-zone w3-insert w3-form-format-radio w3-add-zone w3-node-style w3form t buffer-read-only toggle-read-only w3-running-FSF19 w3-only-links w3-zones-list boundp MULE w3-mule-attribute-zones w3-mule-attribute] 16 "\
Set the radio button at EXT to be on.  Will automatically
toggle other radio butons with the same name to be off."])
(byte-code "ÀÂÄÆÇ#ÉÊËÌ#ÍQÉÊË	Ì#ÍQÐÒÔÖØÚÉÌÜ°ÞÆ‡" [(("Sunday" . 0) ("Monday" . 1) ("Tuesday" . 2) ("Wednesday" . 3) ("Thursday" . 4) ("Friday" . 5) ("Saturday" . 6) ("Tues" . 2) ("Thurs" . 4) ("Sun" . 0) ("Mon" . 1) ("Tue" . 2) ("Wed" . 3) ("Thu" . 4) ("Fri" . 5) ("Sat" . 6)) weekday-alist (("January" . 1) ("February" . 2) ("March" . 3) ("April" . 4) ("May" . 5) ("June" . 6) ("July" . 7) ("August" . 8) ("September" . 9) ("October" . 10) ("November" . 11) ("December" . 12)) full-monthname-alist (("Jan" . 1) ("Feb" . 2) ("Mar" . 3) ("Apr" . 4) ("May" . 5) ("Jun" . 6) ("Jul" . 7) ("Aug" . 8) ("Sep" . 9) ("Oct" . 10) ("Nov" . 11) ("Dec" . 12)) monthabbrev-alist append (("Sept" . 9)) monthname-alist "\\(" mapconcat car "\\|" "\\)\\.?" monthname-regexp weekday-regexp "\\(0?[1-9]\\|1[0-2]\\)" monthnumber-regexp "\\(0[1-9]\\|1[0-2]\\)" monthnumber-regexp-two-char "\\(0?[1-9]\\|[12][0-9]\\|3[01]\\)" monthday-regexp "\\([0-2][0-9]\\|3[01]\\)" monthday-regexp-two-char "[0-2][0-9][0-9][0-9]" full-year-regexp "[0-9][0-9]" short-year-regexp "\\)" year-regexp "[ -.,/']+" elt-separator-regexp] 5)
(defconst date-regexps (byte-code "	\nÃ	Å°ÆB	\nÃ	Å°ÈB\n	Ã	Å°ÉBÃ\n	Å	°ÊB\n		ÃÌ°ÍB		\n°ÎB		\n°ÏBÑÑ°ÓB		\nÃ	Å°	ÕB	\n	Ã	Å°	ÖB×Ø\nÙÃÌ°	ÚB¯‡" [monthname-regexp elt-separator-regexp monthday-regexp "\\(" year-regexp "\\)?" (4 nil 1 2) monthnumber-regexp (4 1 nil 2) (4 nil 2 1) (4 nil 3 2) full-year-regexp "\\)" (3 2 nil 1) (1 nil 2 3) (1 2 nil 3) monthnumber-regexp-two-char "?" monthday-regexp-two-char (1 2 nil 3) weekday-regexp (5 nil 2 3) (5 nil 3 2) " " "  ?" " [0-9:]+ " (4 nil 2 3)] 19) "\
Assoc list of regexps and match locators.
A match locator is a list of four numbers indicating which submatch of the
regexp contains the year, month number, month name, and day of the month.
The list elements may be nil if that information is not available.")
(fset 'w3-datep #[(date-string) "ÁGÅU«„Æªš«—ÇÈ@@ÉQ\"«†ÁÆªlA‰¬i\n*‡" [date-regexps nil result regexp-alist date-string 0 t string-match "^" "$"] 5 "\
Parse DATE-STRING, and return a date object; err if the parse is invalid.
If DATE-STRING contains only whitespace, return a null date object.
If DATE-STRING is nil, use the result of `parse-date-default-function' instead."])
(fset 'w3-intp #[(str) "ÀÁ\n\"‡" [string-match "^[0-9]+$" str] 3 "\
Integer checker"])
(fset 'w3-floatp #[(str) "À‰ÃÄ\"«˜Æ”Æ•OÇ”Ç•OÈ\n!­ˆÈ	!ªƒÈ!*‡" [nil y x string-match "^\\([0-9]+\\)\\.\\([0-9]+\\)$" str 1 2 w3-intp] 3 "\
Floating point checker"])
(fset 'w3-urlp #[(str) "À	\n\"‡" [string-match w3-nonrelative-link str] 3 "\
URL checker..."])
(fset 'w3-optionp #[(val) "¬†ÁÂ!ˆÃ‡Ä‡" [val message "Please make a selection from the menu" nil t] 2 "\
Option list checker"])
(byte-code "ÀÁMˆÂÀMˆÃÀMˆÄÀM‡" [w3-textp (lambda (str) t) w3-p w3-passwordp w3-textareap] 2)
(fset 'w3-read-correct-format #[(type name options num value) "ÀÁÂ—\"!Å„Í Éš¬…Êš«ŠËÌ\"‚© Íš¬…Îš«‰ËÏ\"ªîÐš«ŠÒ\"ªßÓš«À«…ÕÖ!¬×ØÅÚ%ªžÖÛÜ!«‰<«„ª†iÝDÞ DßàBD\":«¡@ªšáš«‰Ëâ\"ªŒãš«‡Ëä\"Õ!¬ƒå!«‡Ú‰‚ æç—\"ˆèé!ˆ‚ +‡" [read format "w3-%sp" type value nil exitp valu func "TEXT" "" read-string "Enter text: " "FLOAT" "INT" "Enter numeric value: " "PASSWORD" w3-passwd-entry-func "Enter password:" "OPTION" window-system fboundp w3-x-popup-menu completing-read "Please choose: " options t boundp last-input-event 1 selected-window "WWW" "Select An Item" "DATE" "Enter date: " "URL" "Enter valid URL: " w3-textp message "Wrong format for type %s, try again." sit-for 2] 7 "\
Read in a FORMS entry with type TYPE, and do typechecking"])
(fset 'w3-convert-ask-to-form #[(ask) "ÀÁÂÁÇÈ	\"ƒü Ê	Ë\"ÌÊ	Í\"—!T	‰GÂ•U«„Â•ªƒÂ•TÎO	Ï˜«ˆPªEÐ˜¬ŠÑ˜¬…Ò˜«žÓÔÕÖ\"Ÿ\"×Ø@®ÙA@®Á%ªÚ˜«ŸÓÔÕÖ\"Ÿ\"×Û@®ÜA@®Á%‚	 Ý˜«ŸÓÔÕÖ\"Ÿ\"×Þ@®ÁA@®Á%‚	 ß˜¬†à˜ƒ	 ÓÔÕÖ\"Ÿ\"×á@$A‰¬„âãD«ä@åRA‰¬qæP‚	 çèQ,‡" ["<FORM METHOD=\"GOPHER-ASK\"><UL PLAIN>" "" 0 parms x type form string-match "^\\([^:]+\\): +\\(.*\\)" ask w3-match 2 w3-strip-leading-spaces 1 nil "note" "ask" "askf" "choosef" mapcar car w3-split "\\	" format "%s\n<LI>%s<INPUT name=\"%d\" DEFAULT=\"%s\">" "Text:" "askp" "%s\n<LI>%s<INPUT name=\"%d\" TYPE=\"PASSWORD\" DEFAULT=\"%s\">" "Password:" "askl" "%s\n<LI>%s<TEXTAREA NAME=\"%d\">%s</TEXTAREA>" "select" "choose" "%s\n<LI>%s<SELECT NAME=\"%d\">" "Yes" "No" "<OPTION>" "\n" "</SELECT>" "\n<LI><INPUT TYPE=\"SUBMIT\"" " VALUE=\"Submit Gopher+ Ask Block\"></UL></FORM>"] 7 "\
Convert a Gopher+ ASK block into a form.  Returns a string to be inserted
into a buffer to create the form."])
(fset 'w3-grok-gopher-link #[(st nd) "À‰‰‰‰ŠÆÇÈ\"ˆ	S\nU?­…	\n{‰ËÌOP\n	¯.‡" [nil gopher+ port server selector type mapcar #[(var) "bˆÁ\nwˆÃ`{\"ˆ`T‰‡" [st "^	\n" nd set-variable var] 4] (type selector server port) st nd 0 1] 5 "\
Return a list of link attributes from a gopher string.  Order is:
title, type, selector string, server, port, gopher-plus?"])
(fset 'w3-format-gopher-link #[(gophobj) "@A@@GÁV«‡@ÁÂOªÃÄ8Å8Æ8Ç	\nÃš«ŽGÁV«‡ÁÂO­…ÂÇOÏ\"A®ÑÒÓ!«‰Ï\"A¬ƒÃªÇÕš«“Ö×\n	P&ª®Øš«“ÖÙ\n	P&ª•ÖÚ\n	PÛ!&.‡" [gophobj 0 1 "" 2 3 4 nil desc plus port serv type ref title assoc w3-gopher-labels "(UNK)" fboundp w3-insert-graphic w3-gopher-icons "8" format "<LI> %s <A HREF=\"telnet://%s:%s/%s\">%s</A>\n" "T" "<LI> %s <A HREF=\"tn3270://%s:%s/%s\">%s</A>\n" "<LI> %s <A METHODS=%s HREF=\"gopher://%s:%s/%s\">%s</A>\n" w3-hexify-string] 8 "\
Insert a gopher link as an <A> tag"])
(fset 'w3-gopher-clean-text #[(&optional buffer) "®	qˆÂÃÄ\"ˆÂÅÄ\"ˆÂÆÄ\"‡" [buffer w3-working-buffer w3-replace-regexp "$" "" "^\\.\\\n" "^\\.*$\\\n*"] 3 "\
Clean up text from gopher retrieval"])
(fset 'w3-parse-gopher #[(&optional buffer) "ŠÀÁÂ!Ã\"ˆÀÁÄ!Å\"ˆÀÁÆ!Ç\"ˆÀÈÉ\"ˆebˆÊÉ!«†ËÌ!ˆªuÍm¬˜ÏŠÐyˆ`)ŠÍˆ`)\"BÌyˆªeŸÑ ˆÒÓÕ˜¬ŒÖ˜¬†×˜«ƒØª”ÙÚÛ\"\"«‡ÝÍOª‚Þ#ˆÒßàÕ#!ˆÒá!*‡" [w3-replace-regexp regexp-quote "&" "&amp;" ">" "&gt;" "<" "&lt;" "\\\n*\\.\\\n*\\'" "\n" looking-at delete-char 1 nil objs w3-grok-gopher-link 0 erase-buffer w3-insert "<TITLE>" w3-current-file "" "1/" "1" "Gopher root" string-match format "^[%s]+/" w3-gopher-types 2 "</TITLE><OL>" mapconcat w3-format-gopher-link "</OL>"] 6 "\
Parse out a gopher response"])
(fset 'w3-gopher-retrieve #[(host port selector &optional wait-for) "ÀÁ\n;«…Å!ª$Æ‰p	\nË ˆÑGÓV«‡ÔÆO\n;«‡Õ\n!‚ŠÖ\n×P\"ˆ«ŒebˆÙÆÚ#„ò Û\n!Ü>ƒò ¬ãÔfÝ=«£Þfßàáâãäåæçè¯\n>«’éÞ!ê!	e|ˆªºÔfÝ=«˜Þfë=«’Æ	ÚebˆeÆˆ`|ˆªœÔfë=«–Þfë=«ÚÆ	ebˆeÆˆ`|ˆ	«ìíd	dî_	¥$ˆª…ìïd\"ˆð\n!ˆ‚R Æñòˆóôõ\"ˆóöõ\"ˆ÷ø!­†ùÔ!ˆªu),‡" [w3-open-stream "*gopher*" w3-working-buffer host port string-to-int nil buff parsed len proc w3-clear-tmp-buffer selector w3-current-file w3-current-port w3-current-server w3-current-last-buffer "gopher" w3-current-type 0 1 message process-send-string "\n" wait-for re-search-forward t w3-process-status (run open) 43 2 48 49 50 51 52 53 54 55 56 57 copy-marker read 45 w3-lazy-message "Read %d of %d bytes (%d%%)" 100 "Read %d bytes." w3-accept-process-output (w3-kill-process proc) ((error)) w3-replace-regexp "\\\n*Connection closed.*\\\n*" "" "\\\n*Process .*gopher.*\\\n*" looking-at "" delete-char] 11 "\
Fetch a gopher object and don't mess with it at all"])
(fset 'w3-do-gopher-cso-search #[(descr) "@A@Á8Â‰ÈÉ\"ˆÊË\"ÈÌ\"ˆÊË\"ÍÎÏ#Ð$ˆebˆÑÒÓ\"ˆÑÔÓ\"ˆÑÕÖ\"ˆebˆ×ØÙÚÛ&ˆdbˆ×Ü!-‡" [descr 2 nil search-term search-type file port host string-match "search-by=\\([^&]+\\)" w3-match 1 "search-term=\\([^&]+\\)" w3-gopher-retrieve format "2query %s=%s" "^[2-9]" w3-replace-regexp "^-[0-9][0-9][0-9]:[0-9]*:" "" "^[^15][0-9][0-9]:.*" "^[15][0-9][0-9]:\\(.*\\)" "<H1>\\1</H1>&ensp;<PRE>" w3-insert "<TITLE>Results of CSO search</TITLE>\n" "<H1>" " = " "</H1>\n" "</PRE>"] 7 "\
Do a gopher CSO search and return a plaintext document"])
(fset 'w3-do-gopher #[(descr) "@A@Á8Â8Ã8pÄ	\nÌš«‘ÍÎ	\"«ŠÏ!ˆÐ‚Ìš«—Ñ ˆÒÓÔÕÖ×ØÙÚ&ˆÐÛ‚Üš«˜ÍÝ	\"«‘Þ\n	#ˆßÛ‚Üš«¨Íà	\"«¡	á‰”Oâ	á•ÄOQ	Þ\n	#ˆßÛ‚Üš«šÐÛÑ ˆÒã!ˆÒä!ˆÒå!ˆÒæ!ˆªâ¬Þ\n	#ˆÛªÑç=«Þ\n	èP#ˆÛª¼é=«¶Þ\n	êP#ˆebˆëìÄÛ#«Ÿ`TëíÄÛ#®d{.ï ˆÒð.!!ˆÐÛ)ª‚Ûßš¬’ñš¬Œ	òš¬†Ðš«ƒó ˆ«šßš¬†	òš«Žôß! ˆÐô!5®ñ6ô!5	7\n89:û‰<.‡" [descr 2 3 4 nil parse-gopher buff extr type file port host "www/gopher-cso-search" string-match "search-by=" w3-do-gopher-cso-search "text/html" w3-clear-tmp-buffer w3-insert "<TITLE> CSO SEARCH </TITLE>\n" "<H1> This is a CSO search </H1>\n" "<HR>\n" "<FORM><LI> Search by: <SELECT NAME=\"search-by\">\n" "<OPTION>Name<OPTION>Phone<OPTION>Email<OPTION>Address" "</SELECT>\n<LI> Search for: <INPUT NAME=\"search-term\">\n" "<LI>&ensp;<INPUT TYPE=\"submit\" VALUE=\"Submit query\">\n" "</UL></FORM><HR>" t "www/gopher-search" "\\	" w3-gopher-retrieve "www/gopher" "\\?" 0 "	" "<TITLE>Gopher Server</TITLE>\n" "<H1>Searchable Gopher Index</H1>" "<HR>Enter the search keywords below<P>" "<FORM><INPUT NAME=\"internal-gopher\">&ensp;</FORM><HR>" gopher+ "	+" ask-block "	!" re-search-forward "^\\+ASK:[ \\	\\]*" "^\\+[^:]+:" x erase-buffer w3-convert-ask-to-form "text/plain" "" w3-gopher-clean-text w3-mime-viewer w3-current-mime-viewer w3-current-mime-type w3-current-file w3-current-port w3-current-server w3-current-last-buffer "gopher" w3-current-type] 9 "\
Fetch a gopher object"])
(fset 'w3-decimal-to-roman #[(n) "ÀÁÂÃ‰‰		ÊY«ý	Y«ç	¥	_ZÌ¦ÍU«¢ÌV«ƒÊªÎ\\ÏÐSHH$ª¯ÌY«ÏÒH#ÌZÎÎW«“ÏÒSH#T‰ªi	Ó¥	ÔZ‚ .‡" [1000 "" 7 nil curcnt k i2 j str curmod 1 n 5 4 0 format "%s%c%c" w3-roman-characters "%s%c" 10 2] 7 "\
Convert from decimal to roman numerals"])
(fset 'w3-expand-list #[(data) "ÀÂA@Ä8\")‡" [nil buffer-read-only w3-unhide-zone data 2] 4 "\
Expand a list that has been hidden."])
(fset 'w3-rehide-list #[(data) "ÀÂA@Ä8\")‡" [nil buffer-read-only w3-hide-zone data 2] 4 "\
Hide a list that was viewable."])
(fset 'w3-build-table #[(indent-level attributes) "qˆÁ\nÃ\"\nSÄÅ\"A8®Ç	ebˆÊËÌ	ÍQ\"ˆÊÎÌ	ÏR\"ˆÊÐÌ\"*‡" [w3-working-buffer make-string indent-level 9 assoc "DL" w3-list-chars-assoc "*" y x w3-replace-regexp "[ \\	\\\n]*<DD[^>]*>[ \\	\\\n]*" "\n" "  " "[ \\	\\\n]*<DT[^>]*>[ \\	\\\n]*" " " "</*DL[^>]*>"] 6 "\
Build a Definition List"])
(fset 'w3-build-ordered-list #[(indent-level &optional attributes) "ÀÁ\n\"ÀÃ\n\"A®Ä—ÅšÀÆ\n\"A®Ç	\nqˆebˆÌÍSÀÏ\"A8®ÑÍ‰‰ÒÓ\"ebˆÛÜÍÝ#«øÞÌ”Ì•\"ßà!ˆÀá\"AÀâ\"Aãä\n«†å!ª…ãæ\"$¬‹¬‡ç!ˆª®«¡èé!«œéC`Sê®SÀÏ\"A8®Ñ$ˆª‰«…ç!ˆTª.ebˆëìí\"ˆ	??­Ÿebˆç!ˆî`d\"ˆïe`Íðñ `Í“ñ dÍ“EÝ%+‡" [assoc "roman" attributes "folded" "no" "yes" "label" "\\/ Expand List \\/" label hidden roman w3-working-buffer 1 nil indent-level "OL" w3-list-chars-assoc "." make-string 9 tabs alt url parm z y x re-search-forward "<LI\\([^>]*\\)>[ \\	]*" t w3-parse-args replace-match "" "src" "alt" format "\n%s%3s%s " w3-decimal-to-roman "%d" w3-insert fboundp w3-insert-graphic center w3-replace-regexp "</*OL[^>]*>" "\n" w3-hide-zone w3-add-zone w3expandlist make-marker] 9 "\
Builds ordered lists"])
(fset 'w3-build-unordered-list #[(indent-level attributes) "ÀÁ\n\"A®Ã—ÄšÀÅ\n\"ÀÆ\n\"A®Ç	\n	­†	AÃš?	qˆebˆÌÍÏ\"PSÀÐ\"A8®ÒÓ‰‰ÙÚÓÛ#«õÜÝ”Ý•\"Þß!ˆÀà\"AÀá\"A‰¬’¬Ž	¬Šâã#ˆªH¬¬Œ	«ˆâã\"ˆª4«¡äå!«œåC`Sæ®SÀÐ\"A8®Ò$ˆª«â!ˆª-ebˆçèÌ\"ˆ\n??­Ÿebˆâ!ˆé`d\"ˆêe`Óëì `Ó“ì dÓ“EÛ%+‡" [assoc "folded" attributes "no" "yes" "plain" "label" "\\/ Expand List \\/" label plain hidden w3-working-buffer "\n" make-string indent-level 9 "UL" w3-list-chars-assoc "*" nil alt url parm y x re-search-forward "<LI\\([^>]*\\)>" t w3-parse-args 1 replace-match "" "src" "alt" w3-insert " " fboundp w3-insert-graphic center w3-replace-regexp "</*\\(UL\\|DIR\\|MENU\\)[^>]*>" w3-hide-zone w3-add-zone w3expandlist make-marker] 10 "\
Build unordered lists"])
(fset 'w3-handle-lists #[(indent-level) "À”À•{–ÁÂ”Â•\"ÃÇ!‰«™bˆTÀ”À•{–ÁÂ”Â•\"ª_`GGÂ\\\\ZÉÊË\"ÃÌ#«ƒ`ªd}ˆÍš«ˆÎ\"ˆª”Ïš«ˆÐ\"ˆª†Ñ\"ˆÒ\"ˆ~+‡" [1 w3-parse-args 2 nil pos parm type w3-sublists-exist indent-level re-search-forward format "</%s>" t "OL" w3-build-ordered-list "DL" w3-build-table w3-build-unordered-list w3-fill-paragraphs-in-list] 5 "\
Handle building of lists - INDENT-LEVEL is how many tabs to use
to indent from the left margin."])
(fset 'w3-fill-paragraphs-in-list #[(indent-level type) "ÀÁÂ\"ˆebˆÃÅ\"Çš«ƒÈªÉPÊ‰‰ÀÏÐÑQ\"ˆebˆÒÓÊÔ#…¾ Õyˆ`Êˆ`Œ}ˆebˆÒÖÊÔ#«Ñ×”×•{Õ”GØY«’ÕØO—Ùš«ˆÒÚÊÔ#ˆªUÛÜP!ˆÝÞ\"«GßÊˆ` á×”×•OÊ‰‰‰‰‰‰¯B$ˆª(ÒâÊÔ#«ŠÕyˆã!ˆªoäed\"ˆ)‚. ,‡" [w3-replace-regexp "\\\n\\\n+" "\n" make-string indent-level 9 type "OL" "     " "  " nil ptag nd st fill-prefix "<[bB][Rr]> *" "<X>\n" "<W3BR>" re-search-forward "^[^\\\n]" t 0 " *<P\\([^>]*\\)> *" 1 2 "re" "</PRE>" replace-match "\n\n" string-match "ID=\"\\([^\"]+\\)\"" w3-add-zone w3-default-style w3par "^[^\\	]" insert-before-markers fill-region] 13 "\
This will fill all the paragraphs within the current list.  INDENT-LEVEL
is the number of tabs to use as the leading fill."])
(fset 'w3-sublists-exist #[(type) "Š`ÁÂÃ\"ÅÆ#«ƒ`ªdbˆÁÈÆ#­`+‡" [thestart re-search-forward format "</%s>" type nil t newend "<\\(DL\\|OL\\|UL\\|DIR\\|MENU\\)\\([^>]*\\)>"] 4 "\
Figure out if there are sublists in the current list.  Expects point to
be _AFTER_ the current list tag, and type to be bound to what sort of
list it is (OL, UL, DL, MENU, etc)"])
(fset 'w3-do-lists #[nil "Àe	bˆÃÄÅÆ#­”À”ÇÈ!ˆ\nTÉÊË\nÌ\"\"ˆªb*‡" [0 last tmp re-search-forward "<\\(DL\\|OL\\|UL\\|DIR\\|MENU\\)\\([^>]*\\)>" nil t w3-handle-lists 1 w3-lazy-message "Building lists...%s" make-string 46] 5])
(fset 'w3-parse-mime-types #[(&optional fname) "À‰‰®ƒÅÆ!‰«Ç!«…È!¬…ÉÊ\"ˆŠËÌ!qˆÍ ˆÎ!ˆÏÐÑ\"ˆÏÒÓ\"ˆÏÔÑ\"ˆebˆÕÖÀ×#«¶Ø”Ø•{Ù”Ù•{ÚÑ!ˆÛÜÝ\nÞ\"\"‰«^ß\n@!‰«„ «‰\n@B!B!\nA‰ªcâp!,‡" [nil x extns mtype fname expand-file-name "~/.mime-types" file-exists-p file-readable-p error "%s is non-existant or unreadable." get-buffer-create " *mime-types*" erase-buffer insert-file-contents w3-replace-regexp "#.*" "" "\\\n+" "\n" "[ \\	]+$" re-search-forward "^\\([^ \\	\\\n]+\\)[ \\	]+\\(.*\\)[ \\	]*\\\n+" t 1 2 replace-match mapcar #[(x) "À	@P‡" ["." x] 2] w3-split "[ \\	\\.]+" w3-extension-to-mime w3-mime-mimetypes-overrides w3-mime-extensions kill-buffer] 6 "\
Parse out the ~/.mime-types files"])
(fset 'w3-parse-mailcap #[(&optional fname) "À‰‰‰‰‰¬ÈÉÊ!!«ŽËÉÊ!!«‡ÉÊ!ªˆÌÍÉÊÎ\"\"ˆŠÏÐ!qˆÑ\"«‹ÐÔ!ˆ)ªˆÕ ˆÖ!ˆ×ØÙ\"ˆ×ÚÛ\"ˆ×ÜÝ\"ˆ×Þß!àPÙ\"ˆebˆm?…KáÀwˆ`ÀâÀwˆã`\"ˆ`{äÀwˆ`åÀwˆã`\"ˆf®ÎæU«ƒçª‹`U«ƒçªƒ`{èÀwˆèÀwˆ`éÀwˆf®ÎêU«“T`}ˆebˆëp!dbˆ~ˆª„`{`Àˆì`\"í.\"ï\n!¬Šðñ#ˆ‚j \n«‡ò\n#ˆ	¬BCB.B.‚j í	A\"¬Œ	B	AB¡ˆ‚j 3«”ô	A\"‰5 ˆ5¡ˆ)‚j ðö#ˆ‚j .‡" [nil old-major info viewer save-pos minor major fname file-exists-p expand-file-name "~/.mailcap" file-readable-p error "%s is non-existant or unreadable" 0 get-buffer-create " *mailcap*" string-match w3-nonrelative-link w3-working-buffer w3-retrieve erase-buffer insert-file-contents w3-replace-regexp "#.*" "" "\\\n+" "\\\n" "\\\\[ \\	\\\n]+" " " regexp-quote "\\" "[ \\	]*\\\n" " \\	\\\n" "^/;" downcase-region "/ \\	\\\n" "^;" 42 ".*" "; \\	\\\n" "^;\\\n" 39 read w3-parse-mailcap-extras assoc w3-mime-viewers w3-mailcap-entry-passes-test message "%s/%s failed test clause..." w3-mime-mailcap-handle-info w3-mime-mailcap-overrides w3-in-assoc tmp "Skipping %s/%s from mailcap..."] 7 "\
Parse out the ~/.mailcap file"])
(fset 'w3-mailcap-entry-passes-test #[(info) "ÀÁÂ\"A­ˆÆÇÈÉ\"\"Ÿ‰@Âš«¡A@Êš«šË8Ìš¬‡Ë8Íš«ŒÎÏ!«ƒÐªÑªº@Âš«¡A@Òš«šË8Ìš¬‡Ë8Íš«ŒÎÏ!«ƒÑªÐª“«ŽÓÔ@À‰‰A&ª‚Ð*Ðš‡" [nil assoc "test" info test status mapcar car w3-split " +" "-n" 2 "$DISPLAY" "\"$DISPLAY\"" getenv "DISPLAY" 0 1 "-z" apply call-process] 8 "\
Return t iff a mailcap entry passes its test clause
or no test clause is present."])
(fset 'w3-parse-mailcap-extras #[(st nd) "À‰‰‰‰Œ}ˆebˆm¬ºÈÀwˆ`ÉÀwˆÊ\n`\"ˆ\n`{ËÀwˆ`f®ÌÍU¬„ÀªŽÎÀwˆ`‰ÏÀwˆ`{BBªC.‡" [nil val-pos name-pos results value name st nd " \\\n\\	" "^ \\\n\\	=" downcase-region " \\	\\\n" 0 61 " \\	\\\n=" "^;"] 6 "\
Grab all the extra stuff from a mailcap entry"])
(fset 'w3-mime-mailcap-handle-info #[(major minor info) "À	ÂQÆÇ\"A‰«ˆB	B	ÆÊ\"A‰«ˆB	B	ÆË\"A‰«ˆBBÆÍ\"A‰«ˆBBÆÏ\"A‰«ˆBBÆÑ\"A‰­‰BB‰*‡" [nil major "/" minor typ tmp assoc "label" info w3-mime-descriptions "description" "compose" w3-mime-composers "edit" w3-mime-editors "print" w3-mime-printers "x11-bitmap" w3-mime-bitmaps] 4])
(fset 'w3-mime-viewer #[(encoding) "¬‚ÁÂÁ\"ˆÃ‰”OÃ”TÅOÇ\"£	Å\n	«‰Ë	\"£\n\n,‡" [encoding "/" string-match 0 major nil minor assoc w3-mime-viewers alist viewr w3-in-assoc] 3 "\
Get the mime viewer command for ENCODING, return nil if none found.
Expects an argument like text/html, or application/dvi"])
(fset 'w3-parse-viewer-types #[nil "Á‰Â«Ñ@A@@A«jGÇ¦ÈÉ@@RG\\ÇV«•ÊË@@Ì˜«ƒÍªƒ@@$ª“ÊÎ@@Ì˜«ƒÍªƒ@@$A‰ª?ÏÁO,‡" [w3-mime-viewers nil "" str mnr mjr tmp 60 ", " "/" format "%s\nAccept: %s/%s" ".*" "*" "%s, %s/%s" 2] 7 "\
Create a string usable for an Accept: header from w3-mime-viewere"])
(fset 'w3-create-multipart-request #[(file-list) "À ÁÂÆÇÈÉ#P‰ÇÊÌ#ÍQ+B‡" [current-time-string "message/http-request" nil ref-url content separator "separator-" mapconcat #[(char) "	>«„Â!‡Ã‡" [char w3-mime-separator-chars char-to-string ""] 2] "" #[(file) "À	ÂÄÅ\"°‡" ["--" separator "\nContent-type: " content "\n\n" w3-create-mime-request file ref-url] 8] file-list "\n" "--"] 6 "\
Create a multi-part MIME request for all files in FILE-LIST"])
(fset 'w3-create-mime-request #[(fname ref-url) "À	\n\"¬éÃÄ!ÆÆÉÊÌ#‰Íš¬†ÌPÎÏÐÑÒÓÔÒ‰‰Ì°\n®ÖÙ!«ˆÎÚÙ!\"ªÍ«‡ÞÌQªÍ«ŠÎàG#ªÍ&\n‰+‡Îá\"‡" [w3-member w3-current-server w3-bad-server-list w3-view-url t url nil extra-headers request mapconcat #[(x) "@ÁAQ‡" [x ": "] 3] w3-request-extra-headers "\n" "" format "%s %s HTTP/1.0\n" "From: %s\n" "Accept-encoding: x-compress; x-gzip\n" "%s" "Accept: %s\n" "User-Agent: Emacs-W3/%s\n" w3-request-method "GET" fname w3-personal-mail-address w3-basic-auth "Authorization: Basic %s\n" w3-mime-accept-string w3-version-number ref-url "Referer: " w3-request-data "Content-length: %d\n\n%s" "GET %s\n"] 15 "\
Create a MIME request for fname, referred to by REF-URL."])
(fset 'w3-parse-mime-headers #[(&optional no-delete) "qˆeebˆÂÃwˆÄÅÃÆ#«„`TªdÃÃ	Ã\nÃÃ	}ˆebˆÂÃwˆÍÃwˆÎp!	Ï	BBÃˆm¬´ÂÃwˆ`ÐÃwˆÑ`\"ˆ`{\nÒÃwˆ`ÓÃwˆ`{\nBBªI¬…	|ˆÕÖ\"AÕØ\"AÚ!	ÝU„«	ÞU„«	ßU„«	àU«ñÕá\"A\"ãä\"\"«ˆ\"å‰”Oª‚\"—&çè&éQ!*&ëš¬†&ìš«–ãí\"\"ˆî/ð\"ñ\"ç&!#ˆª§ò*!«–*óÆ!Æ*óÆ!!#ˆôóÆ!!ˆª‹dbˆõö\"÷ø$ˆ+ªû	ùU¬õ	úU¬ï	ûU¬é	üU¬Œ	ýU¬†	þU«ÉóÆ!Õÿ\"A®ˆÕ@ \"AÕA \"A®ƒB CD‰*Dš¬ŽCEF D!ˆ)ªŒdbˆõG H \"ˆ+ªŽ	I U«†J !ˆ~ˆ.‡" [w3-working-buffer st " \\	\\\n" nil re-search-forward "^*$" t nd save-pos status hname hvalu result "^ \\	" read "status" "^:\\\n" downcase-region ": \\	 " "^;\\\n" no-delete assoc "content-type" w3-current-mime-type "content-encoding" w3-current-mime-encoding w3-mime-viewer w3-current-mime-viewer w3-current-mime-headers 500 501 400 401 "www-authenticate" y string-match "[ \\	]" 0 type intern "w3-" "-auth" x "pem" "pgp" "entity=\"\\([^\"]+\\)\"" w3-fetch-with-pgp w3-current-file w3-match 1 fboundp w3-view-url w3-retrieve w3-insert "<HR>Sorry, but I do not know how to handle" " authentication.  If you'd like to write it," " send it to wmperry@indiana.edu.<HR>" 402 403 404 301 302 303 "uri" "location" "method" "GET" redirmeth redir w3-request-method w3-maybe-relative "<HR>Error!  This URL tried to redirect me to itself!<P>" "Please notify the server maintainer." 204 kill-buffer] 7 "\
Parse mime headers and remove them from the html"])
(fset 'w3-lf-to-crlf #[(str) "ÀÁ\nÃ#‡" [mapconcat #[(x) "ÁU«‚Â‡Ã!‡" [x 10 "\n" char-to-string] 2] str ""] 4 "\
Convert all linefeeds to carriage-return-line-feed pairs in string STR"])
(fset 'w3-mime-response-p #[nil "qˆ	Âš«–ebˆÃÄÅÆÈ\"!!ÉÊ#«„ËÌ!ˆebˆÍÉwˆÎÏ!‡" [w3-working-buffer w3-current-type "http" re-search-forward regexp-quote w3-lf-to-crlf w3-create-mime-request w3-current-file ".*" nil t replace-match "" " \\	\\\n" looking-at "^HTTP/.+"] 6 "\
Determine if the current buffer is a MIME response"])
(fset 'w3-parse-global-history #[(&optional fname) "¬„Á\n!Ã!¬…ÄÅ\"‡ŠÆÇ!qˆÈ ˆÉ!ˆebˆÊyˆe`|ˆËÌÍÎ#­’Ï”Ï•{Ê”Ê•{BBªg)‡" [fname expand-file-name w3-global-history-file file-exists-p message "%s does not exist." get-buffer-create " *w3-tmp*" erase-buffer insert-file-contents 2 re-search-forward "^\\([^ \\	]+\\)[ \\	]+\\(.*\\)" nil t 1 w3-global-history-completion-list] 4 "\
Parse out the mosaic global history file for completions, etc."])
(fset 'w3-write-global-history #[(&optional fname) "¬‚	Â	!¬“ÃÄ	\"ˆÅÆ!qˆÇ ˆÈÉ!ˆªŒÅÆ!qˆÇ ˆÊ	!ˆËÍÎ\"ˆ)Ð	!ˆÑp!‡" [fname w3-global-history-file file-exists-p message "Creating history file %s." get-buffer-create " *W3HIST*" erase-buffer w3-insert "ncsa-mosaic-history-format-1\nGlobal\n" insert-file-contents nil url mapcar #[(x) "@ebˆÂÃ	!ÄÅ#?­‹ebˆÆ	ÇÈ ÉR!‡" [x url re-search-forward regexp-quote nil t w3-insert " " current-time-string "\n"] 5] w3-history-list write-file kill-buffer] 3 "\
Write the global history file into w3-global-history-file" nil])
(fset 'w3-parse-docs-menu #[nil "ÀÁ\nÃ#Ä‰‰‰‰	\nË!«†Í!¬†ÎÏ!ˆªýŠÐÑ!qˆÒ ˆÓ!ˆebˆm¬äÔÕ!¬ÍÖyˆ`Äˆ`{Td^|ˆÖyˆ`Äˆ`{Td^|ˆ×\n\"«„\nª‡B\nB\nª+Ø\nB\neÄˆ`Td^|ˆªÙp!ˆ)\n@@Úš«…\nA\n\n«³\n@@Ûš«ƒÜª›Ý\n@@Þ\n@A<«‡\n@A@ª„\n@ADß#	B	\nA‰\n¬MÀ 	áC#‰ .‡" [append ((separator)) w3-starting-documents ((separator)) nil url name y x real-menu tmp-menu file-exists-p w3-documents-menu-file file-readable-p message "No documents menu found... continuing." get-buffer-create " *w3-temp*" erase-buffer insert-file-contents looking-at "-+$" 0 w3-rassoc (separator) kill-buffer "" separator "--------" vector w3-fetch t w3-navigate-menu "-----"] 7 "\
Parse the Mosaic documents menu"])
(fset 'w3-hotlist-refresh #[nil "À ‡" [w3-parse-hotlist] 1 "\
Reload the default hotlist file into memory" nil])
(fset 'w3-hotlist-delete #[nil "Š¬†ÁÂ!ˆª×Ã!¬‡ÁÅ\"ˆªËÆÇÈÉÊ$\"@ÌÍ!‰qˆÏ ˆÐ!ˆÑÒ!ÉÊ#«žÓÔ!ˆÕyˆ`Öyˆ`|ˆ×!ˆØ\"Ùp!ˆª‡ÁÚ#ˆ*)­ŒÝ=­†Þß!ˆà ‡" [w3-hotlist message "No hotlist in memory!" file-exists-p w3-hotlist-file "Hotlist file %s does not exist." assoc completing-read "Delete Document: " nil t title get-buffer-create " *HOTW3*" buffer erase-buffer insert-file-contents re-search-forward regexp-quote previous-line 1 0 2 write-file w3-delete-from-alist kill-buffer "%s was not found in %s" w3-running-FSF19 window-system x delete-menu-item ("Navigate") w3-build-FSF19-menu] 7 "\
Deletes a document from your hotlist file" nil])
(fset 'w3-hotlist-rename-entry #[(title) "¬†ÁÂ!ˆªšÃÄ!!¬‡ÁÆ\"ˆªŒÇÄ!!¬…ÁÈ\"ˆŠÉ\n\"ËÌ\"ÍÎ!Ï«ˆÔ\"«ˆÕÖ!‰ªnqˆ× ˆØÄ!!ˆebˆÙÚ\n!ÏÛ#«ÂÜÝ!ˆÞyˆ`ßyˆ`|ˆàáâA@ã $!ˆA@Dä\n\"Bå!ˆæp!ˆ'­’(­Žéê!ˆë ª†ìí\n#-‡" [w3-hotlist error "No hotlist in memory!" file-exists-p expand-file-name w3-hotlist-file "Hotlist file %s does not exist." file-readable-p "Hotlist file %s exists, but is unreadable." assoc title mapcar car get-buffer-create " *HOTW3*" nil new buff used obj w3-member read-string "New name: " erase-buffer insert-file-contents re-search-forward regexp-quote t previous-line 1 0 2 w3-insert format "%s %s\n%s\n" current-time-string w3-delete-from-alist write-file kill-buffer w3-running-FSF19 window-system delete-menu-item ("Navigate") w3-build-FSF19-menu message "%s was not found in %s"] 7 "\
Rename a personal annotation" (byte-code "ÀÁ\nÃÄ$C‡" [completing-read "Rename entry: " w3-hotlist nil t] 5)])
(fset 'w3-hotlist-append #[(fname) "Â!ˆ	¤‰)‡" [w3-hotlist x w3-parse-hotlist fname] 2 "\
Append a hotlist to the one in memory" "fAppend hotlist file: "])
(fset 'w3-parse-hotlist #[(&optional fname) "¬‚	ÂÄ!¬…ÅÆ\"‡pÈÉ!\nÂÂ\nqˆÍ ˆÎ!ˆebˆÏÐÂÑ#«†ÒÓ!ˆªsÔÕ!ˆ`dš¬ªÏÖÂÑ#ˆ×”×•{Øyˆ×yˆ`Âˆ`{‰Óš¬[DBªQÙ\n!ˆq,‡" [fname w3-hotlist-file nil w3-hotlist file-exists-p message "%s does not exist!" old-buffer get-buffer-create " *HOTW3*" buffer cur-link cur-alias erase-buffer insert-file-contents re-search-forward "^\n" t replace-match "" goto-line 3 "^[^ ]*" 0 1 kill-buffer] 5 "\
Read in the hotlist specified by FNAME"])
(fset 'w3-use-hotlist #[nil "¬ƒÁ ˆ\n¬„ÃÄ!‡ÅÆÇ\nÈÉ$\n\"A@\nË\n!)‡" [w3-setup-done w3-do-setup w3-hotlist message "No hotlist in memory!" assoc completing-read "Goto Document: " nil t url w3-fetch] 6 "\
Possibly go to a link in your W3/Mosaic hotlist.
This is part of the emacs World Wide Web browser.  It will prompt for
one of the items in your 'hotlist'.  A hotlist is a list of often
visited or interesting items you have found on the World Wide Web." nil])
(fset 'w3-hotlist-add-document-at-point #[(pref-arg) "ÀÁ!Â‰¬„ÅÆ!ˆÇÈÉ`!!8Ê#*‡" [w3-view-this-url t "nil" title url error "No link under point." 3 w3-zone-data w3-zone-at w3-hotlist-add-document pref-arg] 5 "\
Add the document pointed to by the hyperlink under point to the hotlist." "P"])
(fset 'w3-hotlist-add-document #[(pref-arg &optional the-title the-url) "ŠÀÁ!®Š«…ÅÆ!®‚Ç 	®ƒÊË!ÍC\"«„ÏÐ!ˆ\nqˆÑ ˆDBÒ!¬ÔÕ\"ˆÖ×!ˆØÙ!ˆªŒÚ!ˆdbˆØÙ!ˆÖÛÜÝ Û&ˆÞ!ˆßp!ˆ, ­Œ!â=­†ãä!ˆå ‡" [get-buffer-create " *HOTW3*" buffer the-title pref-arg read-string "Title: " buffer-name title the-url w3-view-url t url w3-rassoc w3-hotlist error "That item already in hotlist, use w3-hotlist-rename-entry." erase-buffer file-exists-p w3-hotlist-file message "Creating hotlist file %s" w3-insert "ncsa-xmosaic-hotlist-format-1\nDefault\n\n" backward-char 1 insert-file-contents "\n" " " current-time-string write-file kill-buffer w3-running-FSF19 window-system x delete-menu-item ("Navigate") w3-build-FSF19-menu] 7 "\
Add this documents url to the hotlist" "P"])
(fset 'w3-fetch-annotations #[nil "¬„ÁÂ!‡ÃÄÅÆ!\"ÇÈ‰	\nŠÍ!qˆdbˆÏÐ!ˆ)ÑÒÍ!$ÔÕ!ˆÖ!«±×\"ˆØ!Ù>«§	TÚ¦‰	ÈU«ÔÛÜ\nTÝ¦‰\nÞ\"\"ˆß!ˆªVÔ!ˆÇàáˆâãÈäO!å\"ˆâæå\",‡" [w3-group-annotation-server error "No group annotation server defined!" format "ANN_GET /url=\"%s\";=\n" w3-view-url t nil 0 tmp2 tmp proc cmd get-buffer-create w3-working-buffer w3-insert "\n" w3-open-stream "*anno*" w3-group-annotation-port message "Fetching annotations..." processp process-send-string w3-process-status (run open) 200 "Fetching annotations..%s" make-string 50 46 w3-accept-process-output (w3-kill-process proc) ((error)) w3-replace-regexp regexp-quote -1 "" "Process .*anno.* \\(exit\\|kill\\|finish\\).*"] 5 "\
Fetch the annotations for the current document"])
(fset 'w3-is-annotation #[nil "	š­…Â!U‡" [w3-current-server w3-group-annotation-server string-to-int w3-current-port w3-group-annotation-port] 2 "\
Is this a group annotation?"])
(fset 'w3-delete-group-annotation #[nil "¬„ÁÂ!‡Ã ƒ— ÄÅÆÇ!\"È‰p	\nŠÍ!qˆÏ ˆÐÑÍ!$Ó!«‡Ô\"ˆÕ!Ö>«‡×!ˆªqÈØÙˆÚÛ!Ü\"ˆÚÝÜ\"ˆebˆÈß 	!âãÈÇ#«ebˆâäÈÇ#¬…Ç\nªƒÈ\n)\n«†åÈ‰\"ªƒæç!,‡æè!‡" [w3-group-annotation-server error "No group annotation server defined!" w3-is-annotation format "ANN_DELETE /url=\"%s\";=\n" w3-view-url t nil buff parseit proc cmd get-buffer-create w3-working-buffer erase-buffer w3-open-stream "*anno*" w3-group-annotation-port processp process-send-string w3-process-status (run open) w3-accept-process-output (w3-kill-process proc) ((error)) w3-replace-regexp regexp-quote "" "Process .*anno.* exit.*" w3-current-type "historylist" w3-current-file w3-current-last-buffer re-search-forward "[^ 	\n]+" "success!" w3-sentinel message "Deleted..." "This is not an annotation."] 5 "\
Delete this group annotation" nil])
(fset 'w3-add-group-annotation #[nil "ÀÁ!ÂÃ!«†Ç!ˆª„È!ˆqˆÉ ˆÊË!ˆÌ ˆÎÐÑ#ˆÒÓ!*‡" [w3-view-url t get-buffer-create "*Annotation*" buf url w3-mutable-windows pop-to-buffer switch-to-buffer erase-buffer w3-insert "</PRE>\n\n" html-mode w3-current-annotation define-key html-mode-map "" w3-do-group-annotation message "Hit C-cC-c to send this annotation."] 4 "\
Add an annotation to the current url" nil])
(fset 'w3-do-group-annotation #[nil "À Â ÄÅ«ƒÇªÈ	ÊËÄÌÍ Î Ï $\"ÄÐÎ Ï #Ñ 	&ÓÓŠÖ ˆ×p!ˆØ!qˆÚ ˆÛÜØ!$ß\"ˆà!á>«‡â!ˆªqÓãäˆåæ!ç\"ˆåèç\"ˆebˆÓ)ê+ìíÓî#«…îªƒÓ)«†ïÓ‰\"ªƒðñ!-‡" [buffer-size bufsize buffer-string bufstr format "ANN_%s /url=\"%s\";title=\"%s\";user=\"%s\";date=%s;length=%d;=%s\n" w3-editing-annotation "CHANGE" "SET" w3-current-annotation read-string "Title: " "Annotation by %s (%s@%s)" user-full-name user-real-login-name system-name "%s@%s" current-time-string cmd nil proc parseit not-modified kill-buffer get-buffer-create w3-working-buffer erase-buffer w3-open-stream "*anno*" w3-group-annotation-server w3-group-annotation-port process-send-string w3-process-status (run open) w3-accept-process-output (w3-kill-process proc) ((error)) w3-replace-regexp regexp-quote "" "Process .*anno.* exit.*" w3-current-type "historylist" w3-current-file re-search-forward "[^ 	\n]+" t w3-sentinel message "Annotation delivered..."] 11 "\
Finish adding an annotation" nil])
(fset 'w3-parse-personal-annotations #[nil "ÀÁÂ\"!…­ ÄÁÂ\"!…­ ŠÅÅ‰‰‰‰	\nÌÍ!qˆÎ ˆÏÁÂ\"!ˆebˆÐÑÒ\"ˆebˆeÓyˆ`|ˆm¬ßdSfÔU¬‰ŠdbˆÕÖ!ˆ)d`U¬Ê`Åˆ`×uˆ\n\n{‰	ØÙÚ	\"OÛ	ÙÚ	\"TÅOÜ\"‰«L@@Ý@@!DDBA‰ªcÞÍ!.‡" [file-exists-p format "%s/LOG" w3-personal-annotation-directory file-readable-p nil w3-personal-annotations num url txt end start get-buffer-create " *panno*" erase-buffer insert-file-contents w3-replace-regexp "\\\n+" "\\\n" 2 10 w3-insert "\n" 1 0 string-match " " w3-split "[ \\	]" w3-grok-annotation-format kill-buffer] 6 "\
Read in personal annotation file"])
(fset 'w3-grok-annotation-format #[(anno) "ŠÀÁ!qˆÂ ˆÃÄÅ#!«ŠÈÄÅ#!ˆebˆÉÊËÌ#«‡Í”Í•{ªÎÏÁ!ˆ)‡" [get-buffer-create " *annotmp*" erase-buffer file-exists-p format "%s/PAN-%s.html" w3-personal-annotation-directory anno insert-file-contents re-search-forward "<title>\\(.*\\)</title>" nil t 1 "No title" kill-buffer] 5 "\
Grab the title from an annotation"])
(fset 'w3-fetch-personal-annotations #[nil "ÀÁ!\nÃÇ\"«°«­@@š«ŸÈÉÊ!ÌU«ƒÍªÎ@A@@@A@A@%BA‰¬S+‡" [w3-view-url t w3-personal-annotations nil annolist anno url assoc format "<A HREF=\"file:%s%s/PAN-%s.html\">%s</A>" string-to-char w3-personal-annotation-directory 47 "" "/"] 7 "\
Grab any personal annotations for the current url"])
(fset 'w3-is-personal-annotation #[(url) "ÀÁ\n\"‡" [string-match "file:/.*/PAN-.*\\.html" url] 3 "\
Is URL a personal annotation?"])
(fset 'w3-delete-personal-annotation #[nil "ÀÁÂ!!ƒ§ Ã‰ÈÉÁÂ!\"ˆÁÂ!Ê”Ê•O«•@A@@š«…@@A‰¬k«åŠËÌ!qˆÍ ˆÎÏÐ\"!ˆÒÏÓ\"Ô\"ˆebˆÕÏÖ\"!ˆÃ‰ÂÚedÏÐ\"#ˆ+ÛÌ!ˆÃ«•@A@@˜¬…@BA‰¬kÜÏÝ#!)ªƒÞß!+‡Þà!‡" [w3-is-personal-annotation w3-view-url t nil w3-personal-annotations anno annotated-url num string-match "file:/.*/PAN-\\(.*\\)\\.html" 1 get-buffer-create " *annotmp*" erase-buffer insert-file-contents format "%s/LOG" w3-personal-annotation-directory replace-regexp "[ \\	]+\\b%s\\b[ \\	]*" " " delete-matching-lines "^%s +$" require-final-newline version-control make-backup-files write-region kill-buffer delete-file "%s/PAN-%s.html" message "Couldn't find url that this is annotating!" "This isn't a personal annotation."] 7 "\
Delete a personal annotation." nil])
(fset 'w3-add-personal-annotation #[nil "ÀÁ!ÂÃ!qˆ«†Ç!ˆª„È!ˆÉ ˆÊË!ˆÌ ˆÎÐÑ#ˆÒÓ!*‡" [w3-view-url t get-buffer-create "*Personal Annotation*" buf url w3-mutable-windows pop-to-buffer switch-to-buffer erase-buffer w3-insert "</PRE>\n\n" html-mode w3-current-annotation define-key html-mode-map "" w3-do-personal-annotation message "Hit C-cC-c to send this annotation."] 4 "\
Add an annotation to this document." nil])
(fset 'w3-find-highest-annotation-number #[nil "ÀebˆÂÃÀÄ#«ÅÆÇÈ”È•{É\"\"	¤ªi	¬‚ÊË	Ì\"@T)‡" [nil x re-search-forward "[^ \\	\\\n]*[ \\	]\\(.*\\)" t mapcar #[(x) "À	@!‡" [string-to-int x] 2] w3-split 1 "[ \\	]" (0) sort >] 5 "\
Find the highest annotation number in this buffer"])
(fset 'w3-do-personal-annotation #[nil "«ŠÁ!«…Â!¬„ÃÄ!‡Æ ÇÈÉÊË Ì #\"Í‰ŠÓ ˆÔp!ˆÕÖ!qˆ× ˆÁÉØ\"!«‰ÙÉØ\"!ˆª‹ebˆÚÛ!ˆÚÜ!ˆebˆÝÞ !Éß#ebˆàá!Íâ#«‰ÍˆÚã!ˆªŠdbˆÚäã#ˆÚ!ˆÍ‰â%&'èedÉØ\"#ˆ× ˆÚÉé*‰$!ˆÚÉëì Ë í Ì %!ˆÚî\"ˆèed#ˆ+DD/B‰/.‡" [w3-personal-annotation-directory file-exists-p file-directory-p error "No personal annotation directory!" w3-current-annotation buffer-string read-string "Title: " format "Annotation by %s on %s" user-real-login-name current-time-string nil num fname title txt url not-modified kill-buffer get-buffer-create " *annotmp*" erase-buffer "%s/LOG" insert-file-contents w3-insert "ncsa-mosaic-personal-annotation-log-format-1\n" "Personal\n" int-to-string w3-find-highest-annotation-number "%s/PAN-%s.html" re-search-forward regexp-quote t " " "\n" require-final-newline version-control make-backup-files write-region "%s\n<title>%s</title>\n<h1>%s</h1>\n" w3-annotation-marker "<address>%s (%s@%s)</address>\n<address>%s</address>\n" user-full-name system-name "<HR>\n<pre>" w3-personal-annotations] 8 "\
Finish doing a personal annotation." nil])
(fset 'w3-create-wais-source #[(server port dbase) "À ÁÂ!ŠqˆÅ ˆÆÇ	\n$cˆËedÌ‰%ˆÍ!ˆ)*‡" [w3-generate-unique-filename get-buffer-create " *waisq-tmp*" y x erase-buffer format "(:source\n:version 3\n:ip-name \"%s\"\n:tcp-port %s\n:database-name \"%s\"\n)" server port dbase write-region nil kill-buffer] 6 "\
Create a temporary wais source description file.
Returns the file name the description is in."])
(fset 'w3-wais-stringtoany #[(str) "À	GÂÃÄ	Å#Æ°‡" ["(:any :size " str " :bytes #( " mapconcat identity " " " ) )"] 7 "\
Return a wais subelement that specifies STR in any database"])
(fset 'w3-retrieve-wais-docid #[(server port dbase local-id) "À	\n#ÅÆÇÈÉÊËÌÍÎÏÐÑ°Ò!ÒÓ!!$Ö Ø!qˆcˆÚedÛ‰%ˆÜ ˆÝÛÛßàá&ˆÛâãˆÛäå+‡" [w3-create-wais-source server port dbase dbf format "(:question :version 2\n" "           :result-documents\n" "           ( (:document-id\n" "              :document\n" "              (:document\n" "               :doc-id\n" "               (:doc-id :original-database %s\n" "                :original-local-id %s )\n" "               :number-of-bytes -1\n" "               :type \"\"\n" "               :source\n" "               (:source-id :filename \"%s\") ) ) ) )" w3-wais-stringtoany w3-unhex-string local-id qstr w3-generate-unique-filename qf get-buffer-create w3-working-buffer write-region nil erase-buffer call-process w3-waisq-prog "-f" "-v" "1" (delete-file dbf) ((error)) (delete-file qf) ((error))] 13 "\
Retrieve a wais document.
SERVER is the server the database is on (:ip-name in source description)
PORT is the port number to contact (:tcp-port in the source description)
DBASE is the database name (:database-name in the source description)
LOCAL-ID is the document (:original-local-id in the question description)"])
(fset 'w3-perform-wais-query #[(server port dbase search) "À	\n#Ä ÅŠÉ ˆÊËÌÍÎÐÑÒÓÔÕÖ°#cˆØedÙ‰%ˆÚ ˆÛÙÙÞß&ˆqˆÚ ˆ	 \n!\"ã!ˆebˆäåÙæ#«…eç”|ˆèéê\"ˆèëê\"ˆebˆìí!ˆäîÙæ#«±ç•bˆÅ=«‡ÙïðˆªsÚ ˆñòóôõö÷øG!ùúûüý#þ&ˆª„ìÿ!ˆ@ AÙB C ˆÙD E ,‡" [w3-create-wais-source server port dbase w3-generate-unique-filename w3-none-gotten results qfname dbfname w3-clear-tmp-buffer format "(:question\n" " :version 2\n" " :seed-words \"%s\"\n" " :sourcepath \"" w3-temporary-directory "\"\n" " :sources\n" " (  (:source-id\n" "     :filename \"%s\"\n" "    )\n" " )\n" " :maximum-results 100)\n" search write-region nil erase-buffer call-process w3-waisq-prog w3-working-buffer "-g" "-f" w3-current-server w3-current-port w3-current-file insert-file-contents re-search-forward "(:question" t 0 w3-replace-regexp "Process.*finished.*" "" "#" message "Done reading info - parsing results..." ":result-documents[^(]+" (byte-code "Àp!À‡" [read results] 2) ((error (byte-code "ÀÂ•b‡" [w3-none-gotten results 0] 1))) w3-insert "<title>Results of WAIS search</title>\n" "<h1>Searched " " for " "</h1>\n" "<hr>\n" "Found <b>" int-to-string "</b> matches.\n" "<ol>\n<li>" mapconcat w3-parse-wais-doc-id "\n<li>" "\n</ol>\n<hr>\n" "No results" "text/html" w3-current-mime-type (delete-file qfname) ((error)) (delete-file dbfname) ((error))] 16 "\
Perform a wais query.
SERVER is the server the database is on (:ip-name in source description)
PORT is the port number to contact (:tcp-port in the source description)
DBASE is the database name (:database-name in the source description)
SEARCH is the search term (:seed-words in the question description)"])
(fset 'w3-wais-anytostring #[(x) "ÀÁÂ>A@Ä#‡" [mapconcat char-to-string :bytes x ""] 4 "\
Convert a (:any ....) wais construct back into a string."])
(fset 'w3-parse-wais-doc-id #[(x) "À	>A@Ã\n>A@Å	>A@Ç\n>A@É\n>A@\nË\n>A@Í>A@Ï>A@Ñ>A@Ó>A@Õ>A@×>A@Ù>A@®ÚÜÝ \náâ!!áâ!!áâ!!áâ!!áâ!!áâ!!&.‡" [:document x document :doc-id doc-id :score score :headline title :type type :number-of-bytes size :original-server server :original-database dbase :original-local-id localid :distributor-server dist-server :distributor-database dist-dbase :distributor-local-id dist-id :copyright-disposition 0 copyright format "<a href=\"wais://%s:%s/%s/%s/%d/1=%s;2=%s;3=%s;4=%s;5=%s;6=%s;7=%d;\">%s (Score = %s)</a>" w3-current-server w3-current-port w3-current-file w3-hexify-string w3-wais-anytostring] 16 "\
Return a list item that points at the doc-id specified by X"])
(fset 'w3-print-this-url #[(&optional url) "¬„ÁÂ!ÃÄÅÆÂ$ŠÈš« 	«”	\nË!qˆÍ ˆ\ncˆ)ª„Î!ˆÏ ª±Ðš«„Ï ª§Ñš­¡	«”	\nË!qˆÍ ˆ\ncˆ)ª„Î!ˆÒ ˆÓ‹*‡" [url w3-view-url t completing-read "Format: " (("HTML Source") ("Formatted Text") ("LaTeX'd")) nil format "HTML Source" w3-current-source x get-buffer-create w3-working-buffer erase-buffer w3-retrieve lpr-buffer "Formatted Text" "LaTeX'd" w3-convert-html-to-latex ((byte-code "ÀedÁÂ\"ÄÅ%ˆÆÇÈ	#!ˆÊË!‡" [write-region expand-file-name "w3-tmp.latex" w3-temporary-directory nil 5 shell-command format "cd %s ; latex w3-tmp.latex ; %s w3-tmp.dvi ; rm -f w3-tmp*" w3-print-command kill-buffer "*Shell Command Output*"] 6))] 5 "\
Print out the current document (in LaTeX format)" nil])
(fset 'w3-print-url-under-point #[nil "ÀÁÂ!!‡" [w3-print-this-url w3-view-this-url t] 3 "\
Print out the url under point (in LaTeX format)" nil])
(fset 'w3-convert-html-to-latex #[nil "qˆ	«ŒÂedÃÄ#Ç$‡ebˆÈÉÊ\"ˆÈËÌ\"ˆÈÍÎ\"ˆebˆÏÐÒQ!ˆÏÓ!ˆdbˆÏÔ!ˆÈÕÖ\"ˆÈ×Ø\"ˆÈÙÚ\"ˆÈÛÜ!Ý\"ˆÈÛÞ!ß\"ˆÈàá\"ˆÈâã\"ˆÈäå\"ˆÈæç\"ˆÈèé\"ˆÈÛê!ë\"ˆÈìí\"ˆÈîï\"ˆÈðñ\"ˆÈòó\"ˆÈôõ\"ˆÈö÷\"ˆÈø÷\"ˆÈùú\"ˆÈûü\"ˆÈýÍ\"ˆÈþÿ\"ˆÈ@ A \"ˆÈB C \"ˆÈD E \"ˆÈF G \"ˆÈH I \"ˆÈJ K \"ˆÈL Ú\"ˆÈM Ú\"ˆÈN Ú\"ˆÈO P \"ˆÈQ R \"ˆÈS T \"ˆÈU V \"ˆÈW Ú\"ˆÈÛX !Y \"ˆÈÛZ ![ \"ˆÈ\\ Ú\"‡" [w3-working-buffer w3-use-html2latex shell-command-on-region format "%s %s" w3-html2latex-prog w3-html2latex-args t w3-replace-regexp "\\\\" "\\\\backslash " "{" "\\\\{" "}" "\\\\}" w3-insert "\\documentstyle" w3-latex-docstyle "\n" "\\begin{document}\n" "\\end{document}" "<\\(XMP\\|LISTING\\)>" "\\\\begin{verbatim}" "</\\(XMP\\|LISTING\\)>" "\\\\end{verbatim}" "<\\(ISINDEX\\|NEXTID\\)[^>]*>" "" regexp-quote "$" "\\\\$" "&gt;" "$>$" "%" "\\\\%" "#" "\\\\#" "_" "\\\\_" "~" "\\\\~" "<LI> *" "\\\\item " "^" "\\\\^" "<P>" "\\\\par" "<TITLE>\\([^<]*\\)</TITLE>" "\\\\section{\\1}" "<IMG *SRC=\"\\([^\"]*.ps\\)\">" "\\\\psfig{figure=\\1,width=\\\\columnwidth}" "<H1>" "\\\\section{" "<H2>" "\\\\subsection{" "<H3>" "\\\\subsubsection{" "<H4>" "<H5>" "\\\\paragraph{" "<H6>" "\\\\subparagraph{" "</H[0-9]*>" "<\\(UL\\|DIR\\|MENU\\)>" "\\\\begin{itemize}" "</\\(UL\\|DIR\\|MENU\\)>" "\\\\end{itemize}" "<OL>" "\\\\begin{enumerate}" "</OL>" "\\\\end{enumerate}" "<DL>" "\\\\begin{description}" "</DL>" "\\\\end{description}" "<DT>\\([^<]*$\\)" "\\\\item[\\1]" "<DD>" "<A[ 	\n]+[^>]*>" "</A>" "<\\(EM\\|B\\|STRONG\\|DFN\\)>\\([^<]*\\)</\\(EM\\|B\\|STRONG\\|DFN\\)>" "{\\\\bf \\2}" "<\\(CODE\\|SAMP\\|TT\\|KBD\\|VAR\\)>\\([^<]*\\)</\\(CODE\\|SAMP\\|TT\\|KBD\\|VAR\\)>" "{\\\\tt \\2}" "<\\(CITE\\|U\\)>\\([^<]*\\)</\\(CITE\\|U\\)>" "{\\\\underline \\2}" "<\\(I\\|ADDRESS\\)>\\([^<]*\\)</\\(I\\|ADDRESS\\)>" "{\\\\it \\2}" "<IMG[^>]*>" "&lt;" "$<$" "&amp;" " and " "<[^>]*>"] 7 "\
Convert an html document into LaTeX - this is pretty much the same as the
sed scripts from info.cern.ch" nil])
(fset 'w3-start-viewer #[(fname cmd &optional view) "«ŠŠÁ!qˆÂ ˆ)ÃÅÆ!®†ÅÇ!®ÈÉ\n%‡" [view get-buffer-create erase-buffer start-process fname getenv "ESHELL" "SHELL" "/bin/sh" "-c" cmd] 7 "\
Start a subprocess, named FNAME, executing CMD
If third arg VIEW is non-nil, show the output in a buffer when
the subprocess exits."])
(fset 'w3-pass-to-viewer #[nil "qˆ	‰¬‚Ã\n9«³\nÄ>¬©ÅÆÇ!!!ˆÉÊ!ˆ«‰ÌÇ!!ˆª‡ÍÇ!!ˆÎ ˆ\n ‚È \n ‚È \n;«ëÏ ¬ƒÊªÑ=«ƒÑª„Ó!Ö×Ñ!!«ŠØÑ#ˆªšÙÚ!«ŽÛedÊ‰&ˆª‡Ûed#ˆÝ!ˆÞß\nP\"ˆàáâ\n\"­‡Æãä\n!!!#å\"*ª˜\n<«ŒÉÊ!ˆÎ ˆæ\n!ªˆÞç\n\"ˆÍ!)‡" [w3-working-buffer w3-current-mime-viewer view indented-text-mode (w3-prepare-buffer w3-print w3-source) rename-buffer w3-generate-new-buffer-name file-name-nondirectory w3-current-file set-buffer-modified-p nil w3-mutable-windows pop-to-buffer switch-to-buffer buffer-enable-undo w3-generate-unique-filename w3-always-show-output t w3-confirmation-func "View process output?" show fname w3-file-directly-accessible-p w3-view-url make-symbolic-link boundp MULE write-region *noconv* kill-buffer message "Passing to viewer " set-process-sentinel w3-start-viewer format prin1-to-string read w3-viewer-sentinel eval "Unknown viewer specified: %S"] 9 "\
Pass a w3 buffer to a viewer based on file extension."])
(fset 'w3-save-binary-file #[nil "ÀÁÂÃ!Ä#ŠÆÇ!«ÈedÉ‰\n&ˆª†Èed#ˆËp!*‡" [read-file-name "Filename to save as: " expand-file-name "~/" "" x boundp MULE write-region nil *noconv* kill-buffer] 7 nil nil])
(fset 'w3-viewer-sentinel #[(proc string) "À	!Â	!Å!«‰Æ!«„Ç!ˆ­Œ«…É!ªƒÊ!*‡" [process-name proc process-buffer buffr fname file-exists-p file-writable-p delete-file w3-mutable-windows pop-to-buffer switch-to-buffer] 3 "\
Delete any temp files left from a viewer process."])
(fset 'w3-generate-new-buffer-name #[(start) "ÀÁÄ!¬ƒª—ÆÇ#Ä\n!«‹TÆÇ#ªp\n*‡" [1 nil name x get-buffer start format "%s<%d>"] 4 "\
Create a new buffer name based on START."])
(fset 'w3-generate-unique-filename #[nil "ÀÁÂ \"ÃÄÀÈ#ÉÊ\"!«TÀÈ#ªiÊ\"+‡" [format "w3-tmp.%d" user-real-uid "" 0 x fname base "%s%d" file-exists-p expand-file-name w3-temporary-directory] 4 "\
Generate a unique filename in w3-temporary-directory"])
(fset 'w3-extension-to-mime #[(extn) "À	—\n\"A‡" [assoc extn w3-mime-extensions] 3 "\
This will convert a file extensions (EXTN) to a mime-type, using
the variable w3-mime-extensions"])
(byte-code "ÀÁ!¬‚ÂÀ‡" [boundp w3-lazy-message-time 0] 2)
(fset 'w3-lazy-message-1 #[(&rest args) "?®ˆ	Â A@‰U?­„ÃÄ\"‡" [w3-show-status w3-lazy-message-time current-time apply message args] 3 "\
Just like `message', but is a no-op if called more than once a second.
Will not do anything if w3-show-status is nil."])
(fset 'w3-lazy-message-2 #[(&rest args) "­„ÁÂ\"‡" [w3-show-status apply message args] 3 "\
Just like `message', but will not do anything if w3-show-transfer-status
is nil."])
(byte-code "ÀÁ!«†ÂÃMˆª„ÂÄMˆÀ‡" [fboundp current-time w3-lazy-message w3-lazy-message-1 w3-lazy-message-2] 2)
(fset 'w3-build-url #[(protocol) "À‰‰‰¬‡ÆÇ!ˆ‚ê È˜«ÉÊ!ÉË!ÉÌ!‚ê Í˜«‡ÉÎ!‚ê Ï˜« ÉÐ!ÉË!ÉÑ!Ò\n˜«‚ÀÒ˜ƒê ÆÓ!ˆ‚ê Ô˜«¾Ö!«‰×ØÀ‰Ù$ªÿÉÚ!ÉÛ!Ò˜«‚ÜÒ˜«„ÆÓ!ˆ×ÝÞß#ÀÙ$‰Þß#GÀOªÐà˜¬…á˜«¥Éâ!ÉÛ!Éã!Ò\n˜«‚ÀÒ˜«‚ÀÒ˜«§Æä!ˆª¡å˜«œÉÐ!ÉË!ÉÑ!Ò\n˜«‚ÀÒ˜«„ÆÓ!ˆæç¬ƒÒªŒè\n¬ƒÒªƒé\nPQê	!ëU«ƒ	ªƒì	P$,‡" [nil file port host user protocol error "Protocol is unknown to me!" "news" read-string "Enter news server name, or blank for default: " "Enter port number, or blank for default: " "Newgroup name or Message-ID: " "mailto" "E-mail address: " "http" "Enter server name: " "Remote file: " "" "Must specify a remote machine!" "file" w3-confirmation-func "Local file?" read-file-name "Local File: " t "Login as user (blank=anonymous): " "Remote machine name: " "anonymous" "File: " format "/%s@%s:" "telnet" "tn3270" "Login as user (blank=none): " "Port number (blank=23): " "Must specify a host machine!" "gopher" message "%s:%s%s" "//" ":" string-to-char 47 "/"] 8 "\
Build a url for PROTOCOL, return it as a string" (byte-code "ÀÁÂÄÅ$\"AC‡" [assoc completing-read "Protocol: " w3-acceptable-protocols-alist nil t] 6)])
(fset 'w3-grok-wais-href #[(url) "ÀÁ\n\"ˆÃ\nÄ\"Ã\nÅ\"Ã\nÆ\"‰	E+‡" [string-match "wais:/+\\([^/:]+\\):*\\([^/]*\\)/+\\(.*\\)" url w3-match 1 2 3 data port host] 6 "\
Return a list of server, port, database, search-term, doc-id"])
(fset 'w3-grok-http-href #[(url) "	ÄÅ\"«ŽÇÈ\nÉ”É•O$ÄÊ\"«‰ËÌÉ\"!ÄÍ\"ˆÌÉ\"ÌÏ\"ÌÑ\"ÄÓ\"­Ô”TÔ•OÔ‰”OÖ˜«Ö˜«—Ä×\"ˆÌÉ\"ÌÏ\"ØÖ˜«ƒÙ«ÛÜ!U«‡ÉÝOF.‡" [w3-current-server w3-current-port y x string-match "http:/\\([^/].*\\)" url format "http://%s:%s/%s" 1 "http:\\([^/].*\\)" w3-parse-relative-link w3-match "http:+/*\\([^:/]*\\):*\\([^/]*\\)/*\\(/.*\\)" server 2 port 3 file "#.+$" 0 dest "" "/*\\([^:]+\\):*\\([0-9]*\\)" "/" "80" w3-using-proxy 47 string-to-char nil] 7 "\
Return a list of server, port, file, dest from URL"])
(fset 'w3-grok-file-href #[(url) "À‰‰‰‰ÆÇ\"«ûÆÉ\"ˆÊË\"ÊÌ\"ÍÆÎ\"­Ï”TÏ•OÏ‰”OÆÐ\"«Ï‰”OÏ”TÀOÆÑ\"«†Ï‰”OÒš«‚ÀÆÓ\"«ŠÊÔ\"ÊË\"	«½ÕÖ!«ˆÖ	#ˆª°Õ×!««×	#ˆª£ÆØ\"­ÊÔ\"Ï‰”OÆÙ\"«…ÊÔ\"ÚÛ!\"\nF-‡" [nil pswd dest file server user string-match "//" url "^\\(file\\|ftp\\):/*\\([^/]*\\)/*\\(/.*\\)" w3-match 2 3 "anonymous" "#.+$" 0 "@" ":" "localhost" "\\(.*\\):\\(.*\\)" 1 fboundp ange-ftp-set-passwd efs-set-passwd "#\\(.+\\)$" "file:\\(.*\\)" expand-file-name w3-basepath w3-current-file] 5 "\
Return a list of username, server, file, destination out of URL"])
(fset 'w3-grok-news-href #[(url) "ÀÁ\n\"ˆ\nÃ”Ã•O\nÄ”Ä•O\nÅ”Å•OÉš«ƒÊÉš«„Éš«ˆE+‡" [string-match "news:/*\\([^/:]*\\):*\\([0-9]*\\)/*\\(.*\\)" url 1 2 3 art port host "" "119" w3-news-server] 5 "\
Parse out a news url"])
(fset 'w3-grok-gopher-href #[(url) "À‰‰‰‰‰‰ÈÉ\n\"¬†ËÌ\n\"ˆÍ\nÎ\"ÏÍ\nÐ\"!ÈÑ\n\"«“Í\nÎ\"Í\nÐ\"Í\nÒ\"ªˆ\nÓÀÔš«„ÀªÕš«„Öª‡×š«‚ØÙ	!¬†Ò	GW«ƒ	ª„	ÎÀOÛ\n\"A®Ô¯.‡" [nil y x extra type selector port host string-match "gopher:/*\\([^/]+\\)/*\\(.*\\)" url error "Can't understand url %s" w3-match 1 w3-unhex-string 2 "^\\([^:]+\\):\\([0-9]+\\)\\([?+]*\\)" 3 "70" "" "?" ask-block "+" gopher+ string-to-char w3-use-hypertext-gopher assoc w3-gopher-to-mime] 7 "\
Return a list of attributes from a gopher url.  List is of the
type: host port selector-string MIME-type extra-info"])
(fset 'w3-buffer-is-hypertext #[(&optional buff) "®pŠqˆebˆÁÂÃÄ#)‡" [buff re-search-forward "<\\(TITLE\\|HEAD\\|BASE\\|H[0-9]\\|ISINDEX\\|P\\)>" nil t] 4 "\
Return t if a buffer contains HTML, as near as we can guess."])
(fset 'w3-have-visited-url #[(url &rest args) "À	\n\"‡" [assoc url w3-global-history-completion-list] 3 "\
Return non-nil iff the user has visited URL before.
The return value is a cons of the url and the date last accessed as a string"])
(defun w3-directory-files (url &rest args) "\
Return a list of files on a server." nil)
(defun w3-file-writable-p (url &rest args) "\
Return t iff a url is writable by this user" nil)
(defun w3-copy-file (url &rest args) "\
Copy a url to the specified filename." nil)
(fset 'w3-file-directly-accessible-p #[(url) "À	\n\"­„Ã\nÄ\"‰¬ƒÆª˜Çš¬…Èš«É\n!‰A@?­„ÊªÆ)‡" [string-match w3-nonrelative-link url w3-match 1 type nil "file" "ftp" w3-grok-file-href t] 4 "\
Returns t iff the specified URL is directly accessible
on your filesystem.  (nfs, local file, etc)."])
(fset 'w3-file-attributes #[(url &rest args) "…ÁÂ\"­…ÃÄ\"—Å‰‰ÉšƒÀ Ê!«‰Ì@\"«¢Î!ÄÏ‰‰‰BÏ‰BÏ‰BÐÑÒÓ8!!ÅÏ‰¯‚ÔÅÕŠÙ!ˆÚÛ\"A‰­¯ÝY­©ÞW­£Î!ÄÏ‰‰‰BÏ‰BÏ‰BÚß\"A®ÐÚà\"AÅÏ‰¯‰¬›Î!ÄÏ‰‰‰BÏ‰BÏ‰BÐÑ!!ÅÏ‰¯âÕ!ˆ,ªÑãš¬†äš«Åå!‰&A@«•ç&@è&A@éÓ&8°!ªˆçÓ&8!®„êëÅ\"‰AAAAAAAAÑÒÓ&8!! ˆ)+‡" [url string-match "^\\([^:]+\\):/" w3-match 1 nil exists data type "http" w3-grok-http-href w3-be-anal-about-file-attributes w3-member w3-bad-server-list w3-file-directory-p 0 -1 w3-extension-to-mime w3-file-extension 2 "HEAD" " *w3-temp*" w3-working-buffer w3-request-data w3-request-method w3-retrieve assoc "status" w3-current-mime-headers 200 300 "content-length" "content-type" w3-current-file kill-buffer "ftp" "file" w3-grok-file-href href file-attributes "@" ":" make-list 12] 13 "\
Return a list of attributes of URL.
Value is nil if specified file cannot be opened.
Otherwise, list elements are:
 0. t for directory, string (name linked to) for symbolic link, or nil.
 1. Number of links to file.
 2. File uid.
 3. File gid.
 4. Last access time, as a list of two integers.
  First integer has high-order 16 bits of time, second has low 16 bits.
 5. Last modification time, likewise.
 6. Last status change time, likewise.
 7. Size in bytes. (-1, if number is out of range).
 8. File modes, as a string of ten letters or dashes as in ls -l.
    If URL is on an http server, this will return the content-type if possible.
 9. t iff file's gid would change if file were deleted and recreated.
10. inode number.
11. Device number.

If file does not exist, returns nil."])
(defun w3-file-name-all-completions (file dirname &rest args) "\
Return a list of all completions of file name FILE in directory DIR.
These are all file names in directory DIR which begin with FILE." nil)
(defun w3-file-name-completion (file dirname &rest args) "\
Complete file name FILE in directory DIR.
Returns the longest string
common to all filenames in DIR that start with FILE.
If there is only one and FILE matches it exactly, returns t.
Returns nil if DIR contains no name starting with FILE." nil)
(defun w3-file-local-copy (file &rest args) "\
Copy the file FILE into a temporary file on this machine.
Returns the name of the local copy, or nil, if FILE is directly
accessible." nil)
(fset 'w3-insert-file-contents #[(url &rest args) "ŠÀ	!ˆ)Â!ˆÄ!‡" [w3-retrieve url insert-buffer w3-working-buffer kill-buffer] 2 "\
Insert the contents of the URL in this buffer."])
(fset 'w3-file-directory-p #[(url &rest args) "ÁÂOÃš‡" [url -1 nil "/"] 3 "\
Return t iff a url points to a directory"])
(fset 'w3-file-exists #[(url &rest args) "ÀÁ\n\"ˆÃ\nÄ\"—Å‰Èš«¬ÉÅÊŠÎ\n!ˆÏÐ\"A®ÒÓÊ!ˆÔY­„ÕW,ª³Öš¬†×š«§Ø\n!‰A@«•Ù@ÚA@ÛÜ8°!ªˆÙÜ8!*‡" [string-match "^\\([^:]+\\):/" url w3-match 1 nil exists type "http" "HEAD" " *w3-temp*" w3-working-buffer w3-request-data w3-request-method w3-retrieve assoc "status" w3-current-mime-headers 500 kill-buffer 200 300 "ftp" "file" w3-grok-file-href file-exists-p "@" ":" 2] 8 "\
Return t iff a file exists."])
(fset 'w3-buffer-visiting #[(url) "À Á«¨\n¬¥Š@qˆÄ@!š?­Ç=­ŠÈÉ!\nš­‚@A)ªU\n*‡" [buffer-list nil found bufs buffer-name w3-working-buffer major-mode w3-mode w3-view-url t url] 2 "\
Return the name of a buffer (if any) that is visiting URL."])
(fset 'w3-file-size #[(url &rest args) "ÀÁ\n\"ˆÃ\nÄ\"—ÅÆ‰	Êš« ËÆÌŠÐ\n!ˆÑÒ\"A®ÅÔÌ!ˆ,ª¹	Õš¬†	Öš«­×\n!‰A@«•Ø@ÙA@ÚÛ8°!ªˆØÛ8!Ü8;«†Ý!ª‘¨«„ªˆ¬ƒÅªÅ+‡" [string-match "^\\([^:]+\\):/" url w3-match 1 -1 nil data size type "http" "HEAD" " *w3-temp*" w3-working-buffer w3-request-data w3-request-method w3-retrieve assoc "content-length" w3-current-mime-headers kill-buffer "ftp" "file" w3-grok-file-href file-attributes "@" ":" 2 7 string-to-int] 8 "\
Return the size of a file in bytes, or -1 if can't be determined."])
(fset 'w3-parse-newsrc #[(&optional newsrc-file) "Š®…ÁÂP!Ä!«ŒÅ!«‡ÆÇ\"ˆª„ÁÂ!Ä!¬ŠÅ!¬…ÈÉ\"ˆÊË!qˆÌ ˆÍ!ˆÎÏÐ\"ˆÑ‰‰‰‰Œm„g×U„	`ØÑwˆg×U«†ÈÙÚ \"ˆ`ÛÑxˆÜ`{!bˆgÝUÑÞuˆÛÑwˆg×U¬ëÛÑwˆßà!«eÞ•}ˆÜp!eá•}ˆÑuˆÜp!~ˆBBªšßâ!«¬eã•}ˆÜp!~ˆ‰BBã•bˆÛÑwˆgäU«…Þuˆª)g×U¬$Ñˆå ˆÆæÚ #ˆçÞ!ˆªèéŸB#ˆÞyˆ‚O .êp!ˆèéëì#)‡" [newsrc-file expand-file-name "~/.newsrc" w3-news-server file-exists-p file-readable-p message "Using newsrc file %s... " error "%s could not be read." get-buffer-create " *newsrc*" erase-buffer insert-file-contents w3-replace-regexp "^[ \\	]options.*\\\n" "" nil p2 p newsgroup read-list subscribe 10 "^:!\n" "unparsable line in %s" buffer-name " 	" read 58 1 looking-at "\\([0-9]+\\)-\\([0-9]+\\)" 2 "[0-9]+" 0 44 ding "Ignoring bogus line for %s in %s" sleep-for put w3-newsrc kill-buffer parsed t] 5 "\
Parse out a newsrc.  This was largely yanked out of gnus"])
(fset 'w3-save-newsrc #[(&optional fname) "ÀÁ!qˆÂ ˆÃ®ƒÅÆ!!ˆebˆÇÈ!ˆdbˆÉÊ!Ë‰­±@A@AAÏ=¬eÐ!@«ƒÑªÒÓÔAÕ#Ö±ˆªK+‡" [get-buffer-create " *newsrc*" erase-buffer insert-file-contents fname expand-file-name "~/.newsrc" delete-non-matching-lines "^[ \\	]options" symbol-plist w3-newsrc nil info grp grps parsed symbol-name ": " "! " mapconcat #[(range) ":«‡@ÁAQ‡§­‡" [range "-"] 3] "," "\n"] 6 "\
Save the newsrc of the user"])
(fset 'w3-retrieve-newsgroup #[(group &optional show-all howmany) "ÀÁN¬ƒÂ ˆ9«„Ä!ÅÆ\"«­ÈÉ\"ˆŠ\nqˆebˆËÌÍÎ#¬‡Ï!ˆªoÑÒ”Ò•{!ÑÓ”Ó•{!)BªžÔ!ˆÕ Å×\"ˆÑØÒ\"!ÑØÓ\"!)BÀÙ!NAÍ‰‰‰@ßà!ˆ!«Œâ@A\"ªÀ«¼@A:«•â@S\"¤ATªX§«SâS\"¤Tª@âA\"¤#«…Gª„ä!-‡" [w3-newsrc parsed w3-parse-newsrc group symbol-name string-match "flee" nntp-version nntp/command "GROUP" nntp-server-buffer re-search-forward "[0-9]+[ \\	]+[0-9]+[ \\	]+\\([0-9]+\\)[ \\	]+\\([0-9]+\\)" nil t w3-accept-process-output nntp/connection string-to-int 1 2 nntp-request-group nntp-status-message msg "[0-9]+[ \\	]+\\([0-9]+\\)[ \\	]+\\([0-9]+\\)" w3-match read last temp seqs info stat w3-lazy-message "Finding unread articles..." show-all w3-make-sequence howmany nntp-retrieve-headers] 6 "\
Select newsgroup NEWSGROUP and return a list of headers of the remaining
articles"])
(fset 'w3-wais #[(url) "«	«ÂÃÄ	Æ•ÇO$!‡È!p	\nË ˆÌ\n@\nA@Ð\n8	ÓÔÐ\n8\"«™Õ\n@\nA@ÖÐ\n8×\"ÖÐ\n8Ð\"$ª°ÓØÐ\n8\"«™Ù\n@\nA@ÖÐ\n8×\"ÖÐ\n8Ð\"$ªŽÚÛÐ\n8ÜÝÞßàÝ±	*‡" [w3-wais-gateway-server w3-wais-gateway-port w3-fetch format "http://%s:%s/%s" url 0 nil w3-grok-wais-href lb href w3-clear-tmp-buffer "wais" w3-current-type w3-current-server w3-current-port 2 w3-current-file w3-current-last-buffer string-match "\\([^/]+\\)/.*3=\\([^ ;]+\\)" w3-retrieve-wais-docid w3-match 1 "\\([^\\?]+\\)\\?\\(.*\\)" w3-perform-wais-query "<title>WAIS search</title>\n" "<h1>WAIS search of " "</h1>" "<hr>\n" "<form>\n" "Enter search term: <input name=\"internal-wais\">\n" "</form>\n"] 9 "\
Retrieve a document via WAIS"])
(byte-code "ÀÁ!«„ÂÁ!ˆÀ‡" [boundp after-change-functions make-variable-buffer-local] 2)
(fset 'w3-after-change-function #[(&rest args) "ŠqˆÁ¬ÀebˆÄÁwˆÅÆ!¬„Çª°ÈÉÁÊ#­`ÈÌÊ#«ŠÍÎ”Î•{!—ÈÐÊ#«ŠÑÎ”Î•{!ª‚ÁebˆÈÒÊ#«ŒÎ”Î•{ÓÔ\nP!ˆdbˆ\n«‡ÕÖ\n!!ªÍ«—ÎV«’«ŽÕ×ddØ_¥%ª³«‘ÎV«ŒÕÙddØ_¥$ªŸdÎU¬Œ«ˆÕÚd#ªŽdÎU¬†ÕÛd\"ªƒÕÜ!*‡" [w3-working-buffer nil status-message w3-current-content-length " \\	\\\n" looking-at "HTTP/[0-9].[0-9]" 0 re-search-forward "$*$" t w3-current-isindex "^content-type:[ \\	]*\\([^\\\\\n]+\\)\\*$" w3-eat-trailing-space 1 w3-current-mime-type "^content-length:\\([^\\\\\n]+\\)\\*$" string-to-int "^status:\\([^\\]*\\)" replace-match "btatus:" w3-lazy-message w3-quotify-percents "Read %d of %d bytes (%d%%) [%s]" 100 "Read %d of %d bytes (%d%%)" "Read %d bytes. [%s]" "Read %d bytes." "Waiting for response."] 6 "\
The nitty gritty details of messaging the HTTP/1.0 status messages
in the minibuffer."])
(fset 'w3-http #[(url) "pÀ	!Ä ˆÅ\n@\nA@	Ê\n8Ì\n8Î	\"«‹ÑÒ	\"!ƒ	Óš«ƒÔ	Óš«ƒÕ	ÚÛ	$ˆÜÝß	!$‰ ;««qˆá ˆâ#äâ!%æçèéêÑë	#ìÑíîï!\"&ˆð !ªóñ !ˆò óîï!\"\"ˆ4«Šõö!«…÷öø\"ˆ9«”ú û\"ˆ<ý=«¹þ ÿ\"ˆª±Šqˆ@  !A >«”õö!¬†øB !ˆC  !ˆª`B D E ˆ)õö!­†F öø\")ªŠG  ˆðH !.‡" [w3-grok-http-href url href lb w3-clear-tmp-buffer "http" w3-current-type w3-current-last-buffer server port 2 file 3 dest w3-member w3-bad-port-list w3-confirmation-func format "Warning!  Trying to connect to port %s - continue? " "" "80" "/" w3-current-server w3-current-port w3-current-file w3-find-this-link w3-lazy-message "Fetching: %s %s %s" w3-open-stream "WWW" w3-working-buffer string-to-int process erase-buffer "text/html" w3-current-mime-type w3-mime-viewer w3-current-mime-viewer w3-insert "<TITLE>ERROR</TITLE>\n" "<H1>ERROR - Could not establish connection</H1>" "<P>" "The browser could not establish a connection " "to %s:%s.<P>" "The server is either down, or the URL" "(%s) is malformed.<P>" w3-view-url t message process-kill-without-query process-send-string w3-create-mime-request w3-show-http2-transfer boundp after-change-functions add-hook w3-after-change-function w3-be-asynchronous set-process-sentinel w3-sentinel w3-gateway-method host set-process-filter w3-filter w3-process-status (run open) nil w3-accept-process-output (w3-kill-process process) ((error)) remove-hook ding "Aborting connection to bad port..."] 12 "\
Retrieve URL via http.  If SOURCE is non-nil, then don't parse the buffer."])
(fset 'w3-file #[(url) "À	!‰@\nA@Å\n8Ç\n8p	Ê ˆ	«ìÌÍÎ°Ð!«ÁÒ=«ªÓ	ØÙ‰ÚÛOÌš«ƒÜªÌ#Þ!ª¨ß !«…á !ˆâ!ª—ã !qˆÓÛäå)ªüæçè\"«ˆé•ÛOª‚!Û	Ð!«²Ò=«›Þ!ˆØÙ‰ÚÛOÌš«ƒÜªÌ#‰ª±ß !«…á !ˆâ!ª êëì!!!-.¬Š-9¬…-<«†ÛïðªÛ).‡" [w3-grok-file-href url href user site 2 file 3 dest obuf w3-clear-tmp-buffer w3-current-last-buffer "/" "@" ":" filename file-directory-p w3-directory-format hypertext "ftp" w3-current-type w3-find-this-link w3-current-user w3-current-server format "%s%s" -1 nil "" w3-current-file w3-format-directory get-buffer w3-working-buffer kill-buffer find-file get-buffer-create (insert-file-contents filename nil) ((error (byte-code "ÀÁ\nP!‡" [w3-retrieve "www://error/nofile/" filename] 3))) expand-file-name string-match "file:" 0 w3-mime-viewer w3-extension-to-mime w3-file-extension viewer w3-source (insert-file-contents file) ((error (byte-code "ÀÁ\nP!‡" [w3-retrieve "www://error/nofile/" file] 3)))] 7 "\
Find a link to an ftp site - simple transformation to ange-ftp format"])
(fset 'w3-get-new-newsgroups #[(&optional tm) "À	!Ã\nÄÅO\"A\nÈÉO\nË\nÌÍOÉW«ƒÎªÏ\nGÐU«ƒÏªÎ\nÑ\nÒÓO\nÔÕO\nÖ×O°\n+‡" [current-time-string tm x assoc 4 7 monthabbrev-alist y 9 10 z "NEWGROUPS " -2 nil "0" "" 2 " " 11 13 14 16 17 19] 12 "\
Get a string suitable for an NTTP server to get a list of new newsgroups.
Optional argument TM is a list of three integers. The first has the
most significant 16 bits of the seconds, while the second has the
least significant 16 bits.  The third integer gives the microsecond
count.  (The format returned either by (current-time) or file-attributes
mod-time, etc.)"])
(fset 'w3-news-get-header #[(header) "ŠqˆebˆÁÂÄQÅÆ#«‡Ç”Ç•{ªÈ)‡" [nntp-server-buffer re-search-forward "^" header ": +\\(.*\\)" nil t 1 ""] 4 "\
Get header information HEADER out of news article in nntp buffer"])
(fset 'w3-news-get-body #[nil "ŠqˆebˆÁÂ!ˆÃ•d{)‡" [nntp-server-buffer re-search-forward "\\\n\\\n" 0] 2 "\
Get body of article from the nntp buffer"])
(fset 'w3-format-news #[nil "ÀÁÂ!!ÀÁÃ!!ÀÁÄ!!ÅÆÇÁÈ!É\"\"ÅÆÇÁÊ!Ë\"\"ÀÁÌ!!Í Õ ˆÖÖÙÚÛÜÝÞßàáâãäåæçèéê#ëìíîïðñòèóÖ#ôõö÷øùúûüýþÿ@ A B CD ±3.‡" [w3-fix-entities-in-string w3-news-get-header "From" "Subject" "Organization" mapcar car w3-split "Newsgroups" "[ \\	\\\n]+" "References" "[ \\	\\\n<>]+" "Date" w3-news-get-body body date refs grps org subj from w3-clear-tmp-buffer "" w3-current-file w3-current-type "<htmlplus>\n" " <head>\n" "  <title>" "</title>\n" "  <link rev=\"made\" href=\"mailto:" "\">\n" " </head>\n" " <body>\n" "  <div1>\n" "   <h1>" "</h1>\n" "   <p role=\"headers\">\n" "    <b>From</b>: <address> " "</address><br>\n" "    <b>Newsgroups</b>: " mapconcat #[(grp) "À	Â	Ã°‡" ["<a href=\"" grp "\"> " "</a>"] 5] ", " "<br>\n" "    <b>Organization</b>: <i> " "</i> <br>\n" "    <b>Date</b>: <date> " "</date> <br>\n" "   </p> <hr>\n" "   <p align=\"center\">References\n" "    <ol>\n" #[(ref) "À	Â	Ã°‡" ["     <li> <a href=\"" ref "\"> " "</a></li>\n"] 5] "    </ol>\n" "   <hr>\n" "   <ul plain>\n" "    <li><a href=\"newspost:disfunctional\"> " "Post to this group </a></li>\n" "    <li><a href=\"mailto:" "\"> Reply to " "</a></li>\n" "   <hr>" "   <pre>\n" "   </pre>\n" "  </div1>\n" " </body>\n" "</htmlplus>\n" "<!-- Automatically generated by Emacs-W3/" w3-version-number "-->"] 51 "\
Format a news buffer in html"])
(fset 'w3-format-whole-newsgroup #[(newsgroup header-list) "À ˆÁÂÃÅÆÇÈÉÊËÌÍÏ#ÐÑÒÓÔÖ±‡" [w3-clear-tmp-buffer "<htmlplus>\n" " <head>\n" "  <title>" newsgroup "</title>\n" " </head>\n" " <body>\n" "  <div1>\n" "   <h1>" "</h1>\n" "   <ol>\n" mapconcat #[(artcl) "ÁHÂÃH!ÂÄH!ÈÉ\"«‡ÊÃ\"ËÌÍÎÏ°+‡" [artcl 6 w3-fix-entities-in-string 1 2 from subj id string-match "<\\(.*\\)>" w3-match "    <li> <a href=\"" "\"> " "</a> <br>\n" "         " " </li>\n"] 8] header-list "" "   </ol>\n" "  </div1>\n" " </body>\n" "</htmlplus>\n" "<!-- Automatically generated by Emacs-W3/" w3-version-number "-->"] 20])
(fset 'w3-show-all-newsgroups #[nil "ÀÁN¬ƒÂ ˆÃÀ!Ä‰ÈÉÊËÌÍÎÏ±ˆ«±Ð@!A@AAÁ=¬dÑÒÓÄÔ#@«ƒÕªÖ%cˆªK×ØÙÚÛÝ±+‡" [w3-newsrc parsed w3-parse-newsrc symbol-plist nil info grp grps "<htmlplus>\n" " <head>\n" "  <title> Newsgroups </title>\n" " </head>\n" " <body>\n" "  <div1>\n" "   <h1> Newsgroup listing </h1>\n" "   <pre>\n" symbol-name format "    <a href=\"%s\">%7d%s %s" w3-retrieve-newsgroup t ": " "! " "   </pre>\n" "  </div1>\n" " </body>\n" "</htmlplus>\n" "<!-- Automatically generated by Emacs-W3/" w3-version-number "-->"] 8 "\
Show a hypertext list of all newsgroups."])
(fset 'w3-news #[(article) "¬„ÁÂ!ˆpÄ!qˆqˆ)Ç!‰	@\n	A@Ì	8\nš¬ƒÎ ˆÏ ¬‰Ð\nÑ!\"ˆÒÓ\"«»ÔÕOÖš¬‡×Ø\"Ï ¬‰Ð\nÑ!\"ˆÙ!«…Ú ˆª§qˆÛÜÝÞ×ßà \"áâ&ˆª”ã˜«…ä ˆª‰åæ!\"ˆç(\n)*‰+,‡" [noninteractive require nntp buff get-buffer-create w3-working-buffer w3-current-last-buffer w3-grok-news-href article info host port 2 w3-current-nntp-server nntp-close-server nntp-server-opened nntp-open-server string-to-int string-match "@" -1 nil ">" format "<%s>" nntp-request-article w3-format-news w3-insert "<TITLE>ERROR</TITLE>\n" "<H1> Error requesting article... </H1>" "The status message returned by the NNTP server was:<BR>" "<PRE>%s</PRE><P>" nntp-status-message "If you feel this is an error, <A HREF=\"" "mailto:wmperry@indiana.edu>send me mail</A>." "" w3-show-all-newsgroups w3-format-whole-newsgroup w3-retrieve-newsgroup "news" w3-current-type w3-current-server w3-current-port w3-current-file] 8 "\
Find a news reference"])
(fset 'w3-news-generate-reply-form #[(to newsgroups body &rest refs) "À	!qˆÂ ˆÃÄÅÆÇÈÉÊËÌÍÎÏÐÒÓÒÕÖ×ØÙÛØÜÝÞßàáâ±\"‡" [get-buffer-create w3-working-buffer erase-buffer "<htmlplus>\n" " <head>\n" "  <title>News Post/Reply Form</title>\n" "  <!-- Automatically generated by emacs-w3 -->\n" " </head>\n" " <body>\n" "  <div1>\n" "   <h1>News Post/Reply Form</h1>\n" "   <hr>\n" "   <form method=\"GET\" action=\"news-internal://\">\n" "    <ul>\n" "     <li> Reply by:" "<select name=\"replyby\"><option>Mail<option>News</select></li>\n" "     <li> Email: <input name=\"addr\" default=\"" to "\"></li>\n" "     <li> Newsgroups: <input name=\"newsg\" default=\"" newsgroups "     <li> <input type=\"checkbox\" name=\"include\">" "Include/quote article in followup</li>\n" "    </ul>\n" "    <hr>\n" "    <textarea \"name=body\">\n" body "\n</textarea>\n" "    <input type=\"submit\" value=\"Send it\">\n" "    <br>\n" "    <input type=\"reset\"  value=\"Reset to default values\">\n" "   </form>\n" "  </div1>\n" " </body>\n" "</htmlplus>\n"] 34 "\
Generate an HTML reply form."])
(fset 'w3-open-local #[(fname) "¬ƒÁ ˆÂÃP!‡" [w3-setup-done w3-do-setup w3-fetch "file:" fname] 3 "\
Find a local file, and interpret it as a hypertext document.
This is part of the emacs World Wide Web browser.  It will prompt for
an existing file or directory, and retrieve it as a hypertext document.
If it is a directory, and w3-directory-format is 'hypertext, then an
HTML directory listing is created on the fly.  Otherwise, dired-mode is
used to visit the buffer." "FLocal file: "])
(fset 'w3-format-directory #[(dir) "À	!Â‰‰‰‰ŠGS	qˆÊ ˆËÌÍ	\"!ˆËÌÎ	\"!ˆËÏ!ˆƒÐÑGZÒ_¥\"ˆ	ÓÂOÔš«‰ÌÕ	@#ª‡ÌÖ	@#×!Ø8Ù8Úš¬Œ¬Œ¬ˆ¬„Âª„Þ!ßš¬ˆÓš¬ƒ¬„Âª„à!@áš¬Å@âš«‹ËÌã@\"!ˆª³@;«ËÌä@@@$!ˆªž@«ŽËÌå@@#!ˆªŒËÌæ@@#!ˆ@áš¬©¬ƒ«„Ëç!ˆ«…Ëè\"ˆ«‡«„Ëé!ˆ«†Ëêë#ˆËì!ˆA‰„6 Ëí!.‡" [directory-files dir nil size mod-time attr div file files w3-working-buffer erase-buffer w3-insert format "<TITLE>Index of %s</TITLE>\n" "<H1> Directory listing of %s</H1>\n<P>" "<DL>\n" w3-lazy-message "Building directory list... (%d%%)" 100 -1 "/" "%s%s" "%s/%s" file-attributes 5 7 (0 0) w3-running-lemacs w3-running-old-lemacs w3-running-FSF19 current-time-string 0 int-to-string "." ".." "<DT> &folder;<A HREF=\"%s\">Parent Directory</A>" "<DT> &symlink;<A HREF=\"%s\">%s -&gt; %s</A>" "<DT> &folder;<A HREF=\"%s\">%s/</A>" "<DT> &unknown.document;<A HREF=\"%s\">%s</A>" "\n<DD>" "Last Mod: " ", " "Size: " " bytes" "\n" "\n</DL>"] 7 "\
Format the files in DIR into hypertext"])
(fset 'w3-telnet #[(url) "ÀÁ\n\"ˆ\nÃ”Ã•OÅ”­‡\nÅ”Å•SOÇÈ«†ÉPªÊ#ÀÌ\"‰«ŽTÎOÏOªÐ«¬ÓÔÎÖ×Ø«‹À\"«„ª‚&\nˆ­ÿÜÝ\"ªø«Àßà!ˆ«†ÜÝ\"ˆáÅ!ˆâãÇä«†ÉPªÊ$!«‹À\"«„ª‚DÎå%ª´æãÇä«†ÉPªÊ$!«‹À\"«„ª‚D#ˆ­…ÜÝ\"-‡" [string-match "telnet:/*\\(.*@\\)*\\([^/]*\\)/*" url 2 server 1 name format "%s%s" "@" "" title ":" thebuf nil 0 "23" port window-system start-process "htmlsub" w3-xterm-command "-title" "-ut" "-e" w3-gateway-local-host-regexp w3-local-telnet-prog w3-remote-telnet-prog message "Please log in as %s" w3-use-transparent require transparent sit-for transparent-window get-buffer-create "%s%s:%s" "Press any key to return to emacs" terminal-emulator] 12 "\
Open up a telnet connection"])
(fset 'w3-tn3270 #[(url) "ÀÁ\n\"ˆ\nÃ”Ã•OÅ”­‡\nÅ”Å•SOÀÇ\"ÉÊ«†ËPªÌ#«ŽTÎOÏOªÐ«ÓÔÎÖ×Ø&\nˆ­áÚÛ\"ªÚ«±ÝÞ!ˆ«†ÚÛ\"ˆßÅ!ˆàáÉâ«†ËPªÌ$!DÎã%ª¥äáÉâ«†ËPªÌ$!D#ˆ­…ÚÛ\"-‡" [string-match "tn3270:/*\\(.*@\\)*\\([^/]*\\)/*" url 2 server 1 name ":" thebuf format "%s%s" "@" "" title nil 0 "23" port window-system start-process "htmlsub" w3-xterm-command "-title" "-ut" "-e" w3-tn3270-emulator message "Please log in as %s" w3-use-transparent require transparent sit-for transparent-window get-buffer-create "%s%s:%s" "Press any key to return to emacs" terminal-emulator] 11 "\
Open up a tn3270 connection"])
(fset 'w3-mailto #[(url) "ÀÁ\n\"ˆ\nÃ”Ã•OÄÅ!«ŒÈ	!«†	 ˆª˜È\n!«†\n ˆªŒ«…Ë ˆªƒÌ ˆÍ ˆÎÏÐ\n#!ˆÑ *‡" [string-match "mailto:/*\\(.*\\)" url 1 w3-view-url t to w3-mutable-windows fboundp w3-mail-other-window-command w3-mail-command mail-other-window mail mail-to w3-insert format "%s\nX-URL-From: %s" mail-subject] 5 "\
Send mail to someone"])
(fset 'w3-gopher #[(url) "À	!Ã\nA@\"«ŠÆÇ\nA@\"!«®«…É\n!ª«ÊËÌÍ\n8!ÎU«ƒÏª…ÌÍ\n8!Í\n8Í\n8\n@Ð\nA@!%p\"ª†Ñ ˆÒÓ!)‡" [w3-grok-gopher-href url descr w3-member w3-bad-port-list w3-confirmation-func format "Warning!  Trying to connect to port %s - continue? " w3-use-hypertext-gopher w3-do-gopher gopher-dispatch-object vector string-to-char 2 0 49 string-to-int ding message "Aborting connection to bad port..."] 8 "\
Handle gopher URLs"])
(fset 'w3-generate-error #[(type data) "Áš«ŽÂÃÅÆÇÈÉ±	ˆª¡Êš«ŽËÌÅÍÎÏÐ±	ˆªŽÑš«‰ËÒÍÓÔÕ±ˆÍÖ×±‡" [type "nofile" "<title>Error</title>\n" "<h1>No file " data " found</h1>\n" "<hr>\n" "The file " " could not be found.  Either it does not" "exist, or is unreadable.\n" "nobuf" "<TITLE>Error</TITLE>\n" "<H1>No buffer " "<HR>\n" "The buffer " " could not be found.  It has either\n" "been killed or renamed.\n" "nohist" "<H1>No history items found.</H1>\n" "There is no history list available at this time.  Either\n" "you have not visited any nodes, or the variabe <i>\n" "w3-keep-history</i> is nil.\n" "If you feel this is a bug, <A HREF=\"mailto:wmperry@indiana.edu\">" "send mail to wmperry@indiana.edu</A>\n<HR>"] 9 "\
Generate an HTML error buffer for error TYPE with data DATA."])
(fset 'w3-generate-auto-html #[(type) "Áš«§Â!ÅÆÇÉ±ˆ«“Ê@A@Ë@@Ì±ˆA‰¬mÍc)‡Îš«£ÅÐÑÉ±ˆ«’ÒÓ@A@@@#cˆA‰¬nÍc)‡Ôš«°¬„Ö×!‡ÅÙÚÛ±ˆ«•ÒÜ@@@A#cˆA‰¬kÍc)‡Ýš…:à!\"#à$å&«Àç@!«±è@)ê#&Òë!&¬ˆÒì@\"ª-«‡î&@!ª„î&!ï@!$!A‰¬@#«ºð#@!««ñ#@!2ó#@ô\"5Òö$2‰G5G\\÷V«†ø5Pª‚5$$*#A‰#¬FùÒú;\"!ˆùüý!þ$ˆùÿý$þ$-‡" [type "hotlist" reverse w3-hotlist tmp "<htmlplus>\n	<head>\n		" "<title> Hotlist </title>\n	</head>\n" "	<body>\n		<div1>\n			<h1>Hotlist from " w3-hotlist-file "</h1>\n			<ol>\n" "				<li> <a href=\"" "\">" "</a></li>\n" "\n			</ol>\n		</div1>\n	</body>\n</htmlplus>" "starting-points" w3-starting-documents "<title> Starting Points </title>\n	</head>\n" "	<body>\n		<div1>\n			<h1>Starting Point on the Web" format "				<li> <a href=\"%s\">%s</a></li>\n" "history" w3-history-list w3-retrieve "www://error/nohist" urls "<title> History List For This Session of W3</title>" "\n	</head>\n	<body>\n		<div1>\n			<h1>" "History List For This Session of W3</h1>\n			<ol>\n" "				<li> <a href=\"%s\">%s</A>\n" "help" w3-doc-functions funcs "" funcstr w3-doc-variables vars varstr nil keys fboundp where-is-internal w3-mode-map t "%s\n<LI>%5s: %s" "M-x %s" w3-running-FSF19 key-description documentation boundp prin1-to-string thevar documentation-property variable-documentation doc "%s\n<LI>%20s: %s\n" 80 "\n" w3-insert "<TITLE>Help For W3 V%s</TITLE>\n" w3-version-number "<H1>Current keybindings:</H1>\n<HR><P>\n" "<UL>" "</UL>" "<HR><H1>Modifiable variables:</H1>\n<HR><P>\n"] 7 "\
Generate one of several automatic html pages"])
(fset 'w3-internal-url #[(url) "ÀÁ\n\"ˆÃ\nÄ\"Ã\nÅ\"È	!qˆÊÎš«”Ï!«†Ð!ª¬ÑÒP!ª¤Óš«”ÀÔ\"ˆÕÃÄ\"ÃÅ\"\"ªŠÖš­„×!*‡" [string-match "www:/+\\([^/]+\\)/\\(.*\\)" url w3-match 1 2 data type get-buffer-create w3-working-buffer "www" w3-current-type w3-current-server w3-current-file "preview" get-buffer insert-buffer w3-retrieve "www://error/nobuf/" "error" "\\([^/]+\\)/\\(.*\\)" w3-generate-error "auto" w3-generate-auto-html] 5 "\
Handle internal urls (previewed buffers, etc"])
(byte-code "ÀÁMˆÂÃM‡" [w3-www w3-internal-url w3-ftp w3-file] 2)
(fset 'w3-x-exec #[(url) "À	!qˆÂ ˆÃÄ\"ˆÇÈ\"ÇÉ\"ÊÊ‰ÃÔ\"«ŽÇÉ\"ÇÈ\"ÕÖ×\"ˆÕØÙ \"ˆÕÚÛ\"ˆÕÜÝ\"ˆÕÞß\"ˆÕà!\"ˆÕâãä%ß#\"ˆÕæç!\"ˆÕèç!\"ˆÕé\"ˆÕêç!\"ˆÕëÙ \"ˆìí.\"«ŠÕïìí.\"A\"ˆ0«‡Õñ0G\"ˆ«¥¬¡ò@\"ó!­ˆô!­‚A‰¬[¬ˆõöP!ªÃ0«„0cˆ÷edø‰%ebˆùú!«†ûÈ!ˆªuü «ƒÊªœ¬†ýþ±ª’ÿU«ˆ@ þ±ª„ýþ±.‡" [get-buffer-create w3-working-buffer erase-buffer string-match "x-exec:/+\\([^/]+\\)\\(/.*\\)" url process-environment w3-match 1 2 nil w3-local-exec-path y found safe-paths query-string path-info executable w3-current-server w3-current-file "\\(.*\\)\\?\\(.*\\)" setenv "SERVER_SOFTWARE" "X-exec/1.0" "SERVER_NAME" system-name "GATEWAY_INTERFACE" "CGI/1.1" "SERVER_PROTOCOL" "HTTP/1.0" "SERVER_PORT" "" "REQUEST_METHOD" w3-request-method "HTTP_ACCEPT" mapconcat #[(x) "ÁU«„ÂÄ‡ÅU«„ÆÇ‡È!‡" [x 10 t y "" 58 nil "," char-to-string] 2] w3-mime-accept-string "PATH_INFO" w3-unhex-string "PATH_TRANSLATED" "SCRIPT_NAME" "QUERY_STRING" "REMOTE_HOST" assoc "content-type" w3-request-extra-headers "CONTENT_TYPE" w3-request-data "CONTENT_LENGTH" expand-file-name file-exists-p file-executable-p w3-retrieve "www://error/nofile/" call-process-region t looking-at " \\	\\\n" delete-char w3-mime-response-p "HTTP/1.0 404 Not Found\n" "Server: Emacs-W3/x-exec\n" 0 "HTTP/1.0 200 Document follows\n"] 8 "\
Handle local execution of scripts."])
(fset 'w3-fix-proxy-url #[nil "À	\n\"ˆÃ\nÄ\"ÆÇÈQ!‰	­„	\n!\nÌ˜«“\n@\nA@Ï\n8‰ªËÐ˜«“\n@\nA@Ï\n8‰ª³Ñ˜¬…Ò˜«“\n@\nA@Ï\n8‰ª–Ô˜­‘\n@\nA@Ï\n8‰+‡" [string-match w3-nonrelative-link w3-current-file w3-match 1 type read "w3-grok-" "-href" prsr info w3-current-type "news" w3-current-server w3-current-port 2 "http" "ftp" "file" w3-current-user "gopher"] 5 "\
Fix a proxy url so that it doesn't get appended twice."])
(fset 'w3-retrieve #[(url) "À	!«„Â	!ˆÃÄ\"ˆÆ”Æ•OÈÉ\n\"«ŒÃÈÉ\n\"A\"?ªË­‡È\n\"AÍ«Ÿ‰ÑÍOÒš«ƒÓªÒQÃÄ\"­…ÔÆ\"ÕÖP—!×!«‡!ˆªŸØ	!qˆÙ ˆÚÛÜÝÞ\"ßàáâã&ˆäåæ!«†ç\"ˆ(¬ˆÀ	!«ƒé ˆêš¬­(«†ëš¬£À	!«žì «…í ˆª•î/0\"¬ëš«‡/0B0(¬•1¬‘ò «…ó1ªˆôõ!!1«ƒö ˆ÷!?­Šø B9B‰9,‡" [get-buffer w3-working-buffer kill-buffer string-match "\\([^:]*\\):/*" url 1 type assoc "no_proxy" w3-proxy-services t w3-using-proxy nil handler w3-current-file tmp -1 "/" "" w3-match intern "w3-" fboundp get-buffer-create erase-buffer w3-insert "<TITLE> Link Error! </TITLE>\n" "<H1> An error has occurred... </H1>\n" format "The link type <CODE>%s</CODE>" " is unrecognized or unsupported at this time.<P>\n" "If you feel this is an error, please" "<A HREF=\"mailto://wmperry@indiana.edu\">send me mail.</A>" "<P><ADDRESS>William Perry</ADDRESS>" "<ADDRESS>wmperry@indiana.edu</ADDRESS>" "error.html" boundp MULE w3-convert-code-for-mule w3-be-asynchronous w3-clean-text "wais" "http" w3-mime-response-p w3-parse-mime-headers w3-member w3-current-server w3-bad-server-list w3-current-mime-type w3-buffer-is-hypertext "text/html" w3-extension-to-mime w3-file-extension w3-fix-proxy-url w3-have-visited-url current-time-string w3-global-history-completion-list] 9 "\
Retrieve a document over the World Wide Web.
The document should be specified by its fully specified
Uniform Resource Locator.  No parsing is done, just return the
document as the server sent it.  The document is left in the
buffer specified by w3-working-buffer.  w3-working-buffer is killed
immediately before starting the transfer, so that no buffer-local
variables interfere with the retrieval.  HTTP/1.0 redirection will
be honored before this function exits."])
(fset 'w3-fetch #[(&optional url) "ÀÁ!Â!¬ƒÇ ˆÈ˜«‚É«ª\nË=¬¤\nÌ=¬À\n«Í ˆÎÏÐ\n!\"ˆÑÒ!ˆÔÕÖ!\"!¬¢×!ˆØ\"ˆÙ!­–«‰ÜÝ\"«ƒÉª‰ÞÉ‰\"ªƒß!*‡" [w3-view-url t w3-buffer-visiting url buf x w3-setup-done w3-do-setup "file:nil" nil w3-reuse-buffers no yes ding message "Warning: Invalid value for variable w3-reuse-buffers: %s" prin1-to-string sit-for 2 w3-confirmation-func format "URL found in buffer %10s, reuse " buffer-name w3-retrieve w3-add-urls-to-history get-buffer w3-working-buffer w3-be-asynchronous string-match "^http:" w3-sentinel switch-to-buffer] 5 "\
Retrieve a document over the World Wide Web.
The World Wide Web is a global hypertext system started by CERN in
Switzerland in 1991.

The document should be specified by its fully specified
Uniform Resource Locator.  The document will be parsed, printed, or
passed to an external viewer as appropriate.  See the variable
w3-mime-viewers for how to specify a viewer for a file type." (byte-code "¬ƒÁ ˆÂÃÅ‰Ç=«…ÈÉ!ªÊ%C‡" [w3-setup-done w3-do-setup completing-read "URL: " w3-global-history-completion-list nil major-mode w3-mode w3-view-url t ""] 7)])
(fset 'w3-forward-in-history #[nil "ÀÁÂ!!ÄNÆ@A@	AA@\n«…Ë=«…ÌÍ\"ˆ	«Î	!«ŠÏ	!ˆ\nbª„Ð!.‡" [intern w3-view-url t x w3-history y yes w3-reuse-buffers url buf pnt none error "No forward found for %s" buffer-name switch-to-buffer w3-fetch] 3 "\
Go forward in the history from this page" nil])
(fset 'w3-backward-in-history #[nil "ÀÁÂ!!ÄNÆ@A@	AA@\n«…Ë=«…ÌÍ\"ˆ	«Î	!«ŠÏ	!ˆ\nbª„Ð!.‡" [intern w3-view-url t x w3-history y yes w3-reuse-buffers url buf pnt none error "No backward found for %s" buffer-name switch-to-buffer w3-fetch] 3 "\
Go backward in the history from this page" nil])
(fset 'w3-add-urls-to-history #[(referer url) "­ƒÁ!\n­ƒÁ\n!«†`Eª‹ÆN«…ÆNªÇ\n«†\np`Eª‹ÆN«…ÆNªÇÈÆ\n#ˆÈÆ#*‡" [referer intern url y x w3-current-last-buffer w3-history none put] 4 "\
REFERER is the url we followed this link from.  URL is the link we got to."])
(fset 'w3-quotify-percents #[(str) "«ÁÃÄ\"«Å‰”OÆPÅ•ÇOªj\nP)‡‡" [str "" x string-match "%" 0 "%%" nil] 3 "\
Convert all '%'s in STR to be '%%' so it can be passed to format."])
(fset 'w3-use-starting-documents #[nil "Â )‡" [w3-starting-documents w3-hotlist w3-use-hotlist] 1 "\
Use the list of predefined starting documents from w3-starting-documents" nil])
(fset 'w3-show-starting-documents #[nil "¬ƒÁ ˆÂÃ!‡" [w3-setup-done w3-do-setup w3-fetch "www://auto/starting-points"] 2 "\
Show the list of predefined starting documents from w3-starting-documents" nil])
(fset 'w3-insert-formatted-url #[(p) "À‰«œÄÅ!‰¬„ÆÇ!ˆÈÉÊËÌÍÎ`!!8\"#ªŒÈÉÏÅ!ÊËÐ \"#ÑÒÀÅ#‰«ŠŠ\nqˆÓ	!)ªƒÔÕ!*‡" [nil str buff p w3-view-this-url t error "No url under point" format "<A HREF=\"%s\">%s</A>" read-string "Link text: " 3 w3-zone-data w3-zone-at w3-view-url buffer-name read-buffer "Insert into buffer: " w3-insert message "Cancelled."] 10 "\
Insert a formatted url into a buffer.  With prefix arg, insert the url
under point." "P"])
(fset 'w3-length-after-parsing #[(str) "ÀÂÃ\"«	ÅÆ\"PÇ•ÈOªk	PÉ	!‰G)‡" ["" tmp string-match "\\([^<]*\\)<[^>]+>" str w3-match 1 0 nil w3-fix-entities-in-string] 5 "\
Returns the length of a string after removing all text between
<>, and resolving all HTML entity references"])
(fset 'w3-first-n-items #[(l n) "ÀÁGV«„ª’W«\n8C¤T‰ªo\n*‡" [0 nil y x n l] 4 "\
Return the first N items from list L"])
(fset 'w3-breakup-menu #[(menu-desc max-len) "G	V«ŽÂÃ	\"BÄ	›	\"B‡‡" [menu-desc max-len "More..." w3-first-n-items w3-breakup-menu] 4])
(fset 'w3-get-url-at-point #[(&optional pt) "Š«ƒbˆÁÂŠm¬ÅÆ!«‹ÇÂxˆo¬„ÈÉ!ˆÊËÌQÍg!\"«ŒÂxˆ`Âwˆª†ÎÏ!ˆ``{,‡" [pt ".a-zA-Z0-9---_/:~" nil start filename-chars looking-at "[] 	\n[{}()]" " \n	({[]})" backward-char 1 string-match "[" "]" char-to-string message "No URL found around point!"] 4 "\
Get the URL closest to point, but don't change your
position. Has a preference for looking backward when not
directly on a symbol."])
(fset 'w3-follow-url-at-point #[(&optional pt) "ÀÁ\n!!‡" [w3-fetch w3-get-url-at-point pt] 3 "\
Follow the URL under PT, defaults to link under (point)" "d"])
(fset 'w3-batch-fetch #[nil "¬„ÁÂ!ˆÃ‰ÄÅJÆÇ‰ÈÉÃÊ@—‰Ö˜«”×Ø!ˆÙÚÛAª²Ü˜«‘×Ý!ˆÙÃAª›É˜«ŽÞ×ß!ˆAª‡Þ×à!ˆ­ç@!ˆebˆ!«ƒâ ˆã@\"cˆÃ˜¬Šäå&ç\"ç\"è!Ã˜«ƒéêP!«ŽPTªiPëed#ˆA‰¬Ç.‡" [noninteractive error "`w3-batch-fetch' is to be used only with -batch" "" 0 command-line-args-left 80 nil w3-fetch "text" ".txt" file-extn header file-format retrieval-function w3-delimit-links w3-delimit-emphasis w3-strict-width args x curname fname "html" message "Saving all text as raw HTML..." w3-retrieve ".html" "<BASE HREF=\"%s\">" "binary" "Saving as raw binary..." "Text from: %s\n---------------\n" "Saving all text as formatted..." "Going with default, saving all text as formatted..." buffer-read-only toggle-read-only format w3-file-extension w3-basepath w3-current-file t w3-strip-leading-spaces "root" file-exists-p write-region] 12 "\
Fetch all the URLs on the command line and save them to files in
the current directory.  The first argument after the -f w3-batch-fetch
on the command line should be a string specifying how to save the
information retrieved.  If it is \"html\", then the page will be
unformatted when it is written to disk.  If it is \"text\", then the
page will be formatted before it is written to disk.  If it is
\"binary\" it will not mess with the file extensions, and just save
the data in raw binary format.  If none of those, the default is
\"text\", and the first argument is treated as a normal URL."])
(fset 'w3-eat-trailing-space #[(x) "GSÁÂÃE‰ÆY«H>«†S‰ªoÆTO*‡" [x 32 9 10 skip-chars y 0] 5 "\
Remove spaces/tabs at the end of a string"])
(fset 'w3-strip-leading-spaces #[(x) "GSÁÂÃÄEX«H>«ˆT‰ªkÈO+‡" [x 0 32 9 10 skip-chars z y nil] 6 "\
Remove spaces at the front of a string"])
(fset 'w3-reload-all-files #[nil "ÀÀÀÀÅÇ@\"A‰¬oÉÊ!ˆ)Ë ‡" [nil w3-setup-done w3-hotlist w3-mime-accept-string w3-style-regexp (w3 w3-mule w3-emacs w3-emacs19 w3-epoch w3-lucid w3-new-lucid w3-next) x delq features require w3 w3-do-setup] 4 "\
Reload all w3 files" nil])
(fset 'w3-source-document-at-point #[nil "ÀÁ!‡" [w3-source-document t] 2 "\
View source to the document pointed at by link under point" nil])
(fset 'w3-source-document #[(under) "«„Á ªƒÂÃ!«ˆ¬…ÅÆ!ª•¬ˆ«„ªŠÈ!ˆÉ Êp!ˆÌ!??­¢Î!qˆcˆebˆÏ ˆÐÑ!ˆ«†Ó!ª„Ô!+‡" [under w3-view-this-url w3-view-url t url message "No link at point!" w3-current-source w3-retrieve buffer-string kill-buffer src w3-generate-new-buffer-name tmp get-buffer-create buffer-enable-undo set-buffer-modified-p nil w3-mutable-windows pop-to-buffer switch-to-buffer] 3 "\
View this documents source" "P"])
(fset 'w3-mail-document-under-point #[nil "ÀÁ!‡" [w3-mail-current-document t] 2 "\
Mail the document pointed to by the hyperlink under point." nil])
(fset 'w3-mail-current-document #[(under) "ÀÁÂÃÄ$«…ÇÄ!ªƒÈÄ!	ŠÊš«‹«‡Ë	!ˆªñÊš«Ÿ«”Î!qˆÐ ˆcˆ)ªÔË	!ˆªÍ«ŒÑš«‡Ò	!ˆª½Ñš¬¸«Óš«ŠË	!ˆÔ ˆª¥Óš« «”Î!qˆÐ ˆcˆ)ª…Ë	!ˆÔ ˆÕ )«ŒØ!«† ˆª˜Ø!«† ˆªŒ«…Û ˆªƒÜ ˆÝ ˆÞÅß	#!ˆà!Ã\"ˆâuˆiãW«†Þä!ˆªuÞåÊš«‡Åæ	\"ªçå$ˆiãW«†Þä!ˆªuè +‡" [completing-read "Format: " (("HTML Source") ("Formatted Text") ("LaTeX Source")) nil t format under w3-view-this-url w3-view-url url "HTML Source" w3-retrieve w3-current-source x get-buffer-create w3-working-buffer erase-buffer "Formatted Text" w3-fetch "LaTeX Source" w3-convert-html-to-latex buffer-string str w3-mutable-windows fboundp w3-mail-other-window-command w3-mail-command mail-other-window mail mail-subject w3-insert "%s from URL %s" re-search-forward mail-header-separator 1 79 "-" "\n" "<BASE HREF=\"%s\">" "" mail-to] 5 "\
Mail the current-document to someone" "P"])
(fset 'w3-parse-relative-link #[(url) "	Âš«ÃÆš«ƒÇªƒÈPQªÜ	Éš«‘ÊËš«ƒÇªƒÈPÌRªÆ	Íš«Îš«ƒÇªÐÑš«ƒÇªƒÈPÌRPª¤	Òš«Ó«†ÕPªÇQª	Öš«‰×Ø!!ÙªÙ	Íš«‹ÛP!ª²Ý!ÞU«†ª¤Çš¬žßHàš«‰PªÛá!P!P*‡" [w3-current-file w3-current-type "http" "http://" w3-current-server w3-current-port "80" "" ":" "gopher" "gopher://" "70" "/" "news" "news:" w3-news-server "//" "119" "ftp" "file://" w3-current-user "@" "www" buffer-file-name get-buffer "file:" resolved w3-remove-relative-links url string-to-char 35 0 47 w3-basepath] 5 "\
Try to resolve a link like \"library/io.html\""])
(fset 'w3-internal-use-history #[(hist-item) "@A@Á8¬ÀÅ Æ«œ¬˜Š@qˆÉÊ!˜‰¬…A)ª`«Ë@!ˆÌ\n!­‡\nbªƒÍ!*ª±Î!«¡Ë!ˆÌ\n!«ƒ\nbˆ­Ï!ÐU­–ebˆÑÒÆO!ª‹«…Ó!ªƒÔÕ!+‡" [hist-item 2 pnt buf url buffer-list nil found x w3-view-url t switch-to-buffer number-or-marker-p w3-fetch buffer-name string-to-char 35 w3-find-specific-link 1 w3-maybe-relative message "Couldn't understand whats in the history."] 5 "\
Go to the link in the history"])
(fset 'w3-relative-link #[(url) "ÁÂOÃš«Ä`Å\"ˆebˆÆÂÇO!‡ÈÉ!!‡" [url 0 1 "#" push-mark t w3-find-specific-link nil w3-fetch w3-parse-relative-link] 4])
(fset 'w3-maybe-eval #[nil "Á!«ƒÂ ‡Ã ‡" [w3-confirmation-func "This is emacs-lisp code, evaluate it?" eval-current-buffer emacs-lisp-mode] 2 "\
Maybe evaluate a buffer of emacs lisp code"])
(fset 'w3-build-continuation #[nil "Šqˆ	Â!Æ\"«‰ÂÈG[O!	«…ÊË!¬‹Ê®ƒÎ!!«‡ÏÐ\"ª‡ÏC\"+‡" [w3-working-buffer w3-default-continuation w3-file-extension w3-current-file extn cont assoc w3-uncompressor-alist 0 w3-source w3-mime-viewer "www/source" w3-current-mime-viewer w3-current-mime-type w3-extension-to-mime append (w3-pass-to-viewer) w3-default-action] 4 "\
Build a series of functions to be run on this file"])
(fset 'w3-link-info #[(&optional url no-show) "¬„ÁÂ!¬„ÃÂ!Ä‰‰‰‰	ÊË\"ˆÌÍ\"ÌÎ\"ÌÏ\"Ð˜«™ÊÑ\"«ƒÒª…ÓÔQ	ÕªÖ×˜«œÊØ\"¬–ÙÚÛÜ!!\"AÞP	ßªµà˜«–áPâ!ãU«…ä	ªŸå	ªš×˜«‚æÚÛÜ!!\"AÞP	áPçè	ç\"#)¬†ê!ª‚-‡" [url w3-view-this-url t w3-view-url nil type fil serv result ctype string-match "^\\([^:]+\\):/*\\([^/]+\\)/*\\(.*\\)" w3-match 1 2 3 "news" "@" "news article" "newsgroup (" ")" "NNTP site at %s" w3-news-server "file" "^file://" "local file system." assoc w3-extension-to-mime w3-file-extension w3-mime-descriptions " file" "%s" "gopher" " site at %s." string-to-char 48 "gopher document" "gopher directory" "ftp" format "A %s on the %s" no-show message] 6 "\
Get more information on a link." nil])
(fset 'w3-use-links #[nil "¬„ÁÂ!ˆÃÅÆÇÈÉÃÊ%Ë\"AÉÉ«§@AÅ\"«jÅ\"AÅÐ\"ABBªUÑÅÆÒÉÃ$\"A!-‡" [w3-current-links error "No <LINK> tags in this document." t completion-ignore-case assoc completing-read "Type of relation: " (("Reverse" . "rev") ("Normal" . "rel")) nil "normal" (("Reverse" . "rev") ("Normal" . "rel")) type table x y "href" w3-fetch "Link: "] 7 "\
Select one of the <LINK> tags from this document and fetch it." nil])
(fset 'w3-fix-fake-urls #[(st nd) "Œ	}ˆebˆÂÄPÅ\"ˆÂÆÇQÈ\")‡" [st nd w3-replace-regexp w3-nonrelative-link "\\(:[^ >]+\\)" " \\1\\2" "[^=\"]+" "\\(:[^ >\\\n]+\\)" "<A HREF=\"\\1\\2\"> \\1\\2 </A>"] 4 "\
Fix fake urls into real \"<A HREF=...></A>\" type links" "r"])
(fset 'w3-update-source-files #[(w3-source-directory) "ÀÁ\n‰ÃÄOÅš«ƒÆªÅ#Ç	Ê	\"«ˆË	Ì#ˆÍÀÎ	\"!ˆÍÀÏ\n	#!*‡" [format "%s%sw3.tar.z" w3-source-directory -1 nil "/" "" "/anonymous@cs.indiana.edu:/pub/elisp/w3/w3.tar.z" oldfile newfile file-newer-than-file-p copy-file 3 shell-command "gunzip %s" "cd %s ; tar xf %s"] 6 "\
Retrieve the latest version of the w3 browser and copy it to`
w3-source-directory" "DWhere to store w3.tar.z? "])
(fset 'w3-hexify-string #[(str) "ÀÁ!«†Â#ÆÇÈ!É#‰‡" [boundp MULE code-convert-string str *internal* w3-mule-retrieval-coding-system mapconcat #[(char) "ÁV¬™ÂW¬”ÃW«…ÄV¬ŠÅW«–ÆV«‘ÇW«†ÈÉ\"–‡ÈÊ\"–‡Ë!‡" [char 122 46 97 90 64 57 16 format "%%0%x" "%%%x" char-to-string] 3] w3-fix-entities-in-string ""] 4 "\
Escape characters in a string"])
(fset 'w3-find-this-file #[nil "¬	Â=«‹«„Ä!‡Æ!‡Çš«•«‰ÄÈÉ\n#!‡ÆÈÉ\n#!‡ËÌ!‡" [w3-current-type major-mode w3-mode w3-mutable-windows find-file-other-window w3-current-file find-file "ftp" format "/anonymous@%s:%s" w3-current-server message "Sorry, I can't get that file so you can alter it."] 5 "\
Do a find-file on the currently viewed html document if it is a file: or
ftp: reference" nil])
(fset 'w3-delete-from-alist #[(x alist) "À	\n\"\n@=«ƒ\nA‡ÃÀ	\n\"\n\"‡" [assoc x alist delq] 4 "\
Remove X from ALIST, return new alist"])
(fset 'w3-count-occurences #[(regexp) "ÀÁŠm¬˜`ÄÁÆ#«\n`U«…ÇuˆªjTªe)*‡" [0 nil opoint n re-search-forward regexp t 1] 4 "\
Count # of matches for REGEXP after point. Modified from the how-many
function of emacs19"])
(fset 'w3-insert-this-url #[(pref-arg) "ÀÁÂ!!p«…ÄÅ!ªƒÆÅ!	Êš?­Œ	qˆË!ˆq+‡" [get-buffer read-buffer "Insert into buffer: " pref-arg w3-view-this-url t w3-view-url url oldbuf thebuf "Not on a link!" w3-insert] 4 "\
Insert the current url in another buffer, with prefix ARG, insert URL under point" "P"])
(fset 'w3-show-hotlist #[nil "¬ƒÁ ˆ\n¬„ÃÄ!‡ÅÆ!‡" [w3-setup-done w3-do-setup w3-hotlist error "Sorry, no hotlist is in memory." w3-fetch "www://auto/hotlist"] 2 "\
View the hotlist in hypertext form" nil])
(fset 'w3-lookup-style #[(type) "À	\n\"A‰9«„Jª)‡" [assoc type w3-style-assoc x] 4 "\
Return the physical style of logical style <TYPE>"])
(fset 'w3-make-sequence #[(start end) "	U«‚Â‡	V«‚Â‡Â	X«‰	B	Sªr)‡" [start end nil sqnc] 2 "\
Make a sequence (list) of numbers from START to END"])
(fset 'w3-maybe-relative #[(url) "À	\n\"¬„Ã\n!‡Ä\n!‡" [string-match w3-nonrelative-link url w3-relative-link w3-fetch] 3 "\
Take a url and either fetch it, or resolve relative refs, then fetch it"])
(fset 'w3-in-assoc #[(elt list) "À\n«™	¬–\n@@«‹Ã\n@@\"«ƒ\n@\nA‰¬g	)‡" [nil rslt list string-match elt] 4 "\
Check to see if ELT matches any of the regexps in the car elements of LIST"])
(fset 'w3-member #[(elt list) "«Œ	@š¬†A‰¬t‡" [list elt] 3 "\
Function defined so that we are sure member will always use equal, like
its supposed to.  This was pulled from Jamie Zawinskies byte compiler "])
(fset 'w3-goto-last-buffer #[nil "«‹	«„Â!‡Ã!‡ÄÅ!‡" [w3-current-last-buffer w3-mutable-windows pop-to-buffer switch-to-buffer message "No previous buffer found."] 2 "\
Go to last WWW buffer visited" nil])
(fset 'w3-file-extension #[(fname &optional x) "ÀÁ\n\"««†\nÄ‰”O‡\nÄ”ÅO‡Æ‡" [string-match "\\.[^\\.]+$" fname x 0 nil ""] 3 "\
Return the filename extension of FNAME.  If optional variable X is t,
then return the basename of the file with the extension stripped off."])
(fset 'w3-basepath #[(file &optional x) "¬‚Á‡\n«„Ã!‡Ä!‡" [file "" x file-name-nondirectory file-name-directory] 2 "\
Return the base pathname of FILE, or the actual filename if X is true"])
(fset 'w3-replace-regexp #[(regexp to-string) "ebˆÀ	ÂÃ#­ˆÄÃÂ#ˆªq‡" [re-search-forward regexp nil t replace-match to-string] 4 "\
Quiet replace-regexp."])
(fset 'w3-find-highest-link-num #[nil "qˆebˆÁÃÄdÅ#«ªÁ•ŠÃÇdÅ#ˆÁ”){‰	«Ê	!\nV«…Ê	!+ªO\n)‡" [w3-working-buffer 0 lnkctr re-search-forward "<A[ 	\n]+NAME=" t start "[ 	\n>]" end subst string-to-int] 5 "\
Find highest NAMEd link, so we can number on from there."])
(fset 'w3-clear-tmp-buffer #[nil "À	!qˆ\n«ƒÃ ˆÄ ‡" [get-buffer-create w3-working-buffer buffer-read-only toggle-read-only erase-buffer] 2 "\
Clear the temporary W3 buffer"])
(fset 'w3-preview-this-buffer #[nil "ÀÁÂ P!‡" [w3-fetch "www://preview/" buffer-name] 3 "\
See what this buffer will look like when its formatted as HTML.
HTML is the HyperText Markup Language used by the World Wide Web to
specify formatting for text.  More information on HTML can be found at
info.cern.ch:/pub/www/doc." nil])
(fset 'w3-gateway-initialize-host-process #[(host user pass) "ÀÁÂˆÀÃÄˆŠÅ!qˆÇ ˆÈÉÅ!\n$«¾ebˆÎÀÐ#¬‹Ñ!ˆÓÔ!ˆªjÕ×P\"ˆebˆÎÀÐ#¬‹Ñ!ˆÓÙ!ˆªjÕ×P\"ˆebˆÎÀÐ#¬‹Ñ!ˆÓÜ!ˆªj‰*‡" [nil (delete-process w3-gateway-host-process) ((error)) (kill-process w3-gateway-host-process) ((error)) get-buffer-create w3-working-buffer erase-buffer start-process "GATEWAY" w3-gateway-host-program host x w3-gateway-program-interactive re-search-forward w3-gateway-handholding-login-regexp t w3-accept-process-output w3-gateway-host-process w3-lazy-message "Waiting for login prompt..." process-send-string user "\n" w3-gateway-handholding-password-regexp "Waiting for password prompt..." pass w3-gateway-host-prompt-pattern "Waiting for shell prompt..."] 5 "\
Start up the remote host for use as a telnet gateway"])
(fset 'w3-kill-process #[(proc) "Á=«„Â!‡Ä=«„Å!‡Æ=«ŽŠÇ!qˆÈ!ˆÉ )‡ÊË\"‡" [w3-gateway-method native delete-process proc program kill-process host process-buffer interrupt-process erase-buffer error "Unknown w3-gateway-method %S"] 3 "\
Kill the process PROC"])
(fset 'w3-accept-process-output #[(proc) "¬‰	¬†\n¬ƒ«…ÄÆ\"‡Ä ‡" [w3-running-FSF19 w3-running-old-lemacs w3-running-lemacs w3-running-epoch accept-process-output proc 1] 3 "\
Allow any pending output from subprocesses to be read by Emacs.
It is read into the process' buffers or given to their filter functions.
Where possible, this will not exit until some output is received from PROC,
or 1 second has elapsed."])
(fset 'w3-process-status #[(proc) "Á>«„Â!‡Ä=« Â!Å>«‚Æ‡ŠÇ!qˆebˆÈ	ÊË#«ƒÆªÌ)‡ÍÎ\"‡" [w3-gateway-method (native program) process-status proc host (stop exit signal closed) exit process-buffer re-search-forward w3-gateway-host-prompt-pattern nil t open error "Unkown w3-gateway-method %S"] 4 "\
Return the process status of a w3 buffer"])
(fset 'w3-open-stream #[(name buffer host service) "«‰Á\n\"«ƒÃª‰Å=«‡ÆÅ!«‚ÃÃ=«Ç	\n\n$ÌÍ!«‡Î	\"ˆ)‚ Â=«Ý«ŽÐ!«ˆÑ!Ò>¬‰Ó#ˆŠ×Ø!\"ˆØ!qˆÚ ˆÛÝ\nÝ\nÞ°\"ˆebˆß áâ#¬‹ã!ˆäå!ˆªjeæ•|ˆ)ªâç=«Ùè	)\nê\n!%á+ÌÍ!«‡Î	\"ˆŠ	qˆ`+ebˆß,áâ#¬‡ã!ˆªn+`|ˆebˆßíáâ#«áîïˆðñò\"ˆáª‚+ª„óô\")‡" [w3-gateway-local-host-regexp string-match host native w3-gateway-method tcp require open-network-stream name buffer service proc boundp MULE w3-inhibit-code-conversion w3-gateway-host-process processp w3-process-status (run open) w3-gateway-initialize-host-process w3-gateway-host w3-gateway-host-username w3-gateway-host-password set-process-buffer get-buffer-create w3-working-buffer erase-buffer process-send-string w3-gateway-host-program " " "\n" re-search-forward w3-gateway-host-program-ready-regexp nil t w3-accept-process-output w3-lazy-message "Waiting for remote process to initialize..." 0 program start-process w3-gateway-telnet-program int-to-string tmp w3-gateway-telnet-ready-regexp "connect:" (delete-process proc) ((error)) w3-replace-regexp ".*connect:.*" "" error "Unknown w3-gateway-method %S"] 9 "\
Open a stream to a host"])
(fset 'w3-unhex #[(x) "ÁV«‘ÂY«†ÂZÃ\\‡ÄZÃ\\‡ÅZ‡" [x 57 97 10 65 48] 2])
(fset 'w3-unhex-string #[(str) "®ÁÁÃÄ\"«±Å”ÇÈ\\œ!‰	Ê_ÇË\\œ!\\\nÅOÍ!QÅ•ÎO+ªI\nP‰)‡" [str "" tmp string-match "%[0-9a-f][0-9a-f]" 0 start w3-unhex 1 ch1 16 2 code char-to-string nil] 6 "\
Remove %XXX embedded spaces, etc in a url"])
(fset 'w3-rassoc #[(key list) "À\n«“	¬\n@Aš«ƒ\n@\nA‰¬m	)‡" [nil found list key] 3 "\
An 'rassoc' function - don't want to bother with loading cl just
for this function"])
(fset 'w3-insert-entities-in-string #[(str) "ÀÁ\nÃ#‡" [mapconcat #[(x) "ÁU«‚Â‡ÃU«‚Ä‡ÅU«‚Æ‡ÇU«‚È‡É!‡" [x 60 "&lt;" 62 "&gt;" 38 "&amp;" 32 "&ensp;" char-to-string] 2] str ""] 4 "\
Remove special characters in STR and replace them with HTML[+] entities"])
(fset 'w3-fix-entities-in-string #[(str) "ÀÁÂÃÅ#ÆQÇ	\nË	\"«¤ÍÎÏ\"\"AÐÑ\nÒ‰”O$\nÒ•ÇOªT\nP‰\n+‡" ["" "\\(" mapconcat #[(x) "@‡" [x] 1] w3-html-entities "\\|" "\\)" nil x regexp tmp string-match str assoc w3-match 1 format "%s%s%s" 0] 7 "\
Remove &xxx; entities in string STR"])
(fset 'w3-edit-source #[nil "qˆÁÂÄ=«ƒÅª‰Æ=«ƒÇªÈÉ\nË\"#Ì Ï!qˆÐ!ˆÑ!*‡" [w3-working-buffer format "Editing %s Annotation: %s" w3-editing-annotation group "Group" personal "Personal" "Unknown" w3-basepath w3-current-file t buffer-string str ttl get-buffer-create w3-insert kill-buffer] 6 "\
Edit the html document just retrieved"])
(fset 'w3-clean-text #[nil "qˆÁÂÃ\"ˆÁÄÃ\"‡" [w3-working-buffer w3-replace-regexp "Connection closed by.*" "" "Process WWW.*"] 3 "\
Clean up a buffer after telnet (trash at beginning, connection closed)"])
(fset 'w3-source #[nil "ÀÁÂ!!qˆÅ!ˆÆ!ˆÇÈ!ˆÉ ˆ\n«…Ë!ªƒÌ!)‡" [buffer-name generate-new-buffer "Document Source" tmp w3-working-buffer kill-buffer rename-buffer set-buffer-modified-p nil buffer-enable-undo w3-mutable-windows pop-to-buffer switch-to-buffer] 3 "\
Show the source of a file"])
(fset 'w3-uncompress #[nil "qˆÁ\n!Ä\"­ŽÆÇ!ˆÈedÄ\"AÉ$)‡" [w3-working-buffer w3-file-extension w3-current-file extn assoc w3-uncompressor-alist message "Uncompressing" shell-command-on-region t] 6 "\
Uncompress a file"])
(byte-code "ÀÁMˆÂÃM‡" [w3-filter #[(proc string) "Šqˆ	cˆÂÃ	\"«ŠÄÆ\"ˆÇ	\"ˆ)	‡" [w3-working-buffer string string-match "\nConnection closed by" set-process-filter proc nil w3-sentinel] 3] w3-sentinel #[(proc string) "qˆÁÂ!«…ÃÂÄ\"ˆ«¹Æ ˆÁÇ!«ˆÈ	ÊË!\"ˆÌ!«˜Í «…Î ˆªÏ\"¬‡B¬ˆÓÔ!!Ö ‰­Ž@ ˆA‰¬sØ)‡" [w3-working-buffer boundp after-change-functions remove-hook w3-after-change-function w3-be-asynchronous w3-clean-text MULE w3-convert-code-for-mule w3-current-type w3-view-url t get-buffer w3-mime-response-p w3-parse-mime-headers w3-member w3-current-server w3-bad-server-list w3-current-mime-type w3-extension-to-mime w3-file-extension w3-current-file w3-build-continuation x nil] 5]] 2)
(fset 'w3-show-history-list #[nil "ÀÁ!‡" [w3-fetch "www://auto/history"] 2 "\
Format the w3-history-list prettily and show it to the user" nil])
(fset 'w3-save-as #[nil "ÀÁÂÃÄ$ÅÆÇ\"!ÉÄ!\n‰Íš«¬èÃÐ\n!ˆ)ªÝÑš«ª¬‹ÃÐ\n!ˆ)ªÓ!qˆcˆ)ebˆÌÕ\n\"cˆª­Öš¬§×š«¡¬‹ÃÐ\n!ˆ)ªÓ!qˆcˆ)Ø ˆÙed#+‡" [completing-read "Format: " (("HTML Source") ("Formatted Text") ("LaTeX Source") ("Binary")) nil t expand-file-name read-file-name "File name: " default-directory w3-view-url url fname format "Binary" w3-current-source w3-be-asynchronous w3-retrieve "HTML Source" txt get-buffer-create w3-working-buffer "<BASE HREF=\"%s\">\n" "Formatted Text" "LaTeX Source" w3-convert-html-to-latex write-region] 6 "\
Save a document to the local disk" nil])
(fset 'w3-upcase-region #[(st nd) "ŠbˆÁÂÄ#«‹ÅÆ”\"ˆÆ•ªnÅ\")‡" [st re-search-forward "\\(<[^>]+>\\)\\|\\(&[^;]+;\\)" nd t upcase-region 0] 4 "\
Uppercase a region of text, ignoring text within < and >"])
(fset 'w3-match #[(s x) "	”	•O‡" [s x] 3 "\
Return regexp match x in s."])
(fset 'w3-build-links-list #[nil "qˆebˆ	«ƒÂ ˆÃÃÃÃÃÃ	Ã\nÃÌÃÃebˆÐÌÒ#…¦Ó”ÕÖ”Ö•\"×Ø!ˆÐÌÒ#«ˆÓ”×Ã!ˆª„Ìˆ`ŠbˆÜÌwˆ`bˆÜÌxˆ`)W«ŠÝÞ\"A®ÃÝß\"AÝà\"AÝá\"A	Ýâ\"AÝã\"A\nÝä\"Aå{!«Žæ'\"¬†è!é!*ë=«Ÿ«›bˆì«ƒíªî«ƒïªíQ!ˆªÎ*«Ê«Æ«…0Aªƒ0@«…1Aªƒ1@bˆòÌwˆì!ˆG\\bˆòÌxˆì!ˆGG\\\\3«ˆì3!!ˆ«¥ô«„5®‚6÷	\n¯	Ò%ˆªšô8÷	\n¯	$ˆ+‚. .‡" [w3-working-buffer buffer-read-only toggle-read-only "" cur-id cur-txt cur-urn cur-rel cur-href cur-rev cur-title cur-meth nil been-visited st-del nd-del re-search-forward w3-link-begin-regexp t 0 start w3-parse-args 1 replace-match " " cur-url w3-link-end-regexp end " 	" assoc "name" "href" "ref" "rev" "urn" "title" "methods" w3-fix-entities-in-string string-match w3-nonrelative-link w3-parse-relative-link w3-have-visited-url w3-delimit-links linkname w3-insert "{" "[" "}" w3-link-start-delimiter w3-link-end-delimiter " \\	\\\n" w3-link-delimiter-info w3-add-zone w3-visited-node-style w3-node-style w3 w3-default-style] 13 "\
Build links out of url specs in the temporary buffer.  This function
looks in the buffer pointed to by w3-working-buffer.  The links will be
fully usable by w3-follow-link, etc."])
(fset 'w3-handle-links #[nil "qˆebˆ	«ƒÂ ˆÃÅebˆÇÈÅÉ#«ÄÊ”ËÃ!ˆÇÍÅÉ#ˆ`ËÃ!ˆÏS\"S|ˆÑÒ\"A‰«‹Ó\"¬„Õ!B+ª5*‡" [w3-working-buffer buffer-read-only toggle-read-only "" cur-href nil result re-search-forward "<LINK[ \\	]+" t 0 replace-match start ">" end w3-parse-args cur-lnk assoc "href" string-match w3-nonrelative-link w3-parse-relative-link] 5 "\
Parse out the LINK attributes.
This will take the <LINK> attributes out of the current w3-working-buffer
and return an assoc list of the form (Rel or rev tag . url)"])
(fset 'w3-embed-text #[(data type) "Áš«ƒ\nc‡Ã\nÄ±‡" [type "text/html" data "<pre>" "</pre>"] 3 "\
Use DATA as extra text for this document."])
(fset 'w3-embed-postscript #[(data type) "À ŠÂÃ!qˆÄ ˆcˆÆed	Ç$ˆÈÉÊ‰‰	‰&ˆÄ ˆË	!ˆÊÌÍˆÎ Ïp!ˆ)Ð	Ñ\")‡" [w3-generate-unique-filename fname get-buffer-create " *w3-temp*" erase-buffer data write-region 5 call-process "pstoxbm" nil insert-file-contents (delete-file fname) ((error)) buffer-string kill-buffer w3-embed-image "image/xbm"] 7 "\
Embed a LaTeX document"])
(fset 'w3-embed-mpeg #[(data type) "ÀÁÄÅ\nÆQ\"!«…\nTªoÅ\nÆQ\"ŠÈÉ!qˆÊ ˆcˆÌedÍÎ%ˆqˆÐ`\"+‡" ["w3-img-" 0 x fnam file-exists-p expand-file-name ".mpg" w3-temporary-directory get-buffer-create " *w3-temp*" erase-buffer data write-region nil 5 w3-working-buffer w3-add-delayed-mpeg] 6 "\
Embed an mpeg movie in the buffer"])
(fset 'w3-embed-eqn #[(data type) "À ŠÂÃ!qˆÄ ˆÅÇ±ˆÈedÉÊË‰ÌÍÎ	&\nˆÄ ˆÏÐ	‰#ˆÑ	!ˆËÒÓˆÔ Õp!ˆ)Ö	×\")‡" [w3-generate-unique-filename fname get-buffer-create " *w3-temp*" erase-buffer ".EQ" data ".EN" call-process-region "eqn" t nil "|" "groff" ">" call-process "pstoxbm" insert-file-contents (delete-file fname) ((error)) buffer-string kill-buffer w3-embed-image "image/xbm"] 11 "\
Embed an equation in the buffer"])
(fset 'w3-embed-image #[(data type) "ÀÁ\n\"@ÄÈÉQ\n\"!«…TªmÉQ\n\"ŠËÌ!qˆÍ ˆcˆÏedÐ$ˆÑp!ˆ)ÒÓ±+‡" ["w3-img-" w3-rassoc type w3-mime-extensions 0 x extn fnam file-exists-p expand-file-name w3-temporary-directory get-buffer-create " *w3temp*" erase-buffer data write-region 5 kill-buffer "<img src=\"file:" "\" alt=\"embedded data\">"] 5 "\
Use DATA as an image of content-type TYPE and insert it in the buffer."])
(fset 'w3-handle-embeds #[nil "ebˆÀ‰‰‰‰‰ÇÈÀÉ#­îÊË”Ë•\"ÌÍ!ˆÎÏ\"A®ÐÎÑ\"AÒ\"A`\n« ŠÔÉ×\n\"¬„Ù\n!Ú\n!ˆÛ Üp!ˆ+ª™ÇÝÀÉ#«Œ	Þ”{	Þ•|ˆª†ßà!ˆÀá!«\"ˆª.‡" [nil st src data cvtr type args re-search-forward "<EMBED\\([^>]*\\)>" t w3-parse-args 1 replace-match "" assoc "type" "text/plain" "src" w3-in-assoc w3-embedded-data-converters " *w3-temp*" w3-source w3-working-buffer string-match w3-nonrelative-link w3-parse-relative-link w3-retrieve buffer-string kill-buffer "</embed>" 0 message "Nonterminated <embed> tag, trying to cope." fboundp] 6 "\
Handle <EMBED>....</EMBED> tags."])
(fset 'w3-handle-personal-annotations #[nil "ÀÁ!ˆÂ ‰«®Å=«ƒdªÆ=«ƒeª…ÇÈ!ˆdbˆÉÊ!ˆ«ŒÉË@\"ˆA‰¬tÉÌ!ˆ)ÀÍ!‡" [w3-lazy-message "Finding personal annotations..." w3-fetch-personal-annotations annos w3-annotation-position bottom top message "Bad value for w3-annotation-position" w3-insert "<P><HR>\n<H1>Personal Annotations</H1><P><UL>" "\n<LI> " "</UL><HR>" "Finding personal annotations... done."] 4 "\
Take care of personal annotations"])
(fset 'w3-insert-headers #[nil "ÀÁ!ˆ\nÃ‰d‰bˆ«žÇ@\"‰«‹ÉÊ@ËÌA!$ˆA‰¬bdU?­ŽÉÍ!ˆbˆÀÎ!ˆÉÏ!+‡" [w3-lazy-message "Inserting HTTP/1.0 headers..." w3-show-headers nil y x hdrs assoc w3-current-mime-headers w3-insert "<LI> <B>" "</B> :" w3-insert-entities-in-string "</UL>" "Inserting HTTP/1.0 headers... done." "<HR><UL>"] 7 "\
Insert some HTTP/1.0 headers if necessary"])
(fset 'w3-fixup-bad-html #[nil "ÀÁ!ˆÂÃÄ\"ˆÂÅÆ\"ˆÂÇÈ\"ˆÂÉÊ\"ˆÂËÌ\"ˆÂÍÎ\"ˆÂÏÐ\"ˆÂÑÒ\"ˆebˆÓÕÖ×PÓØ#«¶Ù”‰fÚ=«¢bˆÛÜ!¬dÛÝ!¬_ÛÞ!¬ZÛß!¬USbˆàcˆªKSbˆàcˆªA)Àá!‡" [message "Checking for bad HTML..." w3-replace-regexp "<\\(TBL[^>]*\\)>" "<\\1>\n<PRE>" "</TBL>" "</TBL>\n</PRE>" "<TEXTAREA" "<PRE><TEXTAREA" "</TEXTAREA>" "</TEXTAREA></PRE>" "<LISTING>" "<PRE>" "</LISTING>" "</PRE>" "<DL[^>]*>" "<DL>" "\\(</H[0-9][^>]*>\\)" "\\1\n" nil st re-search-forward "</\\(H[0-9]\\|PRE\\|DL\\|OL\\|UL\\|DIR\\|MENU\\)[^>]*>" "[ \\	\\\n]*\\([^ \\	\\\n]\\)" t 2 60 looking-at "<[Pp][ >]" "<[DdOoUu][Ll]" "<[dD][iI][rR]" "<[Mm][Ee][Nn][Uu]" "<P>" "Checking for bad HTML... done."] 5 "\
Fix lots of bad html markup"])
(fset 'w3-kill-comments #[nil "ebˆÀÁ!ˆÂ‰ÅÆÂÇ#«¯È”ÅÉÂÇ#«„È•ª„Âˆ`|ˆ`f®ÈÊ>¬Y`Sf®ÈË>¬OÌcˆªJ*ÀÍ!‡" [w3-lazy-message "Removing SGML comments..." nil nd st re-search-forward "[ \\	\\\n]*<!--" t 0 "-->[ \\	\\\n]*" (32 9 10) (32 9 10) " " "Removing SGML comments... done."] 4 "\
Take care of SGML comments in a buffer."])
(fset 'w3-prepare-buffer #[(&optional no-display) "ÀÁ!ˆ\nqˆÃ!ˆÅ ˆÆ ˆÇ ÉÊ!ˆ®‚Ì ZÏÐÑÒÓÔ$Õ\"ˆÖÕ×ebˆÛ ˆebˆÜÝ×Ö#«ÞÕ!ˆ`d{`d|ˆß ˆà ˆá ˆâ ˆã ˆä ˆÏåæ\"ˆÏçè\"ˆé ˆê ˆë ˆì ˆí ˆî /ð ˆñ ˆebˆÏòó\"ˆÏôõ\"ˆö ˆ÷ ˆø ˆebˆù :Ö;:@?­‚<<:@?­‚==:@?­‚>>:@?­‚??:@?­‚@@:@ƒp:@A =«£B :A!:C >:@=:A@@D :8<ªã:@E =¬‰:@F =«§G :A!‰:@­ƒH >:@?:A@=D :8<ªª:@I =«¡J :A!:K >:@=:A@@D :8<L  ˆM  ˆ.N  ˆO  ˆÏP Q \"ˆÏR S \"ˆÏT Q \"ˆebˆÜU ×Ö#­ˆV ”ÞÕ!ˆÜW ×Ö#­ˆV ”ÞÕ!ˆX‰Y«›Z [ \\ YX{!!!YX|ˆª‰] <Ö\"G^ V«‹V ^ O_ !*`  ˆÏa b \"ˆÏóc \"ˆd  ˆe  ˆf  ˆebˆ\nqˆ«dbˆg h \"ˆebˆi j !«Šk l !ˆªmm n !«‰o pq\"ˆr  ˆÉs !ˆt„ju  ˆv !ˆw«‰x !ˆª‡y !ˆebˆz {!«™Š{qˆ|)u =«‹}¬‡~ {!ˆ«¤€ Ö!‚ ƒ\"¬’„ š¬ŠBƒBƒ)À… !ˆ† ‡ !«ž;«„ˆ¬–‰ Š !ˆ‹  ˆˆ¬…Œ  ˆ«‰Ž !ˆªƒebˆ¬…  ˆ‘ ×!ˆ’ “ !«ˆ” “ !ˆ•«Š– — ˜\"ˆ™«†š  p› V !ˆ‰ Õ!ˆ+‡" [w3-lazy-message "Parsing..." w3-working-buffer set-syntax-table w3-parse-args-syntax-table w3-handle-personal-annotations w3-insert-headers buffer-string w3-current-source run-hooks w3-file-prepare-hooks w3-strict-width window-width w3-right-border fill-column w3-replace-regexp format "[%c%c%c]" 13 12 26 "" t nil pltxt ttl case-fold-search w3-kill-comments re-search-forward "<PLAINTEXT>" replace-match w3-handle-embeds w3-fixup-bad-html w3-balance-pre w3-balance-xmp w3-handle-arbitrary-tags w3-check-index "<LIT>" "<PRE>" "</LIT>" "</PRE>" w3-fix-xmp w3-fix-pre w3-fix-render-hints w3-handle-footnotes w3-handle-notes w3-handle-links w3-current-links w3-fix-extras w3-handle-generic-emphasis "[ \\	]*<SP>[ \\	]*" "<SP>" "[ \\	]*&nbsp;[ \\	]*" "&nbsp;" w3-handle-whitespace w3-handle-headers w3-restore-pre w3-handle-base x w3-delay-image-loads w3-current-file w3-current-server w3-current-type w3-current-user w3-current-port http w3-grok-http-href "http" 2 file ftp w3-grok-file-href "ftp" gopher w3-grok-gopher-href "gopher" w3-build-links-list w3-handle-graphics w3-handle-forms w3-do-lists "<LI>" "\n	*" "<DT>" "\n<DT>" "<DD>" "<title>" 0 "</title[ \\	\\\n]*>" nd st w3-fix-entities-in-string w3-strip-leading-spaces w3-eat-trailing-space w3-basepath 50 w3-generate-new-buffer-name w3-fix-paragraphs "<X>\\\n+\\(\\	*\\)<W3BR>" "\n\\1" " " w3-fix-unknown-tags w3-fix-entities w3-restore-xmp w3-insert "\n" looking-at "\\\n" delete-char 1 boundp MULE w3-mule-attribute-zones w3-zones-list w3-mule-attribute w3-fix-extent-endpoints w3-file-done-hooks no-display w3-mode rename-buffer w3-mutable-windows pop-to-buffer switch-to-buffer bufferp w3-current-last-buffer major-mode w3-keep-old-buffers kill-buffer w3-keep-history w3-view-url url assoc w3-history-list "file:historylist" "Done." fboundp w3-insert-graphic w3-delay-mpeg-loads message "Processing images..." w3-load-delayed-images w3-load-delayed-mpegs w3-find-this-link w3-find-specific-link buffer-read-only toggle-read-only set-buffer-modified-p get-buffer "Conversion errors" switch-to-buffer-other-window w3-running-epoch set-variable buffer-style w3-default-style w3-running-FSF19 w3-only-links sit-for] 7 "\
Function to prepare w-buffer for processing.  This will completely
reformat a buffer - if you just want to parse out links, see the documentation
for w3-build-links-list."])
(fset 'w3-handle-base #[nil "À‰ebˆÃÄÀÅ#«˜ÆÇ”Ç•\"ÈÉ!ˆÊË\n\"A‰¬„ÌÍ!ˆ	;«ŽÎÏ	\"«ˆÐÑ	Ç\"—!\n	*B‡" [nil url base re-search-forward "<BASE\\([^>]+\\)>" t w3-parse-args 1 replace-match "" assoc "href" message "Malformed 'BASE' tag." string-match "^\\([^:]+\\):/+" intern w3-match] 5 "\
Handle BASE tag"])
(fset 'w3-handle-notes #[nil "ÀÁ!ˆ\nqˆebˆÃ‰‰ÇÈÃÉ#«¯ÊË”Ë•\"ÌÍ!ˆÎÏ\"A®ÐÎÑ\"A‰«‡ÒÓÔ\"!ˆÒÓÕ\"!ˆªJ+Ö×Ø\"ˆÀÙ!‡" [w3-lazy-message "Handling notices..." w3-working-buffer nil x img role re-search-forward "<NOTE\\([^>]*\\)>" t w3-parse-args 1 replace-match "<HR><BR><B>" assoc "role" "NOTE" "src" w3-insert format "<IMG SRC=\"%s\" ALIGN=\"CENTER\">" "<B>%s:</B>" w3-replace-regexp "</NOTE>" "<BR><HR>" "Handling notices... done."] 5 "\
Handle NOTE tags, as per the HTML+ 'Notes and Admonishments' section."])
(fset 'w3-handle-footnotes #[nil "ÀÁ!ˆ\nqˆebˆÃÄÅÆ#«ŠdbˆÇÈ!ˆebˆÉÅ‰‰\nÃÄÅÆ#«ÏÎ”ÏÐ!ˆÃÑÅÆ#«ˆÎ”ÏÐ!ˆª„Åˆ`{\n|ˆbˆÇÒÓ‰#!ˆdbˆÇÒÔ‰#\n\"ˆTebˆª*ÃÕÅÆ#«ÏÎ”ÏÐ!ˆÃÖÅÆ#«ˆÎ”ÏÐ!ˆª„Åˆ`{\n|ˆbˆÇÒÓ‰#!ˆdbˆÇÒÔ‰#\n\"ˆTebˆª*,À×!‡" [w3-lazy-message "Handling footnotes...." w3-working-buffer re-search-forward "<FOOTNOTE>" nil t w3-insert "<P>Footnotes<BR><HR>" 1 txt nd st fcounter 0 replace-match "" "</FOOTNOTE>" format "<A HREF=\"#w3-internal-footnote%d\">%d</A>" "<P ID=\"w3-internal-footnote%d\">%d. " "<MARGIN>" "</MARGIN>" "Handling footnotes... done."] 5 "\
Handle footnotes, margin notes, etc, from the HTML+ spec"])
(fset 'w3-fix-render-hints #[nil "ÀÁ!ˆ\nqˆebˆÃ‰‰ÇÈÃÉ#«²ÊË”Ë•\"ÌÍ!ˆÎÏ\"AÎÐ\"AÑÒÓ\"ÒÓ\"\"ˆÑÒÔ\"ÒÔ\"\"ˆªG+ÀÕ!‡" [w3-lazy-message "Fixing custom render attributes..." w3-working-buffer nil sty tag x re-search-forward "<RENDER\\([^>]+\\)>" t w3-parse-args 1 replace-match "" assoc "tag" "style" w3-replace-regexp format "<%s>" "</%s>" "Fixing custom render attributes... done."] 5 "\
Parse out the RENDER hints ala the HTML+ specification."])
(fset 'w3-handle-arbitrary-tags #[nil "qˆebˆÁÂÃÄ#­¡Å”Å•{Æ”Æ•{ÉÊ!ˆËÌÍÎ\"!\"ˆ*ªX‡" [w3-working-buffer re-search-forward "<!ENTITY[ \\	]+\\([^ ]*\\)[ \\	]+\"\\([^\"]*\\)\">" nil t 1 2 defn entity replace-match "" w3-replace-regexp regexp-quote format "&%s;"] 5 "\
Find occurences of <!ENTITY ...> and replace them correctly."])
(fset 'w3-balance-xmp #[nil "qˆebˆÁÂ!ÁÄ!ZdbˆÇV­‹SÈÉ!ˆªo+‡" [w3-working-buffer w3-count-occurences "<XMP>" st "</XMP>" nd df 0 w3-insert "</XMP>\n"] 2 "\
This function will attempt to balance embedded plaintext elements
<XMP> tags.  This is necessary or the parser will fail some critical
regular expression matches."])
(fset 'w3-balance-pre #[nil "qˆebˆÁÂ!ÁÄ!ZdbˆÇV­‹SÈÉ!ˆªo+‡" [w3-working-buffer w3-count-occurences "<PRE[^>]*>" st "</PRE>" nd df 0 w3-insert "</PRE>\n"] 2 "\
This function will attempt to balance embedded plaintext elements
(<PRE> tags).  This is necessary or the parser will fail some critical
regular expression matches."])
(fset 'w3-fix-extras #[nil "ÀÁ!ˆ\nqˆebˆÃÅÆ#«ÞÇ”É”É•{–\nËÌ!ˆÃÍ\nÎQÅÆ#«ˆÇ”ËÌ!ˆª`Ð\n!Ò\n\"AÕÖ$ˆ«˜«”bˆØA!ˆbˆØ@!ˆ-ªÀÙ!‡" [w3-lazy-message "Doing textual highlighting..." w3-working-buffer re-search-forward w3-style-regexp nil t 0 st 1 dastyle replace-match "" "</" ">" nd w3-lookup-style sty assoc w3-style-chars-assoc ltrs w3-add-zone (w3style) w3-delimit-emphasis w3-insert "Doing textual highlighting... done."] 5 "\
Replace <B>, <I>, etc tags in the buffer.  Appropriate zones will be
created, and highlighting will be added when possible."])
(fset 'w3-find-graphic-entity #[(entity) "À	\n\"AÄ¬œ«’¬Ç@	P‰!«nÈªj	B\nB*‡" [assoc entity w3-icon-path-cache retval nil done w3-icon-directory-list w3-file-exists t] 3 "\
Return where we found the bitmap for entity... this searches through
w3-icon-directory-list and tries to find the bitmap corresponding to entity."])
(fset 'w3-fix-entities #[nil "ÀÁ!ˆ\nqˆebˆÃÄ!««Œ¬ˆÇÈ	\"ˆª“ÃÄ!«ˆÇÊ	\"ˆª†ÇË	\"ˆÌÎÏÌÐ#«ŽÑÒÓÔ”Ô•{!!!ˆªkÇÕ\"ˆ)ebˆÀÁ!‡" [w3-lazy-message "Finding HTML+ entities..." w3-working-buffer fboundp w3-insert-graphic w3-delay-image-loads w3-graphics-always-show-entities mapcar #[(entry) "ebˆÀ	@ÂÃ#­šÄÅ!ˆÆÇ	A@!È `Â“É	AA®Å$ˆª^‡" [re-search-forward entry nil t replace-match "" w3-add-delayed-graphic w3-find-graphic-entity make-marker center] 5] w3-graphics-entities-alist #[(entry) "ebˆÀ	@ÂÃ#­—ÄÅ!ˆÆÇ	A@!C`È	AA®Å$ˆªa‡" [re-search-forward entry nil t replace-match "" w3-insert-graphic w3-find-graphic-entity center] 5] #[(entry) "ebˆÀ	@	AA®Â\"‡" [w3-replace-regexp entry ""] 3] nil case-fold-search re-search-forward "&#\\([0-9]+\\);*" t replace-match char-to-string string-to-int 1 #[(x) "À	@	A\"‡" [w3-replace-regexp x] 3] w3-html-entities] 5 "\
Replace &#XXX with ASCII character XXX."])
(fset 'w3-fix-pre #[nil "qˆebˆÁÃÅÆÁÇ#­ÎÃ”ÈÉ!ˆ\nÅËÁÇ#ˆÃ”ÈÉ!ˆÍ\n{!É˜?‰« T‰\n{D\nB\n|ˆ\nbˆÏÐÑ!\"ˆª†\n|ˆ+ª+‡" [w3-working-buffer nil w3-pre-data 0 w3-pre-data-count re-search-forward "<PRE[^>]*>" t replace-match "" start "</PRE>" end w3-eat-trailing-space repl w3-insert "***PREDATA" int-to-string] 5 "\
Extract <PRE> fields, and put them back in later."])
(fset 'w3-restore-pre #[(&optional done) "qˆebˆ	ÂV­°ÃÄÅ	!PÆÇ#ˆÈ	¬ƒÊªËÌ	\"A@	¬ƒÎªËQÇ‰#ˆebˆ	S‰ªL‡" [w3-working-buffer w3-pre-data-count 0 re-search-forward "***PREDATA" int-to-string nil t replace-match done "<PRE>" "\n" assoc w3-pre-data "</PRE>"] 6 "\
Restore the <PRE> fields"])
(fset 'w3-fix-xmp #[nil "qˆebˆÁÃÅÆÁÇ#­®Ã”ÅÉÁÇ#ˆ`\nT‰\n{D\nB\n|ˆbˆËÌÍ!\"ˆ*ªK‡" [w3-working-buffer nil w3-xmp-data 0 w3-xmp-data-count re-search-forward "<XMP>" t start "</XMP>" end w3-insert "***XMPDATA" int-to-string] 5 "\
Extract <XMP> fields, and put them back in later."])
(fset 'w3-restore-xmp #[nil "qˆebˆ	ÂV­¥ebˆÃÄÅ	!PÆÇ#ˆÈÉÊ	\"A@ÌÍOÉQÇ‰#ˆ	S‰ªW‡" [w3-working-buffer w3-xmp-data-count 0 re-search-forward "***XMPDATA" int-to-string nil t replace-match "\n" assoc w3-xmp-data 5 -6] 6 "\
Restore the <XMP> fields"])
(fset 'w3-check-index #[nil "qˆebˆÁÂÃÄ#«–ÄÆ«‹Éš«…ÊËPªÌÄ\"‡Ã‰‡" [w3-working-buffer re-search-forward "\\\n*<ISINDEX>\\\n*" nil t w3-current-isindex replace-match w3-use-forms-index w3-current-type "http" "<FORM>\nThis is a searchable index.  Search for:" " <INPUT NAME=\"isindex\"><P></FORM>" ""] 4 "\
Check to see if this is an indexed file.  If it is, update the mode line"])
(fset 'w3-handle-whitespace #[nil "qˆebˆÁÂÃ\"ˆÁÄÅ\"ˆÁÆÅ\"ˆÁÇÅ\"ˆÁÈÉ\"‡" [w3-working-buffer w3-replace-regexp "<P>\\\n*" "<P>" "\\\n" " " "	" "  +" "\\. +" ".  "] 3 "\
Fix newlines, tabs, and spaces"])
(fset 'w3-handle-headers #[nil "ÀÁ!ˆ\nqˆebˆÃÄÅÆ#ƒ1Ç”Ç•{É”É•{\nÅÅÍ Î”Ï”«‹ÐÑÏ”Ï•{!!ªÒÓÔ!ˆÅ“Í ÃÖ×\"ØPÅÆ#«šÎ”Ï”«‹ÐÑÏ”Ï•{!!ªÒÓÔ!ˆª‡ÅˆÒ`Å“Ú\"AÝßàá\n\"­‡\nÏ”Ï•OÅ‰‰‰‰‰‰¯B$ˆ«ó\"«ïã{!‰$å ®‚&'ZV«‹å ®‚&'Zª‚$$Ç8«ŠÇ8\"ˆbˆÎ8«Œèéê$@\"é#ˆè!ˆbˆè!ˆA@«èéê$A@\"é#ˆ)ª’bˆè!ˆbˆè!ˆ.‚\n ebˆÀë!‡" [w3-lazy-message "Parsing headers..." w3-working-buffer re-search-forward "[ \\	\\\n]*\\(<P[^>]*>\\)*[ \\	\\\n]*<H\\([0-9]+\\)\\([^>]*\\)>" nil t 2 siz 3 tags x y make-marker 0 1 w3-eat-trailing-space w3-strip-leading-spaces "<P>" replace-match "" st format "</H%s>" "[ \\	\\\n]*\\(<P[^>]*>\\)*" end assoc w3-header-chars-assoc forms w3-add-zone w3-header-style w3header string-match "ID=\"\\([^\"]+\\)\"" w3-delimit-emphasis w3-length-after-parsing len window-width w3-strict-width w3-right-border w3-insert "<BR>" make-string "Parsing headers... done."] 14 "\
Do the headers"])
(fset 'w3-fix-horizontal-rules #[nil "ebˆÀÁÂÃ#­•ÄÅÆÇ®‚É \nZ\"\"!ˆªd‡" [re-search-forward "<[Hh][rR]>" nil t replace-match format "<p>%s<p>" make-string w3-strict-width window-width w3-right-border w3-horizontal-rule-char] 6 "\
Replace all the <HR> tags"])
(fset 'w3-fix-unknown-tags #[(&optional pt recur) "ÀÁ!ˆ\nqˆebˆÃÄÅÆ#«ÅÇ «„ªeÅ“Ç É”Å“É”É•{\nÍÎ!ˆŒ}ˆÏÐÎ\"ˆ)ÃÑÒ\n\"ÅÆ#ˆÍÎ!ˆÓ`Æ\"ˆ+ª‹`d}ˆÏÐÎ\"ˆ~ˆÀÔ!‡" [w3-lazy-message "Removing unknown tags..." w3-working-buffer re-search-forward "<\\(PRE\\|XMP\\)>" nil t make-marker pt 1 tp nd st replace-match "" w3-replace-regexp "<[^>]*>" format "</%s>" w3-fix-unknown-tags "Removing unknown tags... done."] 4 "\
Remove unknown tags in a buffer"])
(fset 'w3-fix-paragraphs-in-region #[nil "qˆebˆÁÂÄP\"ˆÁÅÆ\"ˆÁÇÈ\"ˆebˆÉ‰‰‰‰‰‰‰\nÒÓÉÔ#ƒUÕ Ö”É“×”×•{ØÙš«†ÚPª‚ÛÙš«ƒÈªƒÜP!ˆ!ÝÞ\"AÝß\"A®àŠÉˆ`)ŠÒáÉÔ#«„Ö”ª‚)ŠÒâÉÔ#«„Ö”ª‚)Õ ^^É“\n«Žã\n$åCB$ˆàš«Šæ\n\"ˆ‚2 çš«‹æ\nÔ#ˆ‚2 èš«ª)êZ)æ\n\"ˆë\n\"ˆbˆÒì\nÔ#«†Ûí!ˆªr)‚2 îš«’)êZ)æ\nÔ#ˆ)‚2 ïšƒ2 ðPbˆñÉwˆðcˆ\nbˆæ\n\"ˆ)‚2 .ebˆÁòÜ\"ˆÁóô\"‡" [w3-working-buffer w3-replace-regexp "<[bB][Rr]> *" fill-prefix "<PW3>" "\\\n\\\n+\\	" "\n	" "^ +" "" nil nd next-t next-p eol args align st ptag re-search-forward "<P\\([^>]*\\)>[ \\\n]*" t make-marker 0 1 w3-parse-args-string "W3" "ALIGN=" replace-match "\n\n" assoc "id" "align" "left" "\\	" "<P" w3-add-zone w3-default-style w3par fill-region "justify" "center" fill-column 7 center-region "^" "    " "right" "indent" "	" " 	\n" "\\\n\\\n+" "<[sS][Pp]>" " "] 8 "\
Fill paragraphs in the visible part of the buffer"])
(fset 'w3-fix-paragraphs #[(&optional pt recur) "ÀÁ!ˆ\nqˆ«ƒªebˆÄ ˆ«ƒªebˆÅÆÇÈ#«²«ƒªe`ÉZÊ”Ê•{Œ}ˆÎ ˆ)ÅÏÐ\"ÇÈ#ˆÑ`È\"ˆ+ª‰`d}ˆÎ ˆ~ˆÀÁ!‡" [w3-lazy-message "Filling paragraphs..." w3-working-buffer pt w3-fix-horizontal-rules re-search-forward "<\\(PRE\\|XMP\\)>" nil t 5 1 tp nd st w3-fix-paragraphs-in-region format "</%s>" w3-fix-paragraphs] 4 "\
Fix filling of paragraphs in a new buffer"])
(fset 'w3-add-delayed-mpeg #[(src st) "Á \nÃ“BBÅÆÇÈ\"ÉQ!ˆÊ\n`ÃË\nE$‡" [src make-marker st nil w3-delayed-movies w3-insert "[MPEG(" w3-basepath t ")]" w3-add-zone w3mpeg] 7 "\
Add a delayed mpeg for the current buffer."])
(fset 'w3-add-delayed-graphic #[(src st align alt) "À 	Â“	FBcˆÇ˜?­ŒÈ	`ÂÉ	¯$‡" [make-marker st nil src align alt w3-delayed-images "" w3-add-zone w3delayed] 9 "\
Add a delayed image for the current buffer."])
(fset 'w3-handle-graphics #[nil "qˆÁÂ!«„ÃÂ!ˆebˆÄÅ!ƒ³ ÆÇÈÉ#…Ê”ËÌ”!­†ÍËÌ”!!ÎÌ”Ì•\"ÏÐ!ˆÐÑÈØÙ\"A®ÐØÚ\"A®ˆÛÜÉ\"ÝQÞØß\"A®à—!á\"\"¬†ã!Øä\"«‡åABB&«ç$ˆª‹Å$ˆ.‚ ebˆÐ‰‰ÈÆèÈÉ#­ÍÎÌ”Ì•\"ÏÐ!ˆØÙ\"A®ÐØÚ\"A®ˆÛÜÉ\"ÝQá\"\"¬†ã!`é!ˆê`ÈëDÉ%ˆª,,‡" [w3-working-buffer get-buffer "Conversion errors" kill-buffer fboundp w3-insert-graphic re-search-forward "<IMG[ \\	]+\\([^>]+\\)>" nil t 0 w3-zone-at 1 w3-zone-data w3-parse-args replace-match "" center alt align src img lnk st assoc "src" "alt" "[IMAGE(" w3-basepath ")] " intern "align" "center" string-match w3-nonrelative-link w3-parse-relative-link "ismap" ismap w3-delay-image-loads w3-add-delayed-graphic "<IMG[ \\	\\\n]*\\([^>]+\\)>" w3-insert w3-add-zone w3graphic] 6 "\
A function to parse out IMG tags.  In epoch, this will actually
insert the picture into the buffer.  The ALT attribute is displayed
when not in epoch (or when epoch fails to read in the graphic
correctly."])
(fset 'w3-find-emphasis-face #[(attributes) "ÀÁ\n\"«ˆÀÃ\n\"«‚Ä‡ÀÅ\n\"«ŠÀÆ\"A®ËÈ‡ÀÉ\n\"«ŠÀÊ\"A®»Ë‡ÀÌ\n\"¬ŒÀÍ\n\"¬†ÀÎ\n\"«ŠÀÏ\"A®ŸÐ‡ÀÁ\n\"«‚Ñ‡ÀÃ\n\"«‚Ò‡ÀÓ\n\"«‚Ô‡ÕÖ!ˆ×‡" [assoc "b" attributes "i" bold-italic "sup" "SUP" w3-style-assoc bold "sub" "SUB" italic "tt" "hv" "tr" "TT" w3-tt-style w3-bold-style w3-italic-style "u" w3-underline-style message "Error in an <em> tag - unknown emphasis." nil] 3 "\
Return a face from the various attributes of an <em> tag."])
(fset 'w3-handle-generic-emphasis-1 #[nil "À‰‰‰ÅÆÀÇ#¬…ÈÉ!ª¬Ê”ËÌ”Ì•\"ÍÎ!ˆŠÅÏÀÇ#¬ƒÀˆ`ÍÎ!ˆ)Ð!Ñ\n	d^Ò$,‡" [nil end strt face args re-search-forward "<em\\([^>]*\\)>" t message "Something is wrong with an <em> tag" 0 w3-parse-args 1 replace-match "" "</em[^>]*>" w3-find-emphasis-face w3-add-zone (w3style)] 5])
(fset 'w3-handle-generic-emphasis #[nil "ebˆÀ‰‰ÄÅÀÆ#­ Ç”È ‰«†Abˆªr\n@®	bˆÉ ˆ	bˆªY+‡" [nil st opos pos re-search-forward "<em" t 0 w3-subemphasis-exists w3-handle-generic-emphasis-1] 4 "\
Handle the <em> tag."])
(fset 'w3-subemphasis-exists #[nil "ŠÀÁÂÃ#­‚Ä”)‰®†ŠÂˆ`)ÀÇÃ#­…Ä”Ä•B*‡" [re-search-forward "</em[^>]*>" nil t 0 end-tag search-limit "<em"] 5 "\
Return t iff there is a nested <em> tag"])
(fset 'w3-convert-graphic-to-useable-format #[(buf fname xbm) "ŠqˆÁ¬‡ÄÅ!!Ç\"‰¬†ÉÊ\"ª ÉË#ˆÌedÍ\nA«„ª‚#ÒQÔ$*‡" [buf nil converter w3-current-mime-type w3-extension-to-mime w3-file-extension w3-current-file assoc w3-graphic-converter-alist message "Cannot convert %s to www/present!" "Converting image %s (%s)..." shell-command-on-region format w3-max-colors xbm w3-ppmtoxbm-command w3-ppmtoxpm-command "> " fname t] 8 "\
Convert the image data in buffer BUF into a format useable by
lemacs or epoch.  Second arg FNAME is the filename to redirect output
into.  If third arg XBM is t, convert it to an Xbitmap, otherwise
convert it to an XPM (recommended, as they can do color).  Returns a
filename containing the bitmap specification"])
(require 'ring)
(defvar w3-document-cache (make-ring w3-cache-size) "\
Internal doc cache")
(fset 'w3-find-in-cache #[(url) "A@ÂÄÄ	X«–Ç\"‰@š«„AT‰ªf,‡" [w3-document-cache ln 0 x nil y retval ring-ref url] 4 "\
Return the document referenced by URL if it is in the document cache."])
(fset 'w3-store-in-cache #[nil "ÀÁÂ ®Ã\"ÄÅÆÇÉ#RpÊ eËÌ!dÓÔ!qˆÕ ˆcˆÖ#ˆ×B\"ˆÙedÚÛ%ˆÜp!.‡" [format "(let ((doc \"%s\"))\n" buffer-string "" "(w3-clear-tmp-buffer)\n" "(insert doc)\n" mapconcat #[(x) "ÀÁ\n‰Ã=¬…\nÄ=«ƒÅªÆ\nÇ=«†È\nJ!ª‚\nJ$‡" [format "(setq %S %s%S)\n" x tab-stop-list w3-current-mime-viewer "'" "" w3-current-last-buffer buffer-name] 6] w3-persistent-variables "\n" w3-generate-unique-filename w3-view-url t nd url st fnam buf prolog get-buffer-create " *w3-cache*" erase-buffer w3-write-zones ring-insert w3-document-cache write-region nil 5 kill-buffer] 7 "\
Store the current document in the cache."])
(fset 'w3-load-flavors #[nil "«†ÁÂ!ˆª «†ÁÄ!ˆª—«†ÁÆ!ˆªŽ«†ÁÈ!ˆª„ÁÉ!ˆÊËÌ‡" [w3-running-lemacs require w3-lemacs w3-running-old-lemacs w3-old-lemacs w3-running-epoch w3-epoch w3-running-FSF19 w3-emacs19 w3-emacs nil (byte-code "ÀÁ!‡" [require w3-site-init] 2) ((error))] 3 "\
Load the correct zone/font info for each flavor of emacs"])
(fset 'w3-submit-bug #[nil "ÀÁ!‰Ãš«‚Ä«ŒÆ!«† ˆª—Æ!«† ˆª‹«…É ˆªƒÊ ˆË ˆÌcˆÍ ˆÎcˆÏÄÁ#ˆÑÒ!ˆiÓW«†ÔÕ!ˆªuÖcˆi×W«†ÔÕ!ˆªuØcˆÙÚ\"ˆÜÒ”Ò•OÝÞ”Þ•OØßà áÙâà \"O#«ƒäªåæç!«ƒèªåØ)«êë)!Õ,Ø°ªåíî/!Ø\n«†ð\nØQªåñò!«‡ó4ØQªåñõ!«‡ö7ØQªå±ˆiÓW«†ÔÕ!ˆªuÔø!ˆi×W«†ÔÕ!ˆªuÔù!)‡" [w3-view-url t url "file:nil" nil w3-mutable-windows fboundp w3-mail-other-window-command w3-mail-command mail-other-window mail mail-to "wmperry@indiana.edu" mail-subject "Bug found in w3-mode" re-search-forward mail-header-separator next-line 1 29 w3-insert "-" "Description of System:" 75 "\n" string-match "WWW \\([^ ]*\\) \\(.*\\)" w3-version "WWW Browser Version: " ", of " 2 "      Emacs Version: " emacs-version 0 " of" w3-running-epoch "(Epoch)" "" boundp MULE "(MULE)" window-system "      Window System: " symbol-name window-system-version "        System Type: " prin1-to-string system-type "                URL: " featurep ange-ftp "           Ange-FTP: " ange-ftp-version efs "                EFS: " efs-version "Description of Problem:" "\n\n"] 20 "\
Function to submit a bug to the programs maintainer" nil])
(fset 'w3-nuke-spaces-in-search #[(x) "À\nÀš¬™	Ã\n!ÄU«ƒÅª„\nÆÇOP\nÇÈO‰ªc	)‡" ["" new x string-to-char 32 "+" 0 1 nil] 5 "\
Remove spaces from search strings . . ."])
(fset 'w3-parse-args #[(st nd) "À‰‰‰‰Œ}ˆebˆm¬ÕÈÀwˆ`ÉÀwˆÊ\n`\"ˆ\n`{ËÀwˆ`f®ÌÍU¬„Àª©ÎÀwˆ`‰f®ÌÏU¬‰	f®ÌÐU«‰	TÀÑÒ{ª‡	ÓÀwˆ`{BBª(.‡" [nil val-pos name-pos results value name st nd " \\\n\\	" "^ \\\n\\	=" downcase-region " \\	\\\n" 0 61 " \\	\\\n=" 34 39 (byte-code "ÀÁ!ˆ`SÂÃwˆ‡" [forward-sexp 1 "\"" nil] 3) ((error (byte-code "ÀÁwˆ`‡" ["^ \\	\\\n" nil] 2))) "^ \\	\\\n"] 6 "\
Return an assoc list of attribute/value pairs from an SGML-type string"])
(fset 'w3-parse-args-string #[(str) "ÀÁ!Š\nqˆÃ ˆÄ!ˆcˆÇed\"*‡" [get-buffer-create " *w3-tmp*" buff erase-buffer set-syntax-table w3-parse-args-syntax-table str w3-parse-args] 3 "\
Return an assoc list of attribute/value pairs from an SGML-type string"])
(fset 'w3-search #[nil "¬„ÁÂ!‡Äš¬„ÁÅ!‡ÆÇÈ!!ÉÊ!ÍÎ\"«‡ÏÐ\"ÑÒÔÕO!ÖU«ƒ×ªØQ!*‡" [w3-current-isindex message "Not a searchable index!" w3-current-type "http" "Sorry, searching is not implemented on local files yet." w3-nuke-spaces-in-search read-string "Search on (+ separates keywords): " w3-view-url t url querystring string-match "\\(.*\\)\\?.*" w3-match 1 w3-fetch string-to-char w3-current-file -1 nil 63 "" "?"] 6 "\
Perform a search, if this is a searchable index." nil])
(fset 'w3-help #[nil "ÀÁ!‡" [w3-fetch "www://auto/help"] 2 "\
Print documentation on w3 mode." nil])
(fset 'w3-remove-relative-links-helper #[(name) "ÀÁ\n\"«¢\nÃ•ÄOÃ”ÃU«ŠÆ‰!!PªŠÆ\nÃ‰”SO!P)‡ÀÈ\n\"­–Ã”ÃU«…\nÉÄO‡\nÃ‰”O\nÃ•ÄOP‡" [string-match "\\.\\./" name 0 nil tmp w3-basepath w3-current-file "\\./" 2] 4])
(fset 'w3-remove-relative-links #[(name) "ÀÁ\n\"«†Ã\n!ªt\n‡" [string-match "\\.+/" name w3-remove-relative-links-helper] 3 "\
Strip . and .. from pathnames"])
(fset 'w3-version #[nil "À	!‡" [message w3-version] 2 "\
Show the version # of W3 in the minibuffer" nil])
(fset 'w3 #[nil "¬ƒÁ ˆÂÃ\"¬†ÅÆP!‡Å!‡" [w3-setup-done w3-do-setup string-match ".*:.*" w3-default-homepage w3-fetch "file:"] 3 "\
Retrieve the default World Wide Web home page.
The World Wide Web is a global hypertext system started by CERN in
Switzerland in 1991.

The home page is specified by the variable w3-default-homepage.  The
document should be specified by its fully specified Uniform Resource
Locator.  The document will be parsed as HTML (if appropriate) and
displayed in a new buffer." nil])
(fset 'w3-reload-document #[nil "ÀÁ!`ÂÆp!ˆÇ!ˆb+‡" [w3-view-url t (("Pragma" . "no-cache")) w3-request-extra-headers pnt tmp kill-buffer w3-fetch] 3 "\
Reload the current document" nil])
(fset 'w3-leave-buffer #[nil "\n«Á=¬…Ä=«…ÅÆÇ\"ˆÈp!ˆÉ	!­‘Ê	!­Œ«…Ì	!ªƒÍ	!)‡" [w3-current-last-buffer x w3-running-FSF19 window-system pm set-variable lucid-menu-bar-dirty-flag t bury-buffer bufferp buffer-name w3-mutable-windows pop-to-buffer switch-to-buffer] 3 "\
Bury this buffer,but don't kill it" nil])
(fset 'w3-quit #[nil "\n«Á=¬…Ä=«…ÅÆÇ\"ˆÈÉ!«ƒÉ ˆÊp!ˆË	!­‘Ì	!­Œ«…Î	!ªƒÏ	!)‡" [w3-current-last-buffer x w3-running-FSF19 window-system pm set-variable lucid-menu-bar-dirty-flag t boundp w3-mpeg-kill-processes kill-buffer bufferp buffer-name w3-mutable-windows pop-to-buffer switch-to-buffer] 3 "\
Quit WWW mode" nil])
(fset 'w3-view-this-url #[(&optional no-show) "À`!‰­ƒÂ	!‰@Ä=«’¬ŠÆÇÈÉ8!\"ªÄÉ8ª¿@Ê=«ž?­µÆËÈÌ8!ÈÉ8Íš«ƒÎªƒÉ8!Ï$ª›@Ð=«Ž?­‘ÆÑÈA@!\"ª‡?­ƒÆÒ!*‡" [w3-zone-at ext w3-zone-data data w3 no-show message "%s" w3-quotify-percents 2 w3form "Form entry (name=%s, type=%s)" 3 "" "TEXT" nil w3graphic "Inlined image (%s)" "No link at point."] 7 "\
View the URL of the link under point" nil])
(fset 'w3-load-delayed-images #[nil "ÀÁ!«ŠÂÄÅŸ\"ˆ)Â‰‡" [fboundp w3-insert-graphic nil buffer-read-only mapcar #[(data) "ÀÁ\n\"‡" [apply w3-insert-graphic data] 3] w3-delayed-images] 3 "\
Load inlined images that were delayed, if necessary.
This function searches through w3-delayed-images and fetches the
appropriate picture for each point in the buffer and inserts it." nil])
(fset 'w3-view-url #[(&optional no-show) "À\nÃš«›ÄÅ\nÈ˜«ƒÀª„ÉPÊ!%‚µ \nÌš«˜ÍÎ˜«ƒÀª„ÉPÏ°ªö\nÐš«©ÄÅ\nÑ˜«ƒÀª„ÉPÊÒ!ÓU«‡ÔÕOª‚!%ªÈ\nÖš«§ÄÅ\n«†ØPªÀÊÒ!ÓU«‡ÔÕOª‚!%ªœ\nÕš«ŠÄÙÊ!\"ª\nÚš«ˆÄÛ#¬…Ý	!ª	)‡" ["" url w3-current-type "gopher" format "%s://%s%s/%s" w3-current-server w3-current-port "70" ":" w3-quotify-percents w3-current-file "news" "news://" "119" "/" "http" "80" string-to-char 47 1 nil "ftp" w3-current-user "@" "file:%s" "www" "www:/%s/%s" no-show message] 9 "\
View the current document's URL" nil])
(fset 'w3-save-this-url #[nil "ÀÁ!‡" [w3-save-url t] 2 "\
Save url under point in the kill ring" nil])
(fset 'w3-save-url #[(under-pt) "«…ÁÂ!ªƒÃÂ!‰B‰ÇÈ!­ƒÈ!)‡" [under-pt w3-view-this-url t w3-view-url x kill-ring kill-ring-yank-pointer fboundp w3-store-in-x-clipboard] 3 "\
Save current url in the kill ring" "P"])
(fset 'w3-end-of-document #[nil "db‡" [] 1 "\
Go to end of document" nil])
(fset 'w3-start-of-document #[nil "eb‡" [] 1 "\
Go to start of document" nil])
(fset 'w3-mail-to-author #[nil "Á‰«£\n¬ @AÅÆ\"A®…ÅÇ\"AÈš‰«bÅÉ\"AªZ\n«…Ê\n!ªƒËÌ!+‡" [w3-current-links nil found y x assoc "rel" "rev" "made" "href" w3-fetch error "Cannot find the 'made' link for this document, sorry."] 4 "\
Send mail to the author of this document, if possible." nil])
(fset 'w3-kill-emacs-func #[nil "«†	«ƒÂ ˆÃÄ!ˆÅÇÈ#‰	«ÊËÌˆ	A‰	¬s)ÃÍ!ˆ­ƒ ‡" [w3-keep-history w3-history-list w3-write-global-history message "Cleaning up w3 storage..." directory-files w3-temporary-directory t "w3.*" x nil (byte-code "À	@!‡" [delete-file x] 2) ((error)) "Cleaning up w3 storage... done." w3-old-kill-emacs-hook] 5 "\
Routine called when exiting emacs.  Do miscellaneous clean up."])
(fset 'w3-do-setup #[nil "À ˆÁ ˆÂ ˆÃ!«ƒÅ ˆÆÇ!«™ÈÉÊ\"!Ì!«‰ÍPB)ÏÐÏÑÒÔÕOÖ×OØÙ!\"\"\"ÛÜ!«ŽÜÝÞßÛÜ!à#áQB\"ã=«°$?­©%?­¤&?­ŸÆç!?­™(­”)ê=®Ž)ë=®ˆ)ì=®‚-?\".ã=«°$?­©%?­¤&?­ŸÆç!?­™(­”)ê=®Ž)ë=®ˆ)ì=®‚-?.$¬ˆ(¬„%«‡ïðñ\"ˆª‡02ñ0ÃÉó!!«†ôÉó!!ˆ$¬Œ%¬ˆ&¬„)«ƒ×55«„ö÷!ˆ8¬Ÿùú!¬…ùû!«…ü8ªùý!«…þ8ª†ÿ@ !ˆA®…ÉB !AÃÉC !!«…D  ˆE¬…F  ˆG¬…H  ˆI«„IªÌÆJ !«ŠJàš¬„Jª»ÆK !«ŽK«ŠKàš¬„Kª¦ÆL !«ŽL«ŠLàš¬„Lª‘ÛM !«‡ÛM !ªƒN IO¬ŒÛP !®ƒQ OR¬†S  RT¬¶$«†U  ªª%«†U  ª («’)ê=¬†)ì=«†U  ªŠ&«…V ª×TW¬Æ$«†X  ªº%«†X  ª°(«’)ê=¬†)ì=«†Y  ªš(«Œ)ë=«†Z  ªŠ&«…[ ª×W\\ ] !«“W¬^ _ `\"«„a`b  ˆc®d ÞÑeÙ#f Qcg®h i j  k  #gl®‚glm n !ˆ[ ‰o‡" [w3-load-flavors w3-setup-version-specifics w3-create-faces file-exists-p w3-global-history-file w3-parse-global-history boundp data-directory file-name-as-directory expand-file-name "w3" maybe-dir file-directory-p "file:" w3-icon-directory-list mapcar #[(x) "À	ÂP!‰­ƒ	B)‡" [getenv x "_proxy" y] 4] car w3-split w3-nonrelative-link 0 -3 3 nil regexp-quote "\\|" w3-proxy-services getenv "no_proxy" "\\(" mapconcat #[(x) "ÁU«‚Â‡ÃU«‚Ä‡ÅU«„ÆÇ!‡ÈU«‚É‡ÊU«‚Ç‡Ë!‡" [x 44 "\\|" 32 "" 46 regexp-quote "." 42 ".*" 63 char-to-string] 2] "" "\\)" w3-delimit-emphasis guess w3-running-lemacs w3-running-old-lemacs w3-running-epoch MULE w3-running-FSF19 window-system x ns pm w3-emacs19-hack-faces-p w3-delimit-links add-hook kill-emacs-hook w3-kill-emacs-func w3-old-kill-emacs-hook "~/.w3" load-file w3-use-transparent require transparent w3-passwd-entry-func featurep efs efs-auto efs-read-passwd ange-ftp ange-ftp-read-passwd error "You must use either ange-ftp or efs!" w3-mime-default-mailcap "~/.mailcap" "~/.mime-types" w3-parse-mime-types w3-hotlist w3-parse-hotlist w3-personal-annotations w3-parse-personal-annotations w3-news-server gnus-default-nntp-server gnus-nntp-server nntp-server-name "NNTPSERVER" "news" w3-default-homepage "WWW_HOME" "http://cs.indiana.edu/elisp/w3/docs.html" w3-mime-accept-string w3-parse-viewer-types w3-color-planes x-display-planes 8 w3-color-display x-color-display-p x-display-color-p ns-display-color-p t fboundp w3-insert-graphic string-match "ppmtoxpm" w3-ppmtoxpm-command w3-ppmtoxbm-command w3-parse-docs-menu w3-style-regexp "<\\(" w3-style-assoc "\\)>" w3-pgp/pem-entity format "%s@%s" user-real-login-name system-name w3-personal-mail-address run-hooks w3-load-hooks w3-setup-done] 8 "\
Do setup - this is to avoid conflict with user settings when W3 is
dumped with emacs."])
(fset 'w3-mark-link-as-followed #[(ext dat) "À	!Â	!Å	!ˆÆÉ%ˆ\n*‡" [w3-zone-start ext w3-zone-end nd st w3-delete-zone w3-add-zone w3-visited-node-style dat t w3-delimit-links] 6 "\
Mark a link as followed, by removing the old extent EXT, and replacing
it with a new extent with the w3-visited-node-style face."])
(fset 'w3-follow-link #[nil "À`!‰­ƒÂ	!‰¬…ÄÅ!ªô@Æ=«›ÇÉ	\"ˆ)Ê8;«‡ËÊ8!ªØÄÌ!ªÓ@Í=«†Î	\"ªÇ@Ï=«‡ËA@!ªº@Ð=«…Ñ!ª¯@Ò=«‘ÓÔÕ	!Ö	!A$ˆ×	!ª˜@Ø=«ÓÙÕ	!Ö	!A$ª…ÄÚ@\"*‡" [w3-zone-at ext w3-zone-data dat message "No link, form entry, or image at point." w3 nil buffer-read-only w3-mark-link-as-followed 2 w3-maybe-relative "No link." w3form w3-do-form-entry w3graphic w3expandlist w3-expand-list w3delayed apply w3-load-single-delayed-graphic w3-zone-start w3-zone-end w3-delete-zone w3mpeg w3-load-single-delayed-mpeg "Confused about what type of link is at point: %S"] 6 "\
Attempt to follow the hypertext reference under point." nil])
(fset 'w3-complete-link #[nil "À‰ÁÅÆ!ˆ¬„ÇÈ!ˆÉÊ\"ËÌÀÁ$ÍÎ\"A!+‡" [nil t completion-ignore-case choice links-alist w3-map-links #[(data arg) "À	8Â	8BB‰‡" [3 data 2 links-alist] 3] error "No links in current document." sort #[(x y) "@	@™‡" [x y] 2] completing-read "Link: " w3-fetch assoc] 5 "\
Choose a link from the current buffer and follow it" nil])
(fset 'w3-mode #[nil "¬ƒÁ ˆÂÃ\"Æ ˆÇ!ˆÉ\nËÍÎ!ˆÂÏ\"ˆÐ ˆ­ŠÓš­„Ô‰)‡" [w3-setup-done w3-do-setup mapcar #[(x) "‰JB‡" [x] 2] w3-persistent-variables tmp kill-all-local-variables use-local-map w3-mode-map w3-mode major-mode "WWW" mode-name run-hooks w3-mode-hooks #[(x) "À	@	A\"‡" [set-variable x] 3] w3-mode-version-specifics w3-current-isindex w3-current-type "http" "-Searchable" mode-line-process] 3 "\
Mode for viewing HTML documents.  Will try to bring up the document
specified by w3-default-homepage.
Current keymap is:
\\{w3-mode-map}" nil])
(provide 'w3)