Patch for erl-eval-expression

The following patch defaults the "Expression: " value to whatever is currently selected in 
the buffer when "erl-eval-expression" is executed:

--- erl-service.el	2007-05-28 08:42:54.000000000 -0700
+++ /Users/bc/Projects/distel/elisp/erl-service.el	2007-05-28 08:41:42.000000000 -0700
@@ -626,7 +626,12 @@
 
 (defun erl-eval-expression (node string)
   (interactive (list (erl-target-node)
-		     (erl-add-terminator (read-string "Expression: "))))
+		     (erl-add-terminator (read-from-minibuffer
+					  "Expression: "
+					  (if (equal mark-active nil)
+					      ""
+					    (copy-region-as-kill (mark) (point))
+					    (current-kill 0))))))
   (erl-spawn
     (erl-send-rpc node
 		  'distel


-------------------------------------------------------------------------
This SF.net email is sponsored by DB2 Express
Download DB2 Express C - the FREE version of DB2 express and take
control of your XML. No limits. Just data. Click to get it now.
http://sourceforge.net/powerbar/db2/