From xemacs-m  Mon Feb 17 12:10:10 1997
Received: from newman (root@newman.aventail.com [38.225.141.10])
	by xemacs.org (8.8.5/8.8.5) with SMTP id MAA22037
	for <xemacs-beta@xemacs.org>; Mon, 17 Feb 1997 12:10:08 -0600 (CST)
Received: from kramer.in.aventail.com.aventail.com (wmperry@kramer [192.168.1.12]) by newman (8.6.12/8.6.9) with SMTP id KAA20948 for <xemacs-beta@xemacs.org>; Mon, 17 Feb 1997 10:08:07 -0800
Date: Mon, 17 Feb 1997 10:08:07 -0800
Message-Id: <199702171808.KAA20948@newman>
From: "William M. Perry" <wmperry@aventail.com>
To: xemacs-beta@xemacs.org
Subject: patch for ps-print
Errors-to: wmperry@aventail.com
Reply-to: wmperry@aventail.com
X-Face: O~Rn;(l][/-o1sALg4A@xpE:9-"'IR[%;,,!m7</SYF`{vYQ(&RI1&EiH[FvT;J}@f!4kfz
 x_!Y#=y{Uuj9GvUi=cPuajQ(Z42R[wE@{G,sn$qGr5g/wnb*"*ktI+,CD}1Z'wxrM2ag-r0p5I6\nA
 [WJopW_J.WY;

ps-print uses (face-list) to get and build the list of bold/italic/etc
faces.  This doesn't pull in any temporary faces, which emacs-w3 uses, and
may be in the buffer that is being printed.  Trivial patch follows.

Anyone up for writing a print-dialog.el using the widget package now that
it is part of the default distribution?  

Also, I would vote for adding more smarts to ps-print about the fonts,
etc.  Ideally, it should always check whether a face is bold/etc, as each
file is printed, since buffer-local faces can confuse it unless you have
ps-always-build-face-reference non-nil.  It also shouldn't figure out this
info for a face that isn't even used in the buffer.  Just my $0.02 worth.

-Bill P.

*** ps-print.el	1997/02/17 17:57:24	1.1
--- ps-print.el	1997/02/17 17:57:39
***************
*** 2561,2567 ****
  
  (defun ps-build-reference-face-lists ()
    (if ps-auto-font-detect
!       (let ((faces (face-list))
  	    the-face)
  	(setq ps-ref-bold-faces nil
  	      ps-ref-italic-faces nil
--- 2561,2567 ----
  
  (defun ps-build-reference-face-lists ()
    (if ps-auto-font-detect
!       (let ((faces (face-list 5))
  	    the-face)
  	(setq ps-ref-bold-faces nil
  	      ps-ref-italic-faces nil

