.emacs-my
changeset 477 e1adf1d08f5b
parent 464 ae073d35f674
child 478 2e18034ae7fd
equal deleted inserted replaced
464:ae073d35f674 477:e1adf1d08f5b
   803               ))
   803               ))
   804       (setq
   804       (setq
   805        org-remember-store-without-prompt t
   805        org-remember-store-without-prompt t
   806        ) ))
   806        ) ))
   807 
   807 
   808 ;;; ----------------------------------------------------------------------
   808 ;;; ----------------------------------------------------------------
   809 ;;; TODO, XXX, FIXME highlight.
   809 ;;; TODO, XXX, FIXME highlight.
   810 ;; Show blanks and FIXME
   810 ;; Show blanks and FIXME
   811 ;; http://www.emacswiki.org/cgi-bin/wiki/EightyColumnRule
   811 ;; http://www.emacswiki.org/cgi-bin/wiki/EightyColumnRule
   812 
   812 
   813 (defface my-tab-face
   813 (defface my-tab-face
   824   (when (member major-mode my-devel-mode-list)
   824   (when (member major-mode my-devel-mode-list)
   825     (font-lock-add-keywords nil
   825     (font-lock-add-keywords nil
   826      '(
   826      '(
   827        ("\t+" 0 'my-tab-face t)
   827        ("\t+" 0 'my-tab-face t)
   828        ("\\<\\(FIXME:?\\|XXX:?\\|TODO:?\\)\\>" 1 'font-lock-warning-face t)
   828        ("\\<\\(FIXME:?\\|XXX:?\\|TODO:?\\)\\>" 1 'font-lock-warning-face t)
   829        ("\\(=\\{7,\\}\\|<\\{7,\\}\\|>\\{7,\\}\\)" 1 'my-conflict-face t)
   829        ("\\(=\\|<\\|>\\)\\{7,\\}" 0 'my-conflict-face t)
   830        ))))))
   830        ))))))
   831 
   831 
   832 ;; (dolist (mode '(c-mode
   832 ;; (dolist (mode '(c-mode
   833 ;;                 java-mode
   833 ;;                 java-mode
   834 ;;                 cperl-mode
   834 ;;                 cperl-mode