From 004ef8a8e162639a5de9b6abe49ce741a6da00c3 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Fri, 17 May 2019 12:16:19 +0200 Subject: [PATCH] (ps-begin-job): Remove two unneeded string-as-unibyte calls * lisp/ps-print.el (ps-begin-job): Remove two unneeded string-as-unibyte calls to avoid byte compilation warnings. --- lisp/ps-print.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/lisp/ps-print.el b/lisp/ps-print.el index 881d6a8f4bc..8569500fe0f 100644 --- a/lisp/ps-print.el +++ b/lisp/ps-print.el @@ -5772,9 +5772,9 @@ XSTART YSTART are the relative position for the first page in a sheet.") ps-footer-font-size-internal (ps-get-font-size 'ps-footer-font-size) ps-control-or-escape-regexp (cond ((eq ps-print-control-characters '8-bit) - (string-as-unibyte "[\000-\037\177-\377]")) + "[\000-\037\177-\377]") ((eq ps-print-control-characters 'control-8-bit) - (string-as-unibyte "[\000-\037\177-\237]")) + "[\000-\037\177-\237]") ((eq ps-print-control-characters 'control) "[\000-\037\177]") (t "[\t\n\f]")) @@ -5829,6 +5829,7 @@ XSTART YSTART are the relative position for the first page in a sheet.") ;; They may be overridden by ps-mule-begin-job. ps-basic-plot-string-function 'ps-basic-plot-string ps-encode-header-string-function nil) + (assert (not (multibyte-string-p ps-control-or-escape-regexp))) ;; initialize page dimensions (ps-get-page-dimensions) ;; final check -- 2.39.2