only show trailing whitespace in text/prog modes

diff --git a/lisp/my-gui.el b/lisp/my-gui.el
index 3ee090028a0aad4f86cd0695f067a5e0d05b9cf7..4408b31d5fd03af349225f224d86f3b58e2fdcd3 100644 (file)
--- a/lisp/my-gui.el
+++ b/lisp/my-gui.el
@@ -16,8 +16,6 @@
 
 (show-paren-mode t)
 
-(setq-default show-trailing-whitespace t)
-
 (require 'uniquify)
 (setq uniquify-strip-common-suffix t)
 (setq uniquify-buffer-name-style 'post-forward)

diff --git a/lisp/my-other-modes.el b/lisp/my-other-modes.el
index 778093cab732846e1f9a13310ba9839d41bb0f1e..c8baa0329a8b1c59e8941a507290e5cf7703de47 100644 (file)
--- a/lisp/my-other-modes.el
+++ b/lisp/my-other-modes.el
@@ -36,6 +36,10 @@
 (require 'saveplace)
 (setq-default save-place t)
 
+(dolist (hook '(prog-mode-hook text-mode-hook))
+  (add-hook hook (lambda ()
+                   (setq show-trailing-whitespace t))))
+
 (setq undo-limit 10000000)
 (setq undo-strong-limit undo-limit)