 (require 'cl)
 
-(defvar *emacs-load-time*
-  ;; for recording load time
-  (cdr (current-time)))
+(defvar *emacs-load-time* (float-time))
 
 ;;;;;;;;;;;;;;;;;;;;
 ;; customizations ;;
 ;;;;;;;;;;;;;;;;;;;;
 
-;; custom-set-variables works better than setq and setq-default,
-;; and custom-set-faces better than set-face-attributes;
-;; But if you let Custom edit them, it will mess the comments.
+;; custom-set-variables and custom-set-face work better
+;; than setq/setq-default and set-face-attributes;
+;; But if you let Custom edit them, it will mess up the comments.
 
 (custom-set-variables
  ;; frame

;; custom functions ;;
;;;;;;;;;;;;;;;;;;;;;;

;; a very handy function from
;; https://github.com/flyingmachine/emacs-for-clojure
(defun toggle-comment-on-line ()
  "Comment or uncomment current line."
  (interactive)
  (comment-or-uncomment-region (line-beginning-position)
			       (line-end-position)))
(bind-key "C-;" 'toggle-comment-on-line)



(destructuring-bind (HIGH LOW USEC PSEC) (current-time)
  ;; loading finished
  (setq *emacs-load-time*
	(+ (- LOW (car *emacs-load-time*))
	   (/ (- USEC (cadr *emacs-load-time*)) 1000000.0)))
  (message ".emacs loaded in %fs" *emacs-load-time*))

	       ("a" . mc/edit-beginnings-of-lines)    ;; anfang
	       ("e" . mc/edit-ends-of-lines)          ;; ende
	       ("l" . mc/edit-lines)                  ;; line
	       ("m" . mc/mark-all-like-this-dwim)     ;; mark
	       ("x" . mc/mark-all-in-region)	      ;; x
	       ("t" . mc/mark-sgml-tag-pair)          ;; tag
	       ("d" . mc/mark-all-like-this-in-defun) ;; defun
	       ("h" . mc/mark-all-like-this)	      ;; (w)hole
