Browse files

avoid screwing the debugger by sending redundant lines at the end of …

…the regions

git-svn-id: 0bbaf3bd-34e0-0310-bf65-c717079852d4
  • Loading branch information...
1 parent 6607aa6 commit 7e49809e757a0eaa1c33a9a7c1eddba8bd286c5d @vspinu vspinu committed Jul 18, 2012
Showing with 5 additions and 1 deletion.
  1. +5 −1 lisp/ess-inf.el
@@ -1214,7 +1214,11 @@ this does not apply when using the S-plus GUI, see `ess-eval-region-ddeclient'."
(ess-force-buffer-current "Process to load into: ")
(message "Starting evaluation...")
(setq message (or message "Eval region"))
+ (save-excursion
+ ;; don't send new lines at the end (avoid screwing the debugger)
+ (goto-char end)
+ (skip-chars-backward "\n\t ")
+ (setq end (point)))
(let* ((proc (get-process ess-local-process-name))
(visibly (if toggle (not ess-eval-visibly-p) ess-eval-visibly-p))
(dev-p (process-get proc 'developer))

0 comments on commit 7e49809

Please sign in to comment.