comparison lisp/ps-print.el @ 90192:173dee4e2611

Revision: [e-mail]--gnu-2005/emacs--unicode--0--patch-61 Merge from emacs--cvs-trunk--0 Patches applied: * emacs--cvs-trunk--0 (patch 353-357) - Update from CVS

90191:c766b49f5bbd

   t		The foreground color of Emacs session will be used.

   NUMBER	It's a real value between 0.0 (black) and 1.0 (white) that
		indicate the gray color.

   COLOR-NAME	It's a string wich contains the color name.  For example:
		\"yellow\".

   LIST		It's a list of RGB values, that is a list of three real values
		of the form:

   t		The background color of Emacs session will be used.

   NUMBER	It's a real value between 0.0 (black) and 1.0 (white) that
		indicate the gray color.

   COLOR-NAME	It's a string wich contains the color name.  For example:
		\"yellow\".

   LIST		It's a list of RGB values, that is a list of three real values
		of the form:

(defvar ps-print-translation-table
  (let ((tbl (make-char-table 'translation-table nil)))
    (if (and (boundp 'ucs-mule-8859-to-mule-unicode)
	   (char-table-p ucs-mule-8859-to-mule-unicode))
	(map-char-table
	 #'(lambda (k v) 
	     (if (and v (eq (char-charset v) 'latin-iso8859-1) (/= k v))
		 (aset tbl k v)))
	 ucs-mule-8859-to-mule-unicode))
    tbl)
  "Translation table for PostScript printing.

90192:173dee4e2611

   t		The foreground color of Emacs session will be used.

   NUMBER	It's a real value between 0.0 (black) and 1.0 (white) that
		indicate the gray color.

   COLOR-NAME	It's a string which contains the color name.  For example:
		\"yellow\".

   LIST		It's a list of RGB values, that is a list of three real values
		of the form:

   t		The background color of Emacs session will be used.

   NUMBER	It's a real value between 0.0 (black) and 1.0 (white) that
		indicate the gray color.

   COLOR-NAME	It's a string which contains the color name.  For example:
		\"yellow\".

   LIST		It's a list of RGB values, that is a list of three real values
		of the form:

(defvar ps-print-translation-table
  (let ((tbl (make-char-table 'translation-table nil)))
    (if (and (boundp 'ucs-mule-8859-to-mule-unicode)
	   (char-table-p ucs-mule-8859-to-mule-unicode))
	(map-char-table
	 #'(lambda (k v)
	     (if (and v (eq (char-charset v) 'latin-iso8859-1) (/= k v))
		 (aset tbl k v)))
	 ucs-mule-8859-to-mule-unicode))
    tbl)
  "Translation table for PostScript printing.