From 1caca4478a9a9e7fb2f546a36de19c40f39e19a8 Mon Sep 17 00:00:00 2001 From: Alan Pearce Date: Tue, 22 Apr 2014 14:56:49 +0100 Subject: Emacs: Whitespace cleanup --- tag-emacs/emacs.d/init.el | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) (limited to 'tag-emacs') diff --git a/tag-emacs/emacs.d/init.el b/tag-emacs/emacs.d/init.el index e1c9c265..77ffccd1 100644 --- a/tag-emacs/emacs.d/init.el +++ b/tag-emacs/emacs.d/init.el @@ -87,10 +87,10 @@ (variable-face "Segoe UI") (default-font (concat mono-face "-" (number-to-string font-size)))) (when mono-face - (add-to-list 'default-frame-alist `(font . ,default-font)) - (set-face-font 'fixed-pitch default-font)) + (add-to-list 'default-frame-alist `(font . ,default-font)) + (set-face-font 'fixed-pitch default-font)) (when variable-face - (set-face-font 'variable-pitch (concat variable-face "-" + (set-face-font 'variable-pitch (concat variable-face "-" (number-to-string (1+ font-size))))))) ((eq system-type 'darwin) (let* ((font-size 14) @@ -104,10 +104,10 @@ (number-to-string (1+ font-size))))))))) (let* ((font-height (face-attribute 'default :height)) - (small-font-height (max 1 (floor (* .917 font-height))))) + (small-font-height (max 1 (floor (* .917 font-height))))) (mapc (lambda (item) - (put (car item) 'customized-face (cadr item)) - (face-spec-set (car item) (cadr item))) + (put (car item) 'customized-face (cadr item)) + (face-spec-set (car item) (cadr item))) `((linum ((t (:height ,small-font-height :foreground unspecified @@ -881,7 +881,7 @@ (add-hook 'lisp-common-mode-hook #'turn-on-redshank-mode))) (req-package slime - :commands (slime) + :commands (slime) :config (progn (let ((ql-slime-helper (expand-file-name "~/quicklisp/slime-helper.el"))) (if (file-exists-p ql-slime-helper) @@ -956,7 +956,7 @@ :mode ("\\.js\\'" . js2-mode) :config (progn (defun ap/javascript-setup () - (autopair-mode -1) + (autopair-mode -1) (auto-indent-mode -1)) (add-hook 'js2-mode-hook #'ap/javascript-setup) (setq js2-basic-offset 4 -- cgit 1.4.1