[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 004ef8a: (ps-begin-job): Remove two unneeded string
From: |
Lars Ingebrigtsen |
Subject: |
[Emacs-diffs] master 004ef8a: (ps-begin-job): Remove two unneeded string-as-unibyte calls |
Date: |
Fri, 17 May 2019 06:16:35 -0400 (EDT) |
branch: master
commit 004ef8a8e162639a5de9b6abe49ce741a6da00c3
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>
(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 881d6a8..8569500 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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 004ef8a: (ps-begin-job): Remove two unneeded string-as-unibyte calls,
Lars Ingebrigtsen <=