[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs-25 5330c25: * lisp/progmodes/xscheme.el (xscheme-pro
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] emacs-25 5330c25: * lisp/progmodes/xscheme.el (xscheme-prompt-for-expression-exit): |
Date: |
Tue, 05 Jan 2016 23:59:37 +0000 |
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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs-25 5330c25: * lisp/progmodes/xscheme.el (xscheme-prompt-for-expression-exit):,
Glenn Morris <=