meadow -> notepad -> print

Meadow/Emacs memo: 基本的な設定
http://www.bookshelf.jp/soft/meadow_15.html#SEC137

;; この設定で M-x print-buffer RET などでの印刷ができるようになります
;; notepad に与えるパラメータの形式の設定
(define-process-argument-editing "notepad"
(lambda (x) (general-process-argument-editing-function x nil t)))

(defun w32-print-region (start end
&optional lpr-prog delete-text buf display
&rest rest)
(interactive)
(let *1
(coding-system-for-write w32-system-coding-system))
(write-region start end tmpfile nil 'nomsg)
(call-process "notepad" nil nil nil "/p" tmpfile)
(and (file-writable-p tmpfile) (delete-file tmpfile))))

(setq print-region-function 'w32-print-region)

*1:tmpfile (expand-file-name (make-temp-name "w32-print-") temporary-file-directory