Adjusting emacs-lisp format.

Adding delete-trailing-whitespace to some modes.

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

diff --git a/bba.org b/bba.org
index e8efd056a0dce7c85cf86f632da568af98c3f865..7facdcfb98ad3efc38d3735f7d1dc1c3bdff3654 100644 (file)
--- a/bba.org
+++ b/bba.org
@@ -2596,61 +2596,46 @@ like these:
                                                     (lambda()
                                                       (unless (boundp 'bba-keep-whitespaces)
                                                         (save-excursion
-                                                          (delete-trailing-whitespace)))
-                                                      )
-                                                    )
-                                  )
-               ))
+                                                          (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)))
-                                                  )
-                                )
-               ))
+                                                      (delete-trailing-whitespace)))))))
 
   (eval-after-load "js-mode"
     '(add-hook 'js-mode-hook (lambda() (add-hook 'write-contents-functions
                                                    (lambda()
                                                      (save-excursion
-                                                       (delete-trailing-whitespace)))
-                                                   )
-                                 )
-               ))
+                                                       (delete-trailing-whitespace)))))))
+
+  (eval-after-load "json-mode"
+    '(add-hook 'json-mode-hook (lambda() (add-hook 'write-contents-functions
+                                                   (lambda()
+                                                     (unless (boundp 'bba-keep-whitespaces)
+                                                      (save-excursion
+                                                        (delete-trailing-whitespace))))))))
 
   (eval-after-load "org-mode"
     '(add-hook 'org-mode-hook (lambda() (add-hook 'write-contents-functions
                                                   (lambda()
                                                     (unless (boundp 'bba-keep-whitespaces)
                                                       (save-excursion
-                                                        (delete-trailing-whitespace)))))
-                                )
-               ))
-
+                                                        (delete-trailing-whitespace))))))))
   (eval-after-load "puppet-mode"
     '(add-hook 'puppet-mode-hook (lambda() (add-hook 'write-contents-functions
                                                    (lambda()
                                                       (unless (boundp 'bba-keep-whitespaces)
                                                         (save-excursion
-                                                          (delete-trailing-whitespace)))
-                                                      )
-                                                   )
-                                 )
-               ))
+                                                          (delete-trailing-whitespace))))))))
 
   (eval-after-load "text-mode"
     '(add-hook 'text-mode-hook (lambda() (add-hook 'write-contents-functions
                                                    (lambda()
                                                      (unless (boundp 'bba-keep-whitespaces)
                                                        (save-excursion
-                                                         (delete-trailing-whitespace)))
-                                                     )
-                                                   )
-                                 )
-               ))
-
+                                                         (delete-trailing-whitespace))))))))