Skip to content
This repository
Browse code

issue 10 fixed(?)

git-svn-id: https://distel.googlecode.com/svn/trunk@90 d5f8e727-742a-0410-b67d-dd739a6cc792
  • Loading branch information...
commit 7161ebd31c795a0e75c52fd0d6efb5294362e06d 1 parent 0009d8b
mats cronqvist authored

Showing 1 changed file with 14 additions and 12 deletions. Show diff stats Hide diff stats

  1. 26  elisp/distel-ie.el
26  elisp/distel-ie.el
@@ -76,7 +76,7 @@
76 76
   (erl-ie-read-nodename)
77 77
   (let ((end (point))
78 78
 	(beg (save-excursion
79  
-	       (loop do (re-search-backward "\\(\\`\\|^\\<\\)")
  79
+	       (loop do (re-search-backward "^$")
80 80
 		     while (looking-at "end"))
81 81
 	       (point))))
82 82
     (erl-ie-evaluate beg end node t)))
@@ -123,20 +123,22 @@ call or an expression."
123 123
 		  ;; Clear "Sent eval request.." message
124 124
 		  (message "")
125 125
 	      
126  
-		  (unless (looking-at "^")
127  
-		    (end-of-line)
128  
-		    (insert "\n"))
  126
+		  (let ((my-point (point)))
  127
+                    (unless (looking-at "^")
  128
+                      (end-of-line)
  129
+                      (insert "\n"))
129 130
 
130  
-		  (let ((beg (point)))
  131
+                    (let ((beg (point)))
131 132
 		    ;; Insert value, indent all lines of it 4 places,
132 133
 		    ;; then draw a " => " at the start.
133  
-		    (insert value)
134  
-		    (save-excursion (indent-rigidly beg (point) 5)
135  
-				    (goto-char beg)
136  
-				    (delete-region (point) (+ (point) 5))
137  
-				    (insert " --> ")))
138  
-		  (insert "\n\n")
139  
-		  (push-mark (point) t))
  134
+                      (insert value)
  135
+                      (save-excursion (indent-rigidly beg (point) 5)
  136
+                                      (goto-char beg)
  137
+                                      (delete-region (point) (+ (point) 5))
  138
+                                      (insert " -:-> ")))
  139
+                    (insert "\n")
  140
+                    (goto-char my-point)
  141
+                    (push-mark (point) t)))
140 142
 	      (display-message-or-view (format "Result: %s" value)
141 143
 				       "*Evaluation Result*")))
142 144
 	   

0 notes on commit 7161ebd

Please sign in to comment.
Something went wrong with that request. Please try again.