419 |
419 |
420 (setq default-indicate-empty-lines t) |
420 (setq default-indicate-empty-lines t) |
421 (setq default-indicate-buffer-boundaries 'left) |
421 (setq default-indicate-buffer-boundaries 'left) |
422 |
422 |
423 ;; (setq-default show-trailing-whitespace t) |
423 ;; (setq-default show-trailing-whitespace t) |
424 (defun my-show-trailing-whitespace () |
424 |
425 (setq show-trailing-whitespace t) |
425 (setq whitespace-style '(face trailing tabs)) |
426 ) |
426 (setq whitespace-global-modes (append my-devel-mode-list my-text-mode-list)) |
427 (mapc (lambda (hook) (add-hook hook 'my-show-trailing-whitespace)) |
427 (ignore-errors |
428 (append my-devel-mode-hook-list my-text-mode-hook-list)) |
428 (require 'whitespace) |
|
429 (global-whitespace-mode 1)) |
429 |
430 |
430 (setq next-line-add-newlines nil) |
431 (setq next-line-add-newlines nil) |
431 |
432 |
432 ;; See also 'mode-require-final-newline'. |
433 ;; See also 'mode-require-final-newline'. |
433 (add-hook 'text-mode-hook (lambda () (setq require-final-newline nil))) |
434 (add-hook 'text-mode-hook (lambda () (setq require-final-newline nil))) |
1365 '(member tag tags-list) |
1366 '(member tag tags-list) |
1366 nil) ) |
1367 nil) ) |
1367 |
1368 |
1368 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
1369 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
1369 (message "TODO, XXX, FIXME highlight") |
1370 (message "TODO, XXX, FIXME highlight") |
1370 ;; Show blanks and FIXME |
|
1371 ;; http://www.emacswiki.org/cgi-bin/wiki/EightyColumnRule |
|
1372 |
|
1373 (defface my-tab-face |
|
1374 '((t :background "gray")) |
|
1375 "Face for showing TABs." |
|
1376 :group 'basic-faces) |
|
1377 |
1371 |
1378 (defface my-contrasty-face |
1372 (defface my-contrasty-face |
1379 '((t :background "pink" :foreground "red" :weight bold)) |
1373 '((t :background "pink" :foreground "red" :weight bold)) |
1380 "Font for showing conflicts." |
1374 "Font for showing conflicts." |
1381 :group 'basic-faces) |
1375 :group 'basic-faces) |
1382 |
1376 |
1383 (dolist (mode (append my-devel-mode-list my-text-mode-list)) |
1377 (dolist (mode (append my-devel-mode-list my-text-mode-list)) |
1384 (font-lock-add-keywords |
1378 (font-lock-add-keywords |
1385 mode |
1379 mode |
1386 `( |
1380 `( |
1387 ("\t+" 0 'my-tab-face t) |
|
1388 ( ,(concat "\\<\\(" (regexp-opt '("TODO" "FIX" "FIXME" "HACK" "XXX")) ":?\\)\\>") 1 'font-lock-warning-face t) |
1381 ( ,(concat "\\<\\(" (regexp-opt '("TODO" "FIX" "FIXME" "HACK" "XXX")) ":?\\)\\>") 1 'font-lock-warning-face t) |
1389 ;; 64 times, for highlight C-u C-u C-u <key> |
1382 ;; 64 times, for highlight C-u C-u C-u <key> |
1390 ("\\([^[:space:]]\\)\\1\\{63\\}" 0 'my-contrasty-face t) |
1383 ("\\([^[:space:]]\\)\\1\\{63\\}" 0 'my-contrasty-face t) |
1391 )) |
1384 )) |
1392 ) |
1385 ) |