   (message (buffer-file-name)))
 
 (defun kill-region-or-backward-word ()
-  "If the region is active and non-empty, call `kilregion'.
-Otherwise, call `backward-kill-word'."
+  "If the region is active and non-empty, call `kill-region'. Otherwise, call `backward-kill-word'."
   (interactive)
   (call-interactively
    (if (use-region-p) 'kill-region 'backward-kill-word)))

  (up-list arg))

(defun select-by-step (arg &optional incremental)
  "Select the current word.
Subsequent calls expands the selection to larger semantic unit."
  (interactive (list (prefix-numeric-value current-prefix-arg)
                     (or (and transient-mark-mode mark-active)
                         (eq last-command this-command))))
  (if incremental
      (progn
        (semnav-up (- arg))
        (forward-sexp)
        (mark-sexp -1))
    (if (> arg 1)


;;;; Packages

(setq package-archives '(("gnu"       . "http://elpa.gnu.org/packages/")
                         ("marmalade" . "http://marmalade-repo.org/packages/")
                         ("melpa"     . "http://melpa.milkbox.net/packages/")))

;;;; Theme and faces

