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