- 498 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/08/26(水) 00:01:29 ID:kzOrr9LL0]
- 折り返し線以外の縦線は出しにくいかな。
はみ出たのを色つけするのは、適当に書いたので良かったら。
(defun coloring-overflow-line ()
(save-excursion
(if (< 80 (progn (goto-eol) (current-column)))
(set-text-color (point) (progn (goto-column 80) (point)) 1 1))))
(defun coloring-overflow ()
(interactive)
(save-excursion (goto-char (point-min))
(while (next-line)
(coloring-overflow-line))))
(add-hook '*lisp-mode-hook* ;←これを適当なhookに変更
'(lambda () (coloring-overflow)
(make-local-variable '*post-command-hook*)
(add-hook '*post-command-hook* 'coloring-overflow-line)))
|
 |
