From 6b100e353fed694a0c3a23ab973bf132126bfac0 Mon Sep 17 00:00:00 2001
From: Alan Pearce
Date: Wed, 15 May 2013 12:24:53 +0100
Subject: Emacs: whitespace fixes

---
 emacs/init.el | 44 ++++++++++++++++++++++----------------------
 1 file changed, 22 insertions(+), 22 deletions(-)

(limited to 'emacs/init.el')

diff --git a/emacs/init.el b/emacs/init.el
index fe051a4d..9ab8db48 100644
--- a/emacs/init.el
+++ b/emacs/init.el
@@ -14,13 +14,13 @@
 (defun env/get-location ()
   "Return the physical location of the system, or `nil' if unknown"
   (if (executable-find "netctl")
-   (catch 'found
-     (mapc (lambda (line)
-             (cond
-              ((string-prefix-p "* home" line) (throw 'found 'home))
-              ((string-prefix-p "* work" line) (throw 'found 'work))))
-           (process-lines "netctl" "list"))
-     nil)))
+      (catch 'found
+        (mapc (lambda (line)
+                (cond
+                 ((string-prefix-p "* home" line) (throw 'found 'home))
+                 ((string-prefix-p "* work" line) (throw 'found 'work))))
+              (process-lines "netctl" "list"))
+        nil)))
 
 (defun env/get-system-type ()
   "Return the type of computer that is running"
@@ -151,13 +151,13 @@ Values: `desktop', `server', `laptop'")
                           "Consolas")
                          ))
              (variable-face "Segoe UI")
-          (default-font (concat mono-face "-" (number-to-string font-size))))
-     (when mono-face
-       (set-face-font 'default default-font)
-       (set-face-font 'fixed-pitch default-font))
-     (when variable-face
-       (set-face-font 'variable-pitch (concat variable-face "-"
-                                              (number-to-string (1+ font-size))))))))
+             (default-font (concat mono-face "-" (number-to-string font-size))))
+        (when mono-face
+          (set-face-font 'default default-font)
+          (set-face-font 'fixed-pitch default-font))
+        (when variable-face
+          (set-face-font 'variable-pitch (concat variable-face "-"
+                                                 (number-to-string (1+ font-size))))))))
 
 (with-elapsed-timer "Setting up font styles"
   (let* ((font-height (face-attribute 'default :height))
@@ -921,14 +921,14 @@ Also returns nil if pid is nil."
 (defun init-narrow-to-section ()
   (interactive)
   (save-excursion
-	(beginning-of-line)
-	(unless (looking-at "^;;;;")
-	  (re-search-backward "^;;;;" nil t))
-	(push-mark)
-	(forward-line)
-	(re-search-forward "^;;;;" nil t)
-	(forward-line -1)
-	(narrow-to-region (region-beginning) (region-end))))
+    (beginning-of-line)
+    (unless (looking-at "^;;;;")
+      (re-search-backward "^;;;;" nil t))
+    (push-mark)
+    (forward-line)
+    (re-search-forward "^;;;;" nil t)
+    (forward-line -1)
+    (narrow-to-region (region-beginning) (region-end))))
 
 (defun init-imenu (p)
   (interactive "P")
-- 
cgit 1.4.1