From: Andreas Gerler <baron@bundesbrandschatzamt.de>
Date: Tue, 4 Nov 2014 12:32:58 +0000 (+0100)
Subject: delete-trailing-whitespace only active for cfengine3, cperl, dns, json, org and text... 
X-Git-Url: http://git.bundesbrandschatzamt.de/?a=commitdiff_plain;h=65fc49e03f765d8dd28c7696f4240e9bb28fffb2;p=emacsconfig.git

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

Signed-off-by: Andreas Gerler <baron@bundesbrandschatzamt.de>
---

diff --git a/bba.org b/bba.org
index 5b8c495c..cde7c208 100644
--- 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