Mercurial > hg > xemacs-beta

diff lisp/packages/ps-print.el @ 100:4be1180a9e89 r20-1b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b2
author cvs
date Mon, 13 Aug 2007 09:15:11 +0200
parents dbb370e3c29e
children 9b50b4588a93
line wrap: on
line diff
--- a/lisp/packages/ps-print.el	Mon Aug 13 09:13:58 2007 +0200
+++ b/lisp/packages/ps-print.el	Mon Aug 13 09:15:11 2007 +0200
@@ -2561,7 +2561,9 @@
 
 (defun ps-build-reference-face-lists ()
   (if ps-auto-font-detect
-      (let ((faces (face-list))
+      (let ((faces (if (eq ps-print-emacs-type 'xemacs)
+		       (face-list 5)
+		     (face-list)))
 	    the-face)
 	(setq ps-ref-bold-faces nil
 	      ps-ref-italic-faces nil