[xyzzy:08508] Re: 複数テキストファイルの印刷について

[HIE Masahiro <madoinu@xxxxxxxxx>]

日江です。

訂正します。。。

> (defun print-all-buffer (&optional pd)
>   (interactive)
>   (dolist (b (buffer-list))
>     (when (stringp (get-buffer-file-name b))
>       (set-buffer b)
>       (if pd
> 	  (print-dialog)
> 	(ed::print-selected-buffer)))))
> (global-set-key #\M-C-p 'print-all-buffer)

この方が良いみたいです。

(defun print-all-buffer (&optional pd)
  (interactive)
  (dolist (b (buffer-list))
    (when (stringp (get-buffer-file-name b))
      (if pd
	  (progn
	    (set-buffer b)
	    (print-dialog))
	(print-buffer b)))))
(global-set-key #\M-C-p 'print-all-buffer)


.xyzzy を書き換えたら、xyzzy を再起動しといてください。
# こう書くと、なんかわかりにくいかんじ。


--
HIE Masahiro
mailto: madoinu@xxxxxxxxx