Permalink
Browse files

issue 10 fixed(?)

git-svn-id: https://distel.googlecode.com/svn/trunk@90 d5f8e727-742a-0410-b67d-dd739a6cc792
  • Loading branch information...
massemanet committed Mar 6, 2009
1 parent 0009d8b commit 7161ebd31c795a0e75c52fd0d6efb5294362e06d
Showing with 14 additions and 12 deletions.
  1. +14 −12 elisp/distel-ie.el
View
@@ -76,7 +76,7 @@
(erl-ie-read-nodename)
(let ((end (point))
(beg (save-excursion
- (loop do (re-search-backward "\\(\\`\\|^\\<\\)")
+ (loop do (re-search-backward "^$")
while (looking-at "end"))
(point))))
(erl-ie-evaluate beg end node t)))
@@ -123,20 +123,22 @@ call or an expression."
;; Clear "Sent eval request.." message
(message "")
- (unless (looking-at "^")
- (end-of-line)
- (insert "\n"))
+ (let ((my-point (point)))
+ (unless (looking-at "^")
+ (end-of-line)
+ (insert "\n"))
- (let ((beg (point)))
+ (let ((beg (point)))
;; Insert value, indent all lines of it 4 places,
;; then draw a " => " at the start.
- (insert value)
- (save-excursion (indent-rigidly beg (point) 5)
- (goto-char beg)
- (delete-region (point) (+ (point) 5))
- (insert " --> ")))
- (insert "\n\n")
- (push-mark (point) t))
+ (insert value)
+ (save-excursion (indent-rigidly beg (point) 5)
+ (goto-char beg)
+ (delete-region (point) (+ (point) 5))
+ (insert " -:-> ")))
+ (insert "\n")
+ (goto-char my-point)
+ (push-mark (point) t)))
(display-message-or-view (format "Result: %s" value)
"*Evaluation Result*")))

0 comments on commit 7161ebd

Please sign in to comment.