diff options
| author | Federico Beffa <beffa@ieee.org> | 2016-01-05 18:59:19 -0500 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2016-01-05 18:59:19 -0500 |
| commit | 5330c255b581270dae5a1a1420e9395f92ce2156 (patch) | |
| tree | 7dfc665e77ec46aa24b133cae7728c0b0f3b7629 /lisp/progmodes/xscheme.el | |
| parent | 73809908c6520208df274dfbdf10e2fa87dc2064 (diff) | |
| download | emacs-5330c255b581270dae5a1a1420e9395f92ce2156.tar.gz | |
* lisp/progmodes/xscheme.el (xscheme-prompt-for-expression-exit):
Make it actually work. (Bug#22265)
Copyright-paperwork-exempt: yes
Diffstat (limited to 'lisp/progmodes/xscheme.el')
| -rw-r--r-- | 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 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 |