  "C-x C-b"  ibuffer
  "M-n"      cua-scroll-up
  "M-p"      cua-scroll-down
- "<M-f4>"   ng/delete-frame-or-exit
+ "<M-f4>"   ng/quit
+ "s-q"      ng/quit
+ "C-x C-c"  ng/quit
  "C-x C-k"  ng/kill-other-buffer-and-window
  "C-x k"    ng/kill-this-buffer-and-window
  "<C-tab>"  next-buffer

;; use common lisp extensions below
(eval-when-compile (require 'cl))

;; disable startup message
(setq inhibit-startup-message t)

  (if (use-region-p)
      (mc/mark-all-in-region (region-beginning) (region-end))
    (isearch-forward)))

;; Designed to be bound to C-w -- it keeps its standard behaviour when
;; there's an active region, it erases the previous word like it does
