;;; xscheme.el --- run MIT Scheme under Emacs -*- lexical-binding: t; -*-
-;; Copyright (C) 1986-1987, 1989-1990, 2001-2015 Free Software
+;; Copyright (C) 1986-1987, 1989-1990, 2001-2016 Free Software
;; Foundation, Inc.
;; Maintainer: emacs-devel@gnu.org
(defun xscheme-prompt-for-expression-exit ()
(interactive)
- (if (eq (xscheme-region-expression-p (point-min) (point-max)) 'one)
+ (if (eq (xscheme-region-expression-p (minibuffer-prompt-end) (point-max))
+ 'one)
(exit-minibuffer)
- (error "input must be a single, complete expression")))
+ (error "Input must be a single, complete expression")))
(defun xscheme-region-expression-p (start end)
(save-excursion