diff options
Diffstat (limited to 'lisp/ps-print.el')
-rw-r--r-- | lisp/ps-print.el | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/lisp/ps-print.el b/lisp/ps-print.el index 17b486bca11..1ca4a23ab2c 100644 --- a/lisp/ps-print.el +++ b/lisp/ps-print.el @@ -3856,7 +3856,7 @@ It can be retrieved with `(ps-get ALIST-SYM KEY)'." (defun ps-color-scale (color) ;; Scale 16-bit X-COLOR-VALUE to PostScript color value in [0, 1] interval. (mapcar #'(lambda (value) (/ value ps-print-color-scale)) - (ps-color-values color))) + (color-values color))) (defun ps-face-underlined-p (face) @@ -5752,7 +5752,7 @@ XSTART YSTART are the relative position for the first page in a sheet.") ;; evaluated at dump-time because X isn't initialized. ps-color-p (and ps-print-color-p (ps-color-device)) ps-print-color-scale (if ps-color-p - (float (car (ps-color-values "white"))) + (float (car (color-values "white"))) 1.0) ps-default-background (ps-rgb-color (cond @@ -6275,10 +6275,6 @@ If FACE is not a valid face name, use default face." (goto-char to)) -;; Ensure that face-list is fbound. -(or (fboundp 'face-list) (defalias 'face-list 'list-faces)) - - (defun ps-build-reference-face-lists () (setq ps-print-face-alist nil) (if ps-auto-font-detect |