Mercurial > emacs
changeset 23937:144220e7f841
(ps-mule-begin-job): Programming uniformization.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Tue, 22 Dec 1998 13:23:30 +0000 |
| parents | b339f3a7c728 |
| children | 32a60498137c |
| files | lisp/ps-mule.el |
| diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
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)