(defun tc/text-counters-string () (interactive)
(let ((a (save-excursion
- (and (re-search-backward "^--.*--*$" nil t)
+ (and (re-search-backward "^[#% ]*--.*--*" nil t)
(match-end 0))))
(b (save-excursion
- (and (re-search-forward "^--.*--*$" nil t)
+ (and (re-search-forward "^[#% ]*--.*--*" nil t)
(match-beginning 0)))))
(when (and a b)