delete-trailing-whitespace only active for cfengine3, cperl, dns, json, org and text...

Signed-off-by: Andreas Gerler <baronNOSPAMbundesbrandschatzamt.de>

diff --git a/bba.org b/bba.org
index 5b8c495c90b4a58bcbdc742234d475e2c61bd7b0..cde7c2082c08d30a1a7086adbef48d99e05bcfaa 100644 (file)
--- a/bba.org
+++ b/bba.org
@@ -820,7 +820,8 @@ from environment variable http_proxy
   (fset 'perl-mode 'cperl-mode)
 
   (eval-after-load "cperl-mode"
-      '(add-hook 'cperl-mode-hook (lambda() (cperl-set-style "GNU"))))
+    '(add-hook 'cperl-mode-hook (lambda() (cperl-set-style "GNU"))))
+
 
 #+END_SRC
 
@@ -848,7 +849,57 @@ from environment variable http_proxy
     [2014-09-24 Wed 16:56]
 
 #+BEGIN_SRC emacs-lisp
-  (add-hook 'before-save-hook 'delete-trailing-whitespace)
+  (eval-after-load "cfengine3-mode"
+    '(add-hook 'cfengine3-mode-hook (lambda() (add-hook 'write-contents-functions
+                                                   (lambda()
+                                                     (save-excursion
+                                                       (delete-trailing-whitespace))))
+                                 )
+               ))
+
+
+  (eval-after-load "cperl-mode"
+    '(add-hook 'cperl-mode-hook (lambda() (add-hook 'write-contents-functions
+                                                    (lambda()
+                                                      (save-excursion
+                                                        (delete-trailing-whitespace))))
+                                  )
+               ))
+
+  (eval-after-load "dns-mode"
+    '(add-hook 'dns-mode-hook (lambda() (add-hook 'write-contents-functions
+                                                  (lambda()
+                                                    (save-excursion
+                                                      (delete-trailing-whitespace))))
+                                )
+               ))
+
+  (eval-after-load "json-mode"
+    '(add-hook 'json-mode-hook (lambda() (add-hook 'write-contents-functions
+                                                   (lambda()
+                                                     (save-excursion
+                                                       (delete-trailing-whitespace))))
+                                 )
+               ))
+
+  (eval-after-load "org-mode"
+    '(add-hook 'org-mode-hook (lambda() (add-hook 'write-contents-functions
+                                                  (lambda()
+                                                    (save-excursion
+                                                      (delete-trailing-whitespace))))
+                                )
+               ))
+
+  (eval-after-load "text-mode"
+    '(add-hook 'text-mode-hook (lambda() (add-hook 'write-contents-functions
+                                                   (lambda()
+                                                     (save-excursion
+                                                       (delete-trailing-whitespace))))
+                                 )
+               ))
+
+
+
 
 #+END_SRC