From: nobu.nakada@...
Date: 2002-08-15T19:39:33+09:00
Subject: [ruby-dev:18020] Re: inferior-ruby-mode and irb

なかだです。

At Thu, 15 Aug 2002 16:41:28 +0900,
石塚圭樹 wrote:
> 何か問題が起ったらまた考えるってことで...

この件とは関係ないですが、ruby-send-definitionとruby-insert-end
が同じ\C-c\C-eで被ってます。テストのためにinf-ruby-keysをフック
に追加していたら、endが挿入できなくなって悩んでしまいました。
\M-\C-xにも設定してるので、\C-c\C-xあたりはどうでしょうか。

ついでにruby-send-blockなんてのも追加してみたり。


Index: inf-ruby.el
===================================================================
RCS file: /cvs/ruby/src/ruby/misc/inf-ruby.el,v
retrieving revision 1.4
diff -u -2 -p -r1.4 inf-ruby.el
--- inf-ruby.el	29 Jan 2002 07:16:09 -0000	1.4
+++ inf-ruby.el	15 Aug 2002 08:49:50 -0000
@@ -123,6 +123,8 @@
   (define-key ruby-mode-map "\M-\C-x" 'ruby-send-definition)
 ;  (define-key ruby-mode-map "\C-x\C-e" 'ruby-send-last-sexp)
-  (define-key ruby-mode-map "\C-c\C-e" 'ruby-send-definition)
-  (define-key ruby-mode-map "\C-c\M-e" 'ruby-send-definition-and-go)
+  (define-key ruby-mode-map "\C-c\C-b" 'ruby-send-block)
+  (define-key ruby-mode-map "\C-c\M-b" 'ruby-send-block-and-go)
+  (define-key ruby-mode-map "\C-c\C-x" 'ruby-send-definition)
+  (define-key ruby-mode-map "\C-c\M-x" 'ruby-send-definition-and-go)
   (define-key ruby-mode-map "\C-c\C-r" 'ruby-send-region)
   (define-key ruby-mode-map "\C-c\M-r" 'ruby-send-region-and-go)
@@ -263,4 +265,14 @@ of `ruby-program-name').  Runs the hooks
 ;  (ruby-send-region (save-excursion (backward-sexp) (point)) (point)))
 
+(defun ruby-send-block ()
+  "Send the current block to the inferior Ruby process."
+  (interactive)
+  (save-excursion
+    (ruby-end-of-block)
+    (end-of-line)
+    (let ((end (point)))
+      (ruby-beginning-of-block)
+      (ruby-send-region (point) end))))
+
 (defun switch-to-ruby (eob-p)
   "Switch to the ruby process buffer.
@@ -286,4 +298,11 @@ Then switch to the process buffer."
   (interactive)
   (ruby-send-definition)
+  (switch-to-ruby t))
+
+(defun ruby-send-block-and-go ()
+  "Send the current block to the inferior Ruby. 
+Then switch to the process buffer."
+  (interactive)
+  (ruby-send-block)
   (switch-to-ruby t))
 


-- 
--- 僕の前にBugはない。
--- 僕の後ろにBugはできる。
    中田 伸悦