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

Merge pull request #516 from gongzhitaao/prelude-annotate-todo

Browse source 
annotate TODO only in comments
This commit is contained in:
Bozhidar Batsov 2014-04-19 23:33:22 +03:00
commit 6ad8965fe2
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