* 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
This commit is contained in:
nobu 2008-04-22 13:15:56 +00:00
parent 29934eed9d
commit 9f9a532d98
2 changed files with 7 additions and 0 deletions

View File

@ -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):

View File

@ -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))