Print eight-bit-* characters with ps-print

[Eli Zaretskii]

I use ps-print a lot, and it annoys me that it whines about
eight-bit-control and eight-bit-graphic characters not having fonts to
print them with.  (These charsets are Emacs's invention, so there's no
chance anyone will ever have a font for them.)

So I came up with the change below.  It doesn't really print the same
glyphs you see on your screen--that's impossible without knowing what
fonts are available to your printer or PostScript interpreter.  But at
least the whining is gone, and for many cases, such as those \222
characters and Latin-1 email messages sent as ``charset=US-ASCII'', it
does DTRT.

Opinions?

(Btw, it looks like iso-safe can safely encode eight-bit-* characters.
If that's true, I think we should update its doc string.  Handa-san,
can you please comment on this?)


2002-05-12  Eli Zaretskii  <address@hidden>

        * ps-mule.el (ps-mule-font-info-database-ps-eight-bit): New defconst.
        (ps-mule-font-info-database-ps-bdf): Print eight-bit-* characters
        through ps-mule-font-info-database-ps-eight-bit.


*** lisp/ps-mule.e~1    Sun May  5 09:58:10 2002
--- lisp/ps-mule.el     Sun May 12 13:34:00 2002
***************
*** 439,447 ****
  
  See also `ps-mule-font-info-database-ps-bdf'.")
  
  (defconst ps-mule-font-info-database-ps-bdf
!   (cons (car ps-mule-font-info-database-latin)
!       (cdr (cdr ps-mule-font-info-database-bdf)))
    "Sample setting of the `ps-mule-font-info-database' to use BDF fonts.
  
  Current default value list for BDF fonts is included in `intlfonts-1.2'
--- 439,456 ----
  
  See also `ps-mule-font-info-database-ps-bdf'.")
  
+ (defconst ps-mule-font-info-database-ps-eight-bit
+   '((eight-bit-control
+      (normal nil nil iso-safe))
+     (eight-bit-graphic
+      (normal nil nil iso-safe)))
+   "Sample setting of `ps-mule-font-info-database' for random 8-bit bytes.")
+ 
  (defconst ps-mule-font-info-database-ps-bdf
!   (list (car ps-mule-font-info-database-latin)
!       (car (cdr (cdr ps-mule-font-info-database-bdf)))
!       (car ps-mule-font-info-database-ps-eight-bit)
!       (car (cdr ps-mule-font-info-database-ps-eight-bit)))
    "Sample setting of the `ps-mule-font-info-database' to use BDF fonts.
  
  Current default value list for BDF fonts is included in `intlfonts-1.2'