From 140177dda7f18374db8d4ed1a207ec01d4a86d9d Mon Sep 17 00:00:00 2001
From: nobu <nobu@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Tue, 22 Apr 2008 13:15:56 +0000
Subject: * misc/ruby-style.el (ruby-style-{case,label}-indent): up list from  
 indentation point.

git-svn-id: http://svn.ruby-lang.org/repos/ruby/trunk@16153 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 ChangeLog          | 5 +++++
 misc/ruby-style.el | 2 ++
 2 files changed, 7 insertions(+)

diff --git a/ChangeLog b/ChangeLog
index 165fb1763..77e954b66 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+Tue Apr 22 22:15:54 2008  Nobuyoshi Nakada  <nobu@ruby-lang.org>
+
+	* misc/ruby-style.el (ruby-style-{case,label}-indent): up list from
+	  indentation point.
+
 Tue Apr 22 21:09:05 2008  NARUSE, Yui  <naruse@ruby-lang.org>
 
 	* ext/nkf/nkf-utf8/nkf.c (score_table_A0, score_table_F0):
diff --git a/misc/ruby-style.el b/misc/ruby-style.el
index 97206722f..191541905 100644
--- a/misc/ruby-style.el
+++ b/misc/ruby-style.el
@@ -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))
-- 
cgit