- 565 名前：login:Penguin mailto:sage [2008/01/13(日) 12:43:09 ID:a2rJvxbm]
- >>564
こんな感じでどうだい。
カーソル位置が highlight されてなければ、 region を highlight
highlight されていれば、 highlight を解除。
(defun my-toggle-overlay ()
(interactive)
(let ((ol (overlays-at (point))))
(if ol
(dolist (x ol)
(when (eq (overlay-get x 'face) 'highlight)
(delete-overlay x)))
(setq ol (make-overlay (mark t) (point)))
(overlay-put ol 'face 'highlight))))
