From: Federico Beffa <beffa@ieee.org>
Date: Tue, 5 Jan 2016 23:59:19 +0000 (-0500)
Subject: * lisp/progmodes/xscheme.el (xscheme-prompt-for-expression-exit):
X-Git-Tag: emacs-25.0.90~258
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5330c255b581270dae5a1a1420e9395f92ce2156;p=emacs.git

* lisp/progmodes/xscheme.el (xscheme-prompt-for-expression-exit):

Make it actually work.  (Bug#22265)

Copyright-paperwork-exempt: yes
---

diff --git a/lisp/progmodes/xscheme.el b/lisp/progmodes/xscheme.el
index 6efc0b1dccf..214f381971a 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