From xemacs-m  Wed Feb  5 12:09:19 1997
Received: from cdc.noaa.gov (manager.Colorado.EDU [128.138.218.210])
	by xemacs.org (8.8.5/8.8.5) with SMTP id MAA01288
	for <xemacs-beta@xemacs.org>; Wed, 5 Feb 1997 12:09:18 -0600 (CST)
Received: from suomi by cdc.noaa.gov (SMI-8.6/SMI-SVR4)
	id LAA15060; Wed, 5 Feb 1997 11:09:19 -0700
Received: by suomi (SMI-8.6) id LAA21371; Wed, 5 Feb 1997 11:09:18 -0700
Sender: mdb@cdc.noaa.gov
To: XEmacs beta-list <xemacs-beta@xemacs.org>
Subject: [19.15-b92] ps-print lossage
Organization: CIRES, University of Colorado
X-Attribution: mb
Mime-Version: 1.0 (generated by tm-edit 7.103)
Content-Type: text/plain; charset=US-ASCII
From: Mark Borges <mdb@cdc.noaa.gov>
Date: 05 Feb 1997 11:09:17 -0700
Message-ID: <vkn2tjp1ki.fsf@cdc.noaa.gov>
Lines: 14
X-Mailer: Gnus v5.4.11/XEmacs 19.15

I was in a shell-mode buffer, and wanted to pretty-print my session:

Signaling: (wrong-type-argument stringp #<color-specifier global="black" fallback=#<color-specifier global=("black" ((x) . "black")) fallback=(((tty) . []) ((x) . "black")) 0x176> 0x2f1b>)
  make-color-instance(#<color-specifier global="black" fallback=#<color-specifier global=("black" ...) fallback=(... ...) 0x176> 0x2f1b>)
  x-color-values(#<color-specifier global="black" fallback=#<color-specifier global=("black" ...) fallback=(... ...) 0x176> 0x2f1b>)
  ps-color-values(#<color-specifier global="black" fallback=#<color-specifier global=("black" ...) fallback=(... ...) 0x176> 0x2f1b>)
  ps-plot-with-face(19 25 shell-prompt)
  ps-generate-postscript-with-faces(1 2820)
  ps-generate(#<buffer "*shell*"> 1 2820 ps-generate-postscript-with-faces)
  #<compiled-function (from "ps-print.elc") (&optional filename) "...(11)" [ps-generate ps-generate-postscript-with-faces ps-do-despool filename] 5 "Generate and print a PostScript image of the buffer.\nLike `ps-print-buffer', but includes font, color, and underline\ninformation in the generated image.  This command works only if you\nare using a window system, so it has a way to determine color values." (list (ps-print-preprint current-prefix-arg))>(nil)
  call-interactively(ps-print-buffer-with-faces)

-- 
  -mb-

