[xyzzy:07972] 常にクリップボードと仲よく

[Yoichi Katogi <ykatogi@xxxxxxxxxxxxxxxxxxx>]

どうも。ここにはお初です。

「中途半端に同期」じゃなくて * 常に * クリップボードと仲よくできないか
と思い (そうすると xyzzy 自体の grep ダイアログとかでも便利なので)、
region.l を見て適当に次のようなのをでっちあげたのですが、

  (defun kill-region-both (from to)
    (interactive "*r")
    (setq *this-command* 'kill-region)
    (copy-region-as-kill from to)
    (copy-region-to-clipboard from to)
    (delete-region from to))
  
  (defun copy-region-both (from to)
    (interactive "*r")
    (copy-region-as-kill from to)
    (copy-region-to-clipboard from to))
  
  (global-set-key #\C-w 'kill-region-both)
  (global-set-key #\M-w 'copy-region-both)

編集可能なバッファでは問題ないみたいですが、リードオンリーなバッファで 
M-w すると、「書き込み禁止バッファです」って叱られます。で、結果もうま
くありません。

なんででしょうか。また、これを望みどおりに動かすには、どう書いたらいい
んでしょうか。lisp はようわからんのですが、どなたか教えてください。

--
加藤木 洋一
ykatogi@xxxxxxxxxxxxxxxxxxx