nobu	2008-04-22 22:15:56 +0900 (Tue, 22 Apr 2008)

  New Revision: 16153

  Modified files:
    trunk/ChangeLog
    trunk/misc/ruby-style.el

  Log:
    * misc/ruby-style.el (ruby-style-{case,label}-indent): up list from
      indentation point.


  http://svn.ruby-lang.org/cgi-bin/viewvc.cgi/trunk/ChangeLog?r1=16153&r2=16152&diff_format=u
  http://svn.ruby-lang.org/cgi-bin/viewvc.cgi/trunk/misc/ruby-style.el?r1=16153&r2=16152&diff_format=u

Index: ChangeLog
===================================================================
--- ChangeLog	(revision 16152)
+++ ChangeLog	(revision 16153)
@@ -1,3 +1,8 @@
+Tue Apr 22 22:15:54 2008  Nobuyoshi Nakada  <nobu@r...>
+
+	* misc/ruby-style.el (ruby-style-{case,label}-indent): up list from
+	  indentation point.
+
 Tue Apr 22 21:09:05 2008  NARUSE, Yui  <naruse@r...>
 
 	* ext/nkf/nkf-utf8/nkf.c (score_table_A0, score_table_F0):
Index: misc/ruby-style.el
===================================================================
--- misc/ruby-style.el	(revision 16152)
+++ misc/ruby-style.el	(revision 16153)
@@ -19,6 +19,7 @@
 
 (defun ruby-style-case-indent (x)
   (save-excursion
+    (back-to-indentation)
     (unless (progn (backward-up-list) (back-to-indentation)
 		   (> (point) (cdr x)))
       (goto-char (cdr x))
@@ -26,6 +27,7 @@
 
 (defun ruby-style-label-indent (x)
   (save-excursion
+    (back-to-indentation)
     (unless (progn (backward-up-list) (back-to-indentation)
 		   (>= (point) (cdr x)))
       (goto-char (cdr x))

--
ML: ruby-changes@q...
Info: http://www.atdot.net/~ko1/quickml/