---i, 

A tiny patch to make ruby-mode.el aware of zmacs regions. 

---Content-Type: text/x-patch
Content-Disposition: attachment; filename=t
Content-Description: patch

--- ruby-mode.el~	Tue Dec 18 11:40:34 2001
+++ ruby-mode.el	Fri Jun  7 17:36:19 2002
@@ -565,7 +565,7 @@
 	indent)))
 
 (defun ruby-electric-brace (arg)
-  (interactive "P")
+  (interactive "_P")
   (self-insert-command (prefix-numeric-value arg))
   (ruby-indent-line t))
 
@@ -573,7 +573,7 @@
   "Move backward to next beginning-of-defun.
 With argument, do this that many times.
 Returns t unless search stops due to end of buffer."
-  (interactive "p")
+  (interactive "_p")
   (and (re-search-backward (concat "^\\(" ruby-block-beg-re "\\)\\b")
 			   nil 'move (or arg 1))
        (progn (beginning-of-line) t)))
@@ -588,7 +588,7 @@
 (defun ruby-end-of-defun (&optional arg)
   "Move forward to next end of defun.
 An end of a defun is found by moving forward from the beginning of one."
-  (interactive "p")
+  (interactive "_p")
   (and (re-search-forward (concat "^\\(" ruby-block-end-re "\\)\\($\\|\\b[^_]\\)")
 			  nil 'move (or arg 1))
        (progn (beginning-of-line) t))
@@ -622,12 +622,12 @@
 
 (defun ruby-beginning-of-block ()
   "Move backward to next beginning-of-block"
-  (interactive)
+  (interactive "_")
   (ruby-move-to-block -1))
 
 (defun ruby-end-of-block ()
   "Move forward to next beginning-of-block"
-  (interactive)
+  (interactive "_")
   (ruby-move-to-block 1))
 
 (defun ruby-reindent-then-newline-and-indent ()

----- Ed

---