jt/emacs-prelude
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

annotate TODO in comments

Browse source
This commit is contained in:
Zhitao Gong 2014-04-19 15:28:37 -05:00
parent e7d9555bc3
commit 5d8fd5c35a
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
core/prelude-core.el
View file

@ -181,7 +181,8 @@ point reaches the beginning or end of the buffer, stop there."
(interactive) (interactive)
(save-excursion (save-excursion
(goto-char (point-min)) (goto-char (point-min))
(while (re-search-forward "TODO:" nil t) (while (re-search-forward
(format "[[:space:]]*%s+[[:space:]]*TODO:" comment-start) nil t)
(let ((overlay (make-overlay (- (point) 5) (point)))) (let ((overlay (make-overlay (- (point) 5) (point))))
(overlay-put overlay (overlay-put overlay
'before-string 'before-string