 
 (defun tirepl-repl-mark-output-end ()
   (add-text-properties tirepl-repl-output-start tirepl-repl-output-end
-                       '(face tirepl-repl-output-face 
+                       '(;;face tirepl-repl-output-face 
                          rear-nonsticky (face))))
 
 (defun tirepl-repl-reset-repl-markers ()

          (setq session (call-interactively 'tirepl-session-make-session-prompt))))
  session))

(defun tirepl-eval-js-in-region (start end)
  (interactive "r")
  (let ((session (tirepl-session-default-or-create))
        (src (buffer-substring start end)))
    (tirepl-session-eval
     (tirepl-session-current-session) src
     (lambda (result) (message "%s" result)))))

(defun tirepl-eval-js-in-region-and-insert (start end)
  (interactive "r")
  (let ((session (tirepl-session-default-or-create))
        (src (buffer-substring start end)))
    (tirepl-session-eval
     (tirepl-session-current-session) src
     (lambda (result) (beginning-of-line 2) (insert result)))))

(defun tirepl-js-make-scratch-buffer (buffer-name)
  (interactive

    (tirepl-repl-add-to-input-history
     (buffer-substring tirepl-repl-input-start-mark end))
    (tirepl-repl-show-maximum-output)
    (let ((overlay (make-overlay tirepl-repl-input-start-mark end)))
      ;; These properties are on an overlay so that they won't be taken
      ;; by kill/yank.
