 (put 'erase-buffer 'disabled nil)
 (fset 'yes-or-no-p 'y-or-n-p)
 
+(cua-selection-mode 1)
 (menu-bar-mode 1)
 (tool-bar-mode -1)
 (scroll-bar-mode -1)

  (erase-buffer)
  (comint-send-input))

(add-hook 'shell-mode-hook
          (lambda ()
            (setq line-number-mode nil
                  column-number-mode nil)
            (setq comint-input-sender

      (define-key map (vector 'mode-line (pop args)) (pop args)))
    map))

(defun my-make-header-line-mouse-map (&rest args)
  (let ((map (make-sparse-keymap)))
    (while args
      (define-key map (vector 'header-line (pop args)) (pop args)))
    map))

(setq-default my-mode-line-window-manipulation
  (list (propertize "[⇨]"
