From 9f9a532d98f599d9aa05393cf56e8d1cae1d2966 Mon Sep 17 00:00:00 2001 From: nobu Date: Tue, 22 Apr 2008 13:15:56 +0000 Subject: [PATCH] * misc/ruby-style.el (ruby-style-{case,label}-indent): up list from indentation point. git-svn-id: svn+ssh://ci.ruby-lang.org/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 165fb17631..77e954b66e 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +Tue Apr 22 22:15:54 2008 Nobuyoshi Nakada + + * misc/ruby-style.el (ruby-style-{case,label}-indent): up list from + indentation point. + Tue Apr 22 21:09:05 2008 NARUSE, Yui * 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 97206722f6..1915419056 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))