[xyzzy:02927] Re: JIS でクリップボードに送りたい。

[Tetsuya Kamei <kamei@xxxxxxxxxxxx>]

服部さん、こんにちは。

    Sun, 4 Jul 1999 14:43:20 +0900 の
   “[xyzzy:02926] Re: JIS でクリップボードに送りたい。”
    への返事です.

| ; なんかもっと簡単なやり方があるような気がしてならない・・

残念ながら、んなもんはありません(^^; 必要なら作ります
けど。
で、やってることは一緒ですが、こんなもんでしょう。

(defun jis-copy-region-to-clipboard (from to)
  (interactive "r")
  (let ((obuffer (selected-buffer))
	(okanji (buffer-kanji-fileio-code))
	tempfile
	buffer)
    (unwind-protect
	(progn
	  (setq tempfile (make-temp-file-name))
	  (set-buffer-kanji-fileio-code *jis*)
	  (write-region from to tempfile)
	  (setq buffer (create-new-buffer "*foo*"))
	  (set-buffer buffer)
	  (let ((*kanji-expected-code* *sjis*))
	    (declare (special *kanji-expected-code*))
	    (insert-file-contents tempfile)
	    (copy-region-to-clipboard (point-min) (point-max))))
      (set-buffer obuffer)
      (set-buffer-kanji-fileio-code okanji)
      (and tempfile
	   (delete-file tempfile))
      (and buffer
	   (delete-buffer buffer)))))

--
亀井哲弥(Tetsuya Kamei)
kamei@xxxxxxxxxxxx/JCA00343@xxxxxxxxxxx