--- a/.emacs-my	Wed Mar 30 17:44:34 2011 +0300
+++ b/.emacs-my	Thu Mar 31 22:26:02 2011 +0300
@@ -219,7 +219,12 @@
 (setq default-indicate-empty-lines t)
 (setq default-indicate-buffer-boundaries 'left)
 
-(setq-default show-trailing-whitespace t)
+;; (setq-default show-trailing-whitespace t)
+(defun my-show-trailing-whitespace ()
+  (setq show-trailing-whitespace t)
+  )
+(mapc (lambda (hook) (add-hook hook 'my-show-trailing-whitespace))
+      my-devel-mode-hook-list)
 
 (setq next-line-add-newlines nil)