Use region as default code for ein:shared-output-eval-string

tkf · tkf · commit 76591e007bb2 · 2013-03-10T08:11:30.000+01:00
diff --git a/lisp/ein-shared-output.el b/lisp/ein-shared-output.el
@@ -199,7 +199,10 @@ shared output buffer.  You can open the buffer by the command
          ;; ... so error will be raised before user typing code if it
          ;; is impossible to execute
          (code (read-string
-                "IP[y]: " nil 'ein:shared-output-eval-string-history)))
+                "IP[y]: "
+                (when (region-active-p)
+                  (buffer-substring (region-beginning) (region-end)))
+                'ein:shared-output-eval-string-history)))
      (list code nil t kernel)))
   (unless kernel (setq kernel (ein:get-kernel-or-error)))
   (let ((cell (ein:shared-output-get-cell)))
