equal
deleted
inserted
replaced
217 (message "whitespaces") |
217 (message "whitespaces") |
218 |
218 |
219 (setq default-indicate-empty-lines t) |
219 (setq default-indicate-empty-lines t) |
220 (setq default-indicate-buffer-boundaries 'left) |
220 (setq default-indicate-buffer-boundaries 'left) |
221 |
221 |
222 (setq-default show-trailing-whitespace t) |
222 ;; (setq-default show-trailing-whitespace t) |
|
223 (defun my-show-trailing-whitespace () |
|
224 (setq show-trailing-whitespace t) |
|
225 ) |
|
226 (mapc (lambda (hook) (add-hook hook 'my-show-trailing-whitespace)) |
|
227 my-devel-mode-hook-list) |
223 |
228 |
224 (setq next-line-add-newlines nil) |
229 (setq next-line-add-newlines nil) |
225 |
230 |
226 ;; See also 'mode-require-final-newline'. |
231 ;; See also 'mode-require-final-newline'. |
227 (add-hook 'text-mode-hook (lambda () (setq require-final-newline nil))) |
232 (add-hook 'text-mode-hook (lambda () (setq require-final-newline nil))) |