copy-selection-to-clipboard

Title
copy-selection-to-clipboard
Type
Function
Arguments
copy-selection-to-clipboard
Package
editor
Section
リージョン
File
select.l
選択範囲をクリップボードに転送します。[C-Insert]

使用例:
  ;;; 1. いったんJISに変換して保存
  ;;; 2. [ファイル]-[開く]で文字エンコーディングを[シフトJIS]にして開く
  ;;;    (またはメモ帳などで開く?)
  ;;; 3. 選択してコピー
  (defun tojiscopy ()
    (interactive)
    (let ((ocode *kanji-expected-code*)
          (tempfile (concat (default-directory) "tempfile.txt")))
      (save-excursion
        (set-buffer-kanji-fileio-code 1)
        (write-region (point-min) (point-max) tempfile nil)
        (switch-to-buffer "*JIS*"))
      (pop-to-buffer "*JIS*")
      (setq *kanji-expected-code* 0)
      (find-file tempfile)
      (setq *kanji-expected-code* ocode)
      (selection-whole-buffer)
      (copy-selection-to-clipboard)))