 (add-hook 'shell-mode-hook
           (lambda ()
             (setq line-number-mode nil)
+            (setq comint-input-sender
+                  'my-emacs-rspec-command)
             (set (make-variable-buffer-local
                   'show-trailing-whitespace)
                  nil)

    (set-mark beg)
    (goto-char end)))

(message "")

(setq make-backup-files nil)
(setq inhibit-splash-screen t)
(setq inhibit-startup-message t)
(setq inhibit-startup-echo-area-message "sthaiyar")
(setq initial-scratch-message nil)
(setq visible-bell nil)
(setq ring-bell-function (lambda ()))
