From: Kenichi Handa <handa@m17n.org>
Date: Tue, 22 Dec 1998 13:23:30 +0000 (+0000)
Subject: (ps-mule-begin-job): Programming uniformization.
X-Git-Tag: emacs-20.4~1012
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f37bad859712f36d7f901511b34e069ce25c2c08;p=emacs.git

(ps-mule-begin-job): Programming uniformization.
---

diff --git a/lisp/ps-mule.el b/lisp/ps-mule.el
index 49dac6b89fb..c2a7e8867bc 100644
--- a/lisp/ps-mule.el
+++ b/lisp/ps-mule.el
@@ -1083,8 +1083,8 @@ This checks if all multi-byte characters in the region are printable or not."
        ;; Initialize `ps-mule-charset-list'.  If some characters aren't
        ;; printable, warn it.
        (let ((charsets (find-charset-region from to)))
-	 (setq charsets (delq 'ascii (delq 'unknown (delq nil charsets))))
-	 (setq ps-mule-charset-list charsets)
+	 (setq charsets (delq 'ascii (delq 'unknown (delq nil charsets)))
+	       ps-mule-charset-list charsets)
 	 (save-excursion
 	   (goto-char from)
 	   (and (search-forward "\200" to t)