mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-22 07:09:54 +00:00
Code Issues Releases Activity

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

Browse Source 
Make it actually work.  (Bug#22265)

Copyright-paperwork-exempt: yes
This commit is contained in:
Federico Beffa 2016-01-05 18:59:19 -05:00 committed by Glenn Morris
parent 73809908c6
commit 5330c255b5
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/progmodes/xscheme.el
View File

@ -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