🚀 go-pugleaf

The following message is a courtesy copy of an article
that has been posted to fj.editor.xemacs as well.

難波です。プロバイダのサーバの様子がおかしいので Cc: も付けときます。

xemacs topic には口を狭まない、と書いたばかりなんですが、参考になれば。

GGB03631@nifty.ne.jp (Atushi Shinmura) さん writes:

> ---------patern1
> ;;printer setting
> (setq-default lpr-command "lpr")
> (setq-default lpr-switches '("-Plp0"))
> (setq ps-lpr-command "lpr")
> (setq ps-lpr-switches '("-Plp0"))
> (setq ps-paper-type 'ps-a4)
> (setq ps-print-header nil)
> (setq ps-print-header-frame nil)
> (setq ps-font-size 8)
> (setq ps-print-color-p nil)
> (setq ps-wrap-line nil)

こっちは、xemacs 特有だと思うのでよく判らないところがありますが、

> --------patern2
> ;;printer setting
> (setq-default lpr-switches '("-Plp0"))
> 
> ;;lisp for prn
> (setq print-command-format "a2ps -p -ns -nh -nt |lpr -Plp0")
>         (defun print-region (begin end)
>           (interactive "r")
>           (shell-command-on-region begin end print-command-format))
>         (defun print-buffer ()
>           (interactive)
>           (print-region (point-min) (point-max)))
>           (setq print-function (function print-buffer))
> -------

いずれのケースも process-coding-system まわりの問題に帰結するように
思われます。

もう少し問題を単純化して１つづつ調べたらどうでしょうか。

xemacs を使っていない私でも判りそうな pattern2 の方で話をしますが、まず、

$ < infile.txt a2ps -p -ns -nh -nt |lpr -Plp0

は既にうまく動いていますよね。

また、日本語の書いてあるバッファで、

(shell-command-on-region (point-min) (point-max) "kcc -c") ;; kcc があれば
(shell-command-on-region (point-min) (point-max) "coco -q") ;; coco があれば
(shell-command-on-region (point-min) (point-max) "cat >/tmp/junk")

などとした結果はどうでしょう（３つめのものは、/tmp/junk を find-file
したり cat したりして中身を調べる）。

その前に M-x describe-coding-system RET (そういうのがあれば) で
process-coding-system (そういう名前だったとして) の値を調べる、という
のもあるか。



$ < infile.txt a2ps -p -ns -nh -nt |lpr -Plp0

がうまくいっていて、上の２つめのテストで何らかの日本語らしきコードが
出ていっているのであれば、最もテキトーな workaround としては

(setq print-command-format "nkf | a2ps -p -ns -nh -nt |lpr -Plp0")

などとしてしまう、とか…。

そういえば、もっと細かい話をすれば、
(gs 経由の場合は大丈夫のような気はしますが)
a2ps が utashiro@iij.ad.jp さんの perl バージョンだったとすれば、

;;      $jisconvert = 1;

に関する設定も関係あるんでしょうかねえ。

-- 
難波清一＠東京西東京市 (http://www.asahi-net.or.jp/~pi9s-nnb/)
NAMBA Seiichi <sn@asahi-net.email.ne.jp>