Newsgroups: fj.editor.mule,fj.editor.emacs
Path: galaxy.trc.rwcp.or.jp!coconuts.jaist!wnoc-tyo-news!spinnews!aps02!yoshi
From: yoshi@bsi.co.jp (Takehiko Yosida)
Subject: Re: [Q]: M-x printer-buffer
Message-ID: <YOSHI.94Sep6213211@mango.bsi.co.jp>
Sender: news@bsi.co.jp
Nntp-Posting-Host: mango
Organization: Bussan Systems Integration Co., Ltd. Tokyo, Japan.
Distribution: fj
Date: Tue, 6 Sep 1994 12:32:11 GMT
Lines: 48
Xref: galaxy.trc.rwcp.or.jp fj.editor.mule:191 fj.editor.emacs:4965
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.editor.emacs&nb=4965&hd=a
X-reformat-date: Mon, 18 Oct 2004 15:18:22 +0900
X-reformat-comment: Tabs were expanded into 4 column tabstops by the Galaxy's archiver. See http://katsu.watanabe.name/ancientfj/galaxy-format.html for more info.


$B$h$7$@!w#B#S#I$G$9!#(B

lpr-buffer$B$G4A;z%3!<%IJQ49!"(BTEXT->PS$BJQ49%U%#%k%?!<$N;XDj$r$9$k$K$O!)(B
$B$H$N<ALd$K!"0J2<$NJ}!9$+$i%U%)%m!<$r$$$?$@$-$^$7$?!#(B

$B<r0f!wEl5~Bg3X$N<r0f$5$^!#(B
$BFb;3!wC^GHBg3X$5$^!#(B
$B@P@n!wElBg!%5$8u%;%s%?!<$5$^!#(B

$BK\Ev$K$"$j$,$H$&$4$6$$$^$7$?!#(B

    (define-program-coding-system nil ".*lpr.*" *euc-japan*)

$B$H@_Dj$7$F$*$1$P$h$m$7$$$H$N;v$G$9$,!"$3$l$O!"(BMule$B$N>l9g$G$9$h$M!#(B
$BEvJ}$G$O(Bemacs18.55$B$r;HMQ$7$F$*$j$^$9$N$G!"$3$l$O8z$-$^$;$s$G$7$?!#(B
$BEvJ}$N<j0c$$$K$h$j!"(Bfj.editor.mule$B$H!"(Bfj.editor.emacs$B$K%]%9%H$7$F(B
$B$7$^$$$^$7$?!#$9$$$^$;$s$G$7$?!#(B

$B$G!"7k6I!"Fb;3!wC^GHBg3X$5$^$N(B``.emacs''$B$NNc$r;29M$K!"0J2<$N$h$&$K@_Dj(B
$B$7$?$H$3$m!"$&$^$/$$$-$^$7$?!#(B
$B$"$j$,$H$&$4$6$$$^$7$?!#(B

;; lpr-buffer command
(defvar lpr-command-format "nkf -e %s | lpr")
(defun lpr-region (start end)
(interactive "r")
(let ((tmpfile (make-temp-name "/tmp/emacs_print_")))
(write-region start end tmpfile)
(shell-command (format lpr-command-format tmpfile))
(delete-file tmpfile)))
(defun lpr-buffer ()
(interactive)
(lpr-region (point-min) (point-max)))
(setq lpr-command-format "nkf -e %s | a2ps | psnup -2 -q | lpr")






--
=====================================================================
 $BIp;NF;$H1>$R$O(B|$B5HED(B $B7rI'(B [Takehiko Yoshida]
 $B;`$L$3$H$H(B|  ($B3t(B)$BJ*;:%7%9%F%`%$%s%F%0%l!<%7%g%s(B
 $B8+Im$?$j!#(B|            $B%*!<%W%s%7%9%F%`;v6HK\It(B
-$BMU1#(B-|   Mail: yoshi@bsi.co.jp, SGU01033@niftyserve.or.jp
=====================================================================
