.emacs-my
changeset 478 2e18034ae7fd
parent 473 1334dc79ea80
parent 477 e1adf1d08f5b
child 479 6ca398b20643
equal deleted inserted replaced
473:1334dc79ea80 478:2e18034ae7fd
   821               ))
   821               ))
   822       (setq
   822       (setq
   823        org-remember-store-without-prompt t
   823        org-remember-store-without-prompt t
   824        ) ))
   824        ) ))
   825 
   825 
   826 ;;; ----------------------------------------------------------------------
   826 ;;; ----------------------------------------------------------------
   827 ;;; TODO, XXX, FIXME highlight.
   827 ;;; TODO, XXX, FIXME highlight.
   828 ;; Show blanks and FIXME
   828 ;; Show blanks and FIXME
   829 ;; http://www.emacswiki.org/cgi-bin/wiki/EightyColumnRule
   829 ;; http://www.emacswiki.org/cgi-bin/wiki/EightyColumnRule
   830 
   830 
   831 (defface my-tab-face
   831 (defface my-tab-face
   842   (font-lock-add-keywords
   842   (font-lock-add-keywords
   843    mode
   843    mode
   844    '(
   844    '(
   845      ("\t+" 0 'my-tab-face t)
   845      ("\t+" 0 'my-tab-face t)
   846      ("\\<\\(FIXME:?\\|XXX:?\\|TODO:?\\)\\>" 1 'font-lock-warning-face t)
   846      ("\\<\\(FIXME:?\\|XXX:?\\|TODO:?\\)\\>" 1 'font-lock-warning-face t)
   847      ("\\(=\\{7,\\}\\|<\\{7,\\}\\|>\\{7,\\}\\)" 1 'my-contrasty-face t)
   847      ("\\(=\\|<\\|>\\)\\{7,\\}" 0 'my-contrasty-face t)
   848      ;; 64 times, for highlight C-u C-u C-u <key>
   848      ;; 64 times, for highlight C-u C-u C-u <key>
   849      ("\\([^[:space:]]\\)\\1\\{63\\}" 0 'my-contrasty-face t)
   849      ("\\([^[:space:]]\\)\\1\\{63\\}" 0 'my-contrasty-face t)
   850      ))
   850      ))
   851   )
   851   )
   852 
   852