(require 'comint)
(require 'quit)
(require 'shell)
(require 'super)

;; (setq shell-mode-hook-f nil)
(defun shell-mode-hook-f ()
  (mute-kill-warnings)
  (disable-super-global-keys) )
(add-hook 'shell-mode-hook #'shell-mode-hook-f)

(setq comint-process-echoes t)

;; invocation/navigation
(global-set-key "\M-J" (lambda () (interactive) (shell "1")))
(global-set-key "\M-L" (lambda () (interactive) (shell "2")))

;; history
(define-key shell-mode-map "\C-p"
  (lambda () (interactive) (comint-previous-input 1) (message nil)))
(define-key shell-mode-map "\C-n"
  (lambda () (interactive) (comint-next-input     1) (message nil)))

;; compensate absence of normal vertical point movement keys
(define-key shell-mode-map "\C-\M-p" 'previous-line)
(define-key shell-mode-map "\C-\M-n" 'next-line)