mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-14 09:39:42 +00:00
Code Issues Releases Activity

(ps-begin-job): Remove two unneeded string-as-unibyte calls

Browse Source 
* lisp/ps-print.el (ps-begin-job): Remove two unneeded
string-as-unibyte calls to avoid byte compilation warnings.
This commit is contained in:
Lars Ingebrigtsen 2019-05-17 12:16:19 +02:00
parent 53e18401e5
commit 004ef8a8e1
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ps-print.el
View File

@ -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