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