 (define-key geiser-repl-mode-map "\C-c\M-p" 'comint-previous-input)
 (define-key geiser-repl-mode-map "\C-c\M-n" 'comint-next-input)
 
-(define-key geiser-repl-mode-map (kbd "TAB")
-  'geiser-completion--complete-symbol)
 (define-key geiser-repl-mode-map (kbd "M-TAB")
   'geiser-completion--complete-symbol)
 (define-key geiser-repl-mode-map (kbd "M-`")


(geiser-custom--defcustom geiser-repl-read-only-prompt-p t
  "Whether the REPL's prompt should be read-only."
  :type 'boolean
  :group 'geiser-repl)


    (if (zerop (geiser-syntax--nesting-level))
        (comint-send-input)
      (goto-char p)
      (if geiser-repl-auto-indent-p
          (geiser-repl--newline-and-indent)
        (insert "\n")))))

(define-derived-mode geiser-repl-mode comint-mode "REPL"
  "Major mode for interacting with an inferior scheme repl process.
