equal
deleted
inserted
replaced
1929 (message "TODO, XXX, FIXME highlight") |
1929 (message "TODO, XXX, FIXME highlight") |
1930 |
1930 |
1931 (dolist (mode (append my-devel-mode-list my-text-mode-list)) |
1931 (dolist (mode (append my-devel-mode-list my-text-mode-list)) |
1932 (font-lock-add-keywords |
1932 (font-lock-add-keywords |
1933 mode |
1933 mode |
1934 `( |
1934 `(( ,(concat "\\<\\(" (regexp-opt '("TODO" "FIX" "FIXME" "HACK" "XXX" "EDITED")) ":?\\)\\>") 1 'font-lock-warning-face t) |
1935 ( ,(concat "\\<\\(" (regexp-opt '("TODO" "FIX" "FIXME" "HACK" "XXX")) ":?\\)\\>") 1 'font-lock-warning-face t) |
|
1936 ;; 64 times, for highlight C-u C-u C-u <key> |
1935 ;; 64 times, for highlight C-u C-u C-u <key> |
1937 ;; ("\\([^[:space:]]\\)\\1\\{63\\}" 0 'my-contrasty-face t) |
1936 ;; ("\\([^[:space:]]\\)\\1\\{63\\}" 0 'my-contrasty-face t) |
1938 )) |
1937 ))) |
1939 ) |
|
1940 |
1938 |
1941 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
1939 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
1942 (message "mail, message") |
1940 (message "mail, message") |
1943 |
1941 |
1944 (eval-when 'compile (require 'message)) |
1942 (eval-when 'compile (require 'message)) |