   (evil-select-search-module 'evil-search-module 'evil-search)
 
   (evil-define-key 'normal evil-command-window-mode-map [escape] 'kill-buffer-and-window)
+
+  ;; Monkey-patch an error triggered randomly during column-selection; is caused
+  ;; by `extract-rectangle-line' receiving a float.
+  (defun narf*evil-extract-rectangle-line-fix (args)
+    (mapcar (lambda (i) (if (numberp i) (truncate i) i)) args))
+  (advice-add 'extract-rectangle-line :filter-args 'narf*evil-extract-rectangle-line-fix)
 
   ;; modes to map to different default states
   (dolist (mode-map '((cider-repl-mode   . emacs)

        evil-ex-search-vim-style-regexp t
        evil-ex-interactive-search-highlight 'selected-window
        evil-echo-state nil

        ;; Color-coded state cursors
        evil-normal-state-cursor  'box


  (progn ; evil hacks
    (defadvice evil-force-normal-state (after evil-esc-quit activate)
      "Close popwin windows, disable search highlights and quit the minibuffer if open."
      (when (popwin:popup-window-live-p)
        (popwin:close-popup-window))
      (ignore-errors
        (evil-ex-nohighlight))
      (when (minibuffer-window-active-p (minibuffer-window))
        (narf-minibuffer-quit)))

    ;; Fix disruptive errors w/ hidden buffers caused by popwin
    (defadvice evil-ex-hl-do-update-highlight (around evil-ex-hidden-buffer-ignore-errors activate)
      (ignore-errors ad-do-it))
