.emacs-my
changeset 1637 9dc8c7db5541
parent 1636 fbef0a487803
child 1638 654eb29dd4a5
equal deleted inserted replaced
1636:fbef0a487803 1637:9dc8c7db5541
  1959       (apply #'kill-region r))))
  1959       (apply #'kill-region r))))
  1960 
  1960 
  1961 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1961 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1962 (message "TODO, XXX, FIXME highlight")
  1962 (message "TODO, XXX, FIXME highlight")
  1963 
  1963 
  1964 (defvar my-todo-words '("TODO" "FIX" "FIXME" "HACK" "XXX" "EDITED"))
  1964 (defvar my-todo-words '("TODO" "FIXME" "XXX" "HACK" "TBD" "BUG" "DELME" "EDITED"))
  1965 
  1965 
  1966 (defun my-todo (&optional mode)
  1966 (defun my-todo (&optional mode)
  1967   (interactive)
  1967   (interactive)
  1968   (font-lock-add-keywords
  1968   (font-lock-add-keywords
  1969    mode
  1969    mode