;ELC ;;; compiled by wmperry@monolith.perry.org on Thu May 12 13:00:32 1994 ;;; from file /u/wmperry/lisp/development/w3/w3/w3-mule.el ;;; emacs version 19.10 Lucid (beta22). ;;; 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.")) (fset 'w3-m2ps-buffer #[(&optional buffer) "pq )!q !\n U\n!ed\"\n ed$*" [buffer tab-width x get-buffer-create " *mule-print*" erase-buffer insert-buffer message "Converting tabs" untabify *internal* file-coding-system shell-command-on-region "m2ps | lpr" t] 5 "\ Print a buffer by passing it through m2ps and lpr."]) (fset 'w3-create-faces #[nil "" [nil w3-delimit-links] 2 "\ Create faces, the no-quite-so-dumb MULE way"]) (defvar attributed-region nil "\ Bogus definition to get rid of compile-time warnings.") (defvar w3-type-attribute-alist '(("SUBMIT" . 2) ("RESET" . 2) ("PASSWORD" . 3) ("OPTION" . 3) ("" . 3)) "\ Pairs of anchors' TYPEs and their display ATTRIBUTEs.") (fset 'w3-mule-attribute-zones #[(zones attr) " 8ʉ88  \"A @A@ BB !b`\n!W`!BByw`\n!U`! BBR\nBBT !B." [0 nil end beg at type z l c zones 2 assoc w3-type-attribute-alist attr marker-position copy-marker 1 " " (0 . 0) reverse attributed-region] 8]) (fset 'w3-inhibit-code-conversion #[(proc buf) "q) #" [buf nil mc-flag set-process-coding-system proc *noconv*] 4 "\ Inhibit Mule's subprocess PROC from code converting in BUF."]) (defconst w3-mime-alist-for-code-conversion '(("http" . "^text") ("gopher" . "^\\(text\\|www\\)") ("news" . "")) "\ Assoc list of protocols and regular expression for mime types. Mule enocdes data whose mime type matches this REX.") (fset 'w3-gently-parse-mime-headers #[nil "eeb#`{ \" \" \" ɔɕO*" [re-search-forward "^ *$" nil t header string-match "^http/" "^mime-version:" "^content-type: *\\([^ \n]*\\) *$" 1] 5 "\ Parse mime headers, without modifying buffer."]) (fset 'w3-convert-code-for-mule #[(type url) " \n\"A\"! ɚ\"͉SO! Κ!8 њ  \"ed$+" [assoc type w3-mime-alist-for-code-conversion rex w3-file-extension w3-basepath url t extn "http" w3-extension-to-mime string-match "^.+[#?]" 0 "gopher" 3 w3-grok-gopher-href "news" "" mime mc-flag code-convert-region *autoconv* *internal*] 5 "\ Convert current data into the appropriate coding system"]) (provide 'w3-mule)