Mercurial > emacs

comparison lisp/ps-print.el @ 63076:2942738e0235

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(ps-default-fg, ps-default-bg): Fix typos in docstrings.
author Juanma Barranquero <lekktu@gmail.com>
date Mon, 06 Jun 2005 15:17:32 +0000
parents 449d2654bc2d
children dff012365907 173dee4e2611
comparison
equal deleted inserted replaced
63075:7e902750d940 63076:2942738e0235
3017 t The foreground color of Emacs session will be used. 3017 t The foreground color of Emacs session will be used.
3018 3018
3019 NUMBER It's a real value between 0.0 (black) and 1.0 (white) that 3019 NUMBER It's a real value between 0.0 (black) and 1.0 (white) that
3020 indicate the gray color. 3020 indicate the gray color.
3021 3021
3022 COLOR-NAME It's a string wich contains the color name. For example: 3022 COLOR-NAME It's a string which contains the color name. For example:
3023 \"yellow\". 3023 \"yellow\".
3024 3024
3025 LIST It's a list of RGB values, that is a list of three real values 3025 LIST It's a list of RGB values, that is a list of three real values
3026 of the form: 3026 of the form:
3027 3027
3057 t The background color of Emacs session will be used. 3057 t The background color of Emacs session will be used.
3058 3058
3059 NUMBER It's a real value between 0.0 (black) and 1.0 (white) that 3059 NUMBER It's a real value between 0.0 (black) and 1.0 (white) that
3060 indicate the gray color. 3060 indicate the gray color.
3061 3061
3062 COLOR-NAME It's a string wich contains the color name. For example: 3062 COLOR-NAME It's a string which contains the color name. For example:
3063 \"yellow\". 3063 \"yellow\".
3064 3064
3065 LIST It's a list of RGB values, that is a list of three real values 3065 LIST It's a list of RGB values, that is a list of three real values
3066 of the form: 3066 of the form:
3067 3067
6153 (defvar ps-print-translation-table 6153 (defvar ps-print-translation-table
6154 (let ((tbl (make-char-table 'translation-table nil))) 6154 (let ((tbl (make-char-table 'translation-table nil)))
6155 (if (and (boundp 'ucs-mule-8859-to-mule-unicode) 6155 (if (and (boundp 'ucs-mule-8859-to-mule-unicode)
6156 (char-table-p ucs-mule-8859-to-mule-unicode)) 6156 (char-table-p ucs-mule-8859-to-mule-unicode))
6157 (map-char-table 6157 (map-char-table
6158 #'(lambda (k v) 6158 #'(lambda (k v)
6159 (if (and v (eq (char-charset v) 'latin-iso8859-1) (/= k v)) 6159 (if (and v (eq (char-charset v) 'latin-iso8859-1) (/= k v))
6160 (aset tbl k v))) 6160 (aset tbl k v)))
6161 ucs-mule-8859-to-mule-unicode)) 6161 ucs-mule-8859-to-mule-unicode))
6162 tbl) 6162 tbl)
6163 "Translation table for PostScript printing. 6163 "Translation table for PostScript printing.