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

annotate TODO only in comments
2014-04-19 23:33:22 +03:00 · 2014-04-19 23:33:22 +03:00 · 6ad8965fe2
parent e7d9555bc3 5d8fd5c35a
commit 6ad8965fe2
1 changed files with 2 additions and 1 deletions
--- 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