equal
deleted
inserted
replaced
86 (lambda (symb) (intern (concat (symbol-name symb) "-map"))) |
86 (lambda (symb) (intern (concat (symbol-name symb) "-map"))) |
87 ) |
87 ) |
88 |
88 |
89 (defvar my-devel-mode-list |
89 (defvar my-devel-mode-list |
90 '( |
90 '( |
91 outline-mode rst-mode |
91 outline-mode |
92 sh-mode script-mode |
92 sh-mode script-mode |
93 c-mode c++-mode java-mode js-mode |
93 c-mode c++-mode java-mode js-mode |
94 python-mode |
94 python-mode |
95 lisp-mode |
95 lisp-mode |
96 emacs-lisp-mode |
96 emacs-lisp-mode |
234 ;; (setq-default show-trailing-whitespace t) |
234 ;; (setq-default show-trailing-whitespace t) |
235 (defun my-show-trailing-whitespace () |
235 (defun my-show-trailing-whitespace () |
236 (setq show-trailing-whitespace t) |
236 (setq show-trailing-whitespace t) |
237 ) |
237 ) |
238 (mapc (lambda (hook) (add-hook hook 'my-show-trailing-whitespace)) |
238 (mapc (lambda (hook) (add-hook hook 'my-show-trailing-whitespace)) |
239 my-devel-mode-hook-list) |
239 (append my-devel-mode-hook-list my-text-mode-hook-list)) |
240 |
240 |
241 (setq next-line-add-newlines nil) |
241 (setq next-line-add-newlines nil) |
242 |
242 |
243 ;; See also 'mode-require-final-newline'. |
243 ;; See also 'mode-require-final-newline'. |
244 (add-hook 'text-mode-hook (lambda () (setq require-final-newline nil))) |
244 (add-hook 'text-mode-hook (lambda () (setq require-final-newline nil))) |