kotovalexarian-likes-github/ruby--ruby
1
0
Fork 0
mirror of https://github.com/ruby/ruby.git synced 2022-11-09 12:17:21 -05:00
Code Releases Activity

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

Browse source 
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
Show stats Download patch file Download diff file Expand all files Collapse all files

5
ChangeLog
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> 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): * ext/nkf/nkf-utf8/nkf.c (score_table_A0, score_table_F0):

2
misc/ruby-style.el
View file

@ -19,6 +19,7 @@
(defun ruby-style-case-indent (x) (defun ruby-style-case-indent (x)
(save-excursion (save-excursion
(back-to-indentation)
(unless (progn (backward-up-list) (back-to-indentation) (unless (progn (backward-up-list) (back-to-indentation)
(> (point) (cdr x))) (> (point) (cdr x)))
(goto-char (cdr x)) (goto-char (cdr x))
@ -26,6 +27,7 @@
(defun ruby-style-label-indent (x) (defun ruby-style-label-indent (x)
(save-excursion (save-excursion
(back-to-indentation)
(unless (progn (backward-up-list) (back-to-indentation) (unless (progn (backward-up-list) (back-to-indentation)
(>= (point) (cdr x))) (>= (point) (cdr x)))
(goto-char (cdr x)) (goto-char (cdr x))