Эта команда будет делать то, что вы хотите.
(defun annotate-todo ()
"put fringe marker on TODO: lines in the curent buffer"
(interactive)
(save-excursion
(goto-char (point-min))
(while (re-search-forward "TODO:" nil t)
(let ((overlay (make-overlay (- (point) 5) (point))))
(overlay-put overlay 'before-string (propertize "A"
'display '(left-fringe right-triangle)))))))
Вы можете настроить растровое изображение по желанию.
Чтобы применить это ко всем файлам, вы можете добавить его к 'find-file-hooks
(add-hook 'find-file-hooks 'annotate-todo)
Или, если вы хотите использовать его только для определенных режимов, вы можете добавить его к этим режимам.
См. Fringes , Свойство 'display' , Наложения и, что наиболее важно, свойство before-string .
Примечание: Код был обновлен 27.02.2010 для использования наложений вместо непосредственного добавления свойств текста к текущему тексту.