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

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

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


#@246 *Name of the function to use to print a buffer as PostScript.
This should take no arguments, and act on the current buffer.
Possible values include:
ps-print-buffer-with-faces   - print immediately
ps-spool-buffer-with-faces   - spool for later
(defvar w3-postscript-print-function 'ps-print-buffer-with-faces (#$ . -647))
(require 'mule-sysdp)
#@50 Print out the current document (in LaTeX format)
(defalias 'w3-print-this-url #[(&optional url format) "\204 \306\307!\307\n\206 \310\311\312\313\307$\212\n\314\232\203: \2031 \315!q\210\316 \210\fc\210)\2025 \317!\210\320 \202e \n\321\232\204F \n\322\232\203K \320 \202e \n\323\232\203W  \202e \n\324\232\205e \325\"\210\326\213+\207" [url completion-ignore-case format w3-current-source x url-working-buffer url-view-url t completing-read "Format: " (("HTML Source") ("Formatted Text") ("PostScript") ("LaTeX'd")) nil "HTML Source" get-buffer-create erase-buffer url-retrieve lpr-buffer "Formatted Text" "" "PostScript" "LaTeX'd" w3-parse-tree-to-latex ((byte-code "\302ed\303\304\"\305\306%\210\307\310\311	#!\210\312\313!\207" [w3-temporary-directory w3-print-command mule-write-region-no-coding-system expand-file-name "w3-tmp.latex" nil 5 shell-command format "cd %s ; latex w3-tmp.latex ; latex w3-tmp.latex ; %s w3-tmp.dvi ; rm -f w3-tmp*" kill-buffer "*Shell Command Output*"] 6)) w3-postscript-print-function w3-current-parse] 5 (#$ . 998) nil])
#@49 Print out the url under point (in LaTeX format)
(defalias 'w3-print-url-under-point #[nil "\300\301\302!!\207" [w3-print-this-url w3-view-this-url t] 3 (#$ . 2078) nil])
(provide 'w3-print)