From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Fri, 17 May 2019 10:27:26 +0000 (+0200)
Subject: Use cl-assert instead of assert in ps-print.el
X-Git-Tag: emacs-27.0.90~2850
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=81ce8d9d11fa89fd4a636af5ef63eadf8f605e58;p=emacs.git

Use cl-assert instead of assert in ps-print.el

* lisp/ps-print.el (ps-begin-job): Use cl-assert instead of assert
and require cl-lib.
---

diff --git a/lisp/ps-print.el b/lisp/ps-print.el
index 8569500fe0f..59ac84a3639 100644
--- a/lisp/ps-print.el
+++ b/lisp/ps-print.el
@@ -12,6 +12,8 @@
 ;; Version: 7.3.5
 ;; X-URL: http://www.emacswiki.org/cgi-bin/wiki/ViniciusJoseLatorre
 
+(eval-when-compile (require 'cl-lib))
+
 (defconst ps-print-version "7.3.5"
   "ps-print.el, v 7.3.5 <2009/12/23 vinicius>
 
@@ -5829,7 +5831,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)))
+  (cl-assert (not (multibyte-string-p ps-control-or-escape-regexp)))
   ;; initialize page dimensions
   (ps-get-page-dimensions)
   ;; final check