Fix back-white <-> black-white typo

* lisp/ps-print.el (ps-begin-job): back-white -> black-white (Bug#24308)

diff --git a/lisp/ps-print.el b/lisp/ps-print.el
index 2ea0919c6866779f4bd91e8c34f73a58697442b1..54ffe2874dff69b9ea850992280f247949669433 100644 (file)
--- a/lisp/ps-print.el
+++ b/lisp/ps-print.el
@@ -5828,7 +5828,7 @@ XSTART YSTART are the relative position for the first page in a sheet.")
        ps-default-background (ps-rgb-color
                               (cond
                                ((or (member ps-print-color-p
-                                            '(nil back-white))
+                                            '(nil black-white))
                                     (eq genfunc 'ps-generate-postscript))
                                 nil)
                                ((eq ps-default-bg 'frame-parameter)
@@ -5842,7 +5842,7 @@ XSTART YSTART are the relative position for the first page in a sheet.")
        ps-default-foreground (ps-rgb-color
                               (cond
                                ((or (member ps-print-color-p
-                                            '(nil back-white))
+                                            '(nil black-white))
                                     (eq genfunc 'ps-generate-postscript))
                                 nil)
                                ((eq ps-default-fg 'frame-parameter)
@@ -5857,12 +5857,12 @@ XSTART YSTART are the relative position for the first page in a sheet.")
                               #'(lambda (arg)
                                   (ps-rgb-color arg "unspecified-fg" 0.0))
                               (append (and (not (member ps-print-color-p
-                                                        '(nil back-white)))
+                                                        '(nil black-white)))
                                            ps-fg-list)
                                       (list ps-default-foreground
                                             "black")))
        ps-default-color      (and (not (member ps-print-color-p
-                                               '(nil back-white)))
+                                               '(nil black-white)))
                                   ps-default-foreground)
        ps-current-color      ps-default-color
        ;; Set up default functions.