From 32078ec8c444cd886a51c1a63103b230371d7a54 Mon Sep 17 00:00:00 2001 From: Kaushal Modi Date: Thu, 25 Aug 2016 11:06:45 -0400 Subject: Fix back-white <-> black-white typo * lisp/ps-print.el (ps-begin-job): back-white -> black-white (Bug#24308) --- lisp/ps-print.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'lisp/ps-print.el') diff --git a/lisp/ps-print.el b/lisp/ps-print.el index 2ea0919c686..54ffe2874df 100644 --- 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. -- cgit v1.2.1