くだらねえ質問はここに書き込め！ Part 158

くだらねえ質問はここ ..

565:login:Penguin
08/01/13 12:43:09 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))))

次ページ