[Emacs-diffs] emacs-25 5330c25: * lisp/progmodes/xscheme.el (xscheme-prompt-for-expression-exit):

[Glenn Morris]

branch: emacs-25
commit 5330c255b581270dae5a1a1420e9395f92ce2156
Author: Federico Beffa <address@hidden>
Commit: Glenn Morris <address@hidden>

    * lisp/progmodes/xscheme.el (xscheme-prompt-for-expression-exit):
    
    Make it actually work.  (Bug#22265)
    
    Copyright-paperwork-exempt: yes
---
 lisp/progmodes/xscheme.el |    5 +++--
 1 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/lisp/progmodes/xscheme.el b/lisp/progmodes/xscheme.el
index 6efc0b1..214f381 100644
--- a/lisp/progmodes/xscheme.el
+++ b/lisp/progmodes/xscheme.el
@@ -1174,9 +1174,10 @@ the remaining input.")
 
 (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