[xyzzy:08639] Re: リージョンのハイライト

[NAKAZONO Katsuhisa <nakazonok@xxxxxxxxxxxxx>]

こんにちは。中園です。

> > 参考にさせていただいて、どちらでもできるようにしてみました。
> > 不具合がありましたら、よろしくおねがいします。
ありがとうございます。

> 早速不具合修正しました．．．。
やっぱり selection が、ガン・・・ですよねえ。
私としては反転中の取得のために、とりあえず selection を作った、
というだけなので、それで苦労されたと思うと何か申し訳ないです。


で、私はといえば、要は emacs の mark-active を作ろうと思い、

(defvar-local *rv-region-active* nil)

(defun rv-region-start ()
  (add-hook '*post-command-hook* 'rv-region)
  (setq *rv-region-active* t))

(defun rv-region-stop ()
  (setq *rv-region-active* nil)
  (delete-hook '*post-command-hook* 'rv-region))

とやって、

(defun delete-char-or-region ()
  (interactive)
  (if *rv-region-active*
      (delete-region (mark) (point))
    (delete-char-or-selection)))

とかやってみるも、玉砕。
動くには動くがバッファローカルにならない・・・。
もう少し勉強します。

#まあ、私の使い方だと、バッファローカルでなくても *まったく*
#問題はないんですけど。

--
NAKAZONO Katsuhisa <nakazonok@xxxxxxxxxxxxx>