From 5d8fd5c35ae6fcac42e4126d783a54971f8c0156 Mon Sep 17 00:00:00 2001 From: Zhitao Gong Date: Sat, 19 Apr 2014 15:28:37 -0500 Subject: [PATCH] annotate TODO in comments --- core/prelude-core.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/core/prelude-core.el b/core/prelude-core.el index 278c8a1..5db8743 100644 --- a/core/prelude-core.el +++ b/core/prelude-core.el @@ -181,7 +181,8 @@ point reaches the beginning or end of the buffer, stop there." (interactive) (save-excursion (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)))) (overlay-put overlay 'before-string