Emacs: Whitespace cleanup
Alan Pearce alan@alanpearce.co.uk
Tue, 22 Apr 2014 14:56:49 +0100
1 files changed, 8 insertions(+), 8 deletions(-)
jump to
M tag-emacs/emacs.d/init.el → tag-emacs/emacs.d/init.el
@@ -87,10 +87,10 @@ "Consolas"))) (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 @@ (set-face-font 'variable-pitch (concat variable-face "-" (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 @@ :init (progn (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 @@ (req-package js2-mode :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