master 66d8322 2/7: Remove some compat code from ps files

[Lars Ingebrigtsen]

branch: master
commit 66d8322e034679ef3a05e5747b3a4c7400712a69
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    Remove some compat code from ps files
    
    * lisp/ps-def.el (ps-color-device): Ditto.
    
    * lisp/ps-print.el (ps-color-scale): Make into an obsolete alias.
    (ps-begin-job): Adjust caller.
    
    * lisp/progmodes/ebnf2ps.el (ebnf-generate-eps, ebnf-generate): Ditto.
---
 lisp/progmodes/ebnf2ps.el |  4 ++--
 lisp/ps-def.el            | 18 ++++--------------
 lisp/ps-print.el          |  4 ++--
 3 files changed, 8 insertions(+), 18 deletions(-)

diff --git a/lisp/progmodes/ebnf2ps.el b/lisp/progmodes/ebnf2ps.el
index 08cf802..22c70bf 100644
--- a/lisp/progmodes/ebnf2ps.el
+++ b/lisp/progmodes/ebnf2ps.el
@@ -4527,7 +4527,7 @@ end
   (let* ((ebnf-tree tree)
          (ps-color-p           (and ebnf-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))
         (ebnf-total           (length ebnf-tree))
         (ebnf-nprod           0)
@@ -4629,7 +4629,7 @@ end
   (let* ((ebnf-tree tree)
          (ps-color-p           (and ebnf-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-zebra-stripes ps-line-number ps-razzle-dazzle
         ps-print-hook
diff --git a/lisp/ps-def.el b/lisp/ps-def.el
index f532511..65e8011 100644
--- a/lisp/ps-def.el
+++ b/lisp/ps-def.el
@@ -58,21 +58,11 @@
 (define-obsolete-function-alias 'ps-frame-parameter #'frame-parameter "28.1")
 
 ;; Return t if the device (which can be changed during an emacs session) can
-;; handle colors.  This function is not yet implemented for GNU emacs.
+;; handle colors.
 (defun ps-color-device ()
-  (if (fboundp 'color-values)
-      (funcall 'color-values "Green")
-    t))
-
-
-(defun ps-color-values (x-color)
-  (cond
-   ((fboundp 'color-values)
-    (funcall 'color-values x-color))
-   ((fboundp 'x-color-values)
-    (funcall 'x-color-values x-color))
-   (t
-    (error "No available function to determine X color values"))))
+  (color-values "Green"))
+
+(define-obsolete-function-alias 'ps-color-values #'color-values "28.1")
 
 
 (defun ps-face-bold-p (face)
diff --git a/lisp/ps-print.el b/lisp/ps-print.el
index 17b486b..d9e5958 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