From: Andreas Gerler <baron@bundesbrandschatzamt.de>
Date: Tue, 28 Aug 2018 18:50:00 +0000 (+0200)
Subject: Adjusting emacs-lisp format.
X-Git-Url: http://git.bundesbrandschatzamt.de/?a=commitdiff_plain;h=f318453e65cf7ebdafaa6d9f7fcb08cd7bc8f169;p=emacsconfig.git

Adjusting emacs-lisp format.

Adding delete-trailing-whitespace to some modes.

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

diff --git a/bba.org b/bba.org
index e8efd056..7facdcfb 100644
--- 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))))))))