(setq shell-mode-hook 'turn-off-ctrl-m)
(defun turn-off-ctrl-m ()
    (setq comint-output-filter-functions
	  (append comint-output-filter-functions
		  (list 'shell-strip-ctrl-m)))
    (setq comint-process-echoes t)
)