diff options
| author | Kenichi Handa <handa@m17n.org> | 1998-12-22 13:23:30 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 1998-12-22 13:23:30 +0000 |
| commit | f37bad859712f36d7f901511b34e069ce25c2c08 (patch) | |
| tree | 0e968f2fc76ba6448158103bd9575729ba69268d /lisp/ps-mule.el | |
| parent | 7c1cddd3b0f3341c9612eb14b4d6c4e95f37c35e (diff) | |
| download | emacs-f37bad859712f36d7f901511b34e069ce25c2c08.tar.gz | |
(ps-mule-begin-job): Programming uniformization.
Diffstat (limited to 'lisp/ps-mule.el')
| -rw-r--r-- | lisp/ps-mule.el | 4 |
1 files changed, 2 insertions, 2 deletions
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) |