[xyzzy:03371] Re: バージョンアップのお知らせ

[喜多淳一郎 <kita@xxxxxxxxxxxxxxxxx>]

こんにちは．
喜多です．

>バージョンアップしました。
>相変わらず何も変わってません。

何も変わってないなんてとんでもない．

>isearchを書き直し。喜多さんからisearch-yank-wordをぱくった。 

採用していただいてありがとうございます．


>(set-mark t)の場合、マークをクリアするようにした。 
>関数markに引数を追加。マークが設定されていないとき(mark &optional force)
>でforceがnon-nilの場合、nilを返すようにした。 

おお，これでリージョンの反転がもうちょっとグレードアップ．

(setq highlight-tag 'highlight)
(setq highlight-attribute '(:background 7 :foreground 8))
(setq highlight-between-point-and-mark t)

(defun post-command-highlight-between-point-and-mark ()
  (delete-text-attributes highlight-tag)
  (or highlight-between-point-and-mark
      (return-from post-command-highlight-between-point-and-mark nil))
  (if (eq *last-command* 'kill-region)
      (set-mark t))
  (let ((mark (mark 'ダイアログ出したくないねん)))
    (and mark
	 (apply #'set-text-attribute mark (point) highlight-tag highlight-attribute))))

(add-hook '*post-command-hook* 'post-command-highlight-between-point-and-mark)

こんな感じかな．
--- 
喜多 淳一郎    mailto:kita@xxxxxxxxxxxxxxxxx