Mercurial > emacs
diff lisp/ps-mule.el @ 23937:144220e7f841
(ps-mule-begin-job): Programming uniformization.
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Tue, 22 Dec 1998 13:23:30 +0000 |
parents | f96c37cbdeef |
children | bedce7fcf0f4 |
line wrap: on
line diff
--- a/lisp/ps-mule.el Tue Dec 22 12:43:30 1998 +0000 +++ b/lisp/ps-mule.el Tue Dec 22 13:23:30 1998 +0000 @@ -1083,8 +1083,8 @@ ;; 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)