Emacs: remove with-elapsed-timer call
Alan Pearce alan@alanpearce.co.uk
Sat, 11 Jan 2014 16:57:01 +0000
1 files changed, 5 insertions(+), 6 deletions(-)
jump to
M emacs/init.el → emacs/init.el
@@ -150,12 +150,11 @@ (when (and variable-face (display-graphic-p)) (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)) - (small-font-height (max 1 (floor (* .917 font-height))))) +(let* ((font-height (face-attribute 'default :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 @@ -216,7 +215,7 @@ (org-formula ((t (:foreground "Firebrick" :inherit 'fixed-pitch)))) (org-done ((t (:weight normal :strike-through t)))) - (org-headline-done ((t (:strike-through t)))))))) + (org-headline-done ((t (:strike-through t))))))) ;;;; Autosaves & Backups (let ((backup-dir (expand-file-name "~/.emacs.d/backups/")))