|
|
@ -68,7 +68,7 @@ PROMPT sets the `read-string prompt." |
|
|
(if _after (ov-reset _ov)))) |
|
|
(if _after (ov-reset _ov)))) |
|
|
|
|
|
|
|
|
(defun prelude-annotate-todo () |
|
|
(defun prelude-annotate-todo () |
|
|
"Put fringe marker on TODO: lines in the curent buffer." |
|
|
|
|
|
|
|
|
"Put fringe marker on TODO: lines in the current buffer." |
|
|
(interactive) |
|
|
(interactive) |
|
|
(ov-set (format "[[:space:]]*%s+[[:space:]]*TODO:" comment-start) |
|
|
(ov-set (format "[[:space:]]*%s+[[:space:]]*TODO:" comment-start) |
|
|
'before-string |
|
|
'before-string |
|
|
|