diff options
author | nobu <nobu@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2007-05-17 08:02:02 +0000 |
---|---|---|
committer | nobu <nobu@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2007-05-17 08:02:02 +0000 |
commit | b6c04c5de609c10d04f50a9c051f3ba7040635e6 (patch) | |
tree | 618585806f450e3d752d410be6ff2f2425d57ea1 /misc | |
parent | bfdfdf274928aff5d399af48fa7f78583aa15d5b (diff) |
* misc/ruby-style.el (ruby-style-label-indent): for yacc rules.
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/branches/ruby_1_8@12289 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'misc')
-rw-r--r-- | misc/ruby-style.el | 15 |
1 files changed, 11 insertions, 4 deletions
diff --git a/misc/ruby-style.el b/misc/ruby-style.el index 1768789470..e0ed41fbc9 100644 --- a/misc/ruby-style.el +++ b/misc/ruby-style.el @@ -4,18 +4,25 @@ (defun ruby-style-case-indent (x) (save-excursion (goto-char (cdr x)) - (if (looking-at "\\<case\\|default\\>") - (- c-basic-offset - (% (current-column) c-basic-offset))))) + (if (looking-at "\\<case\\|default\\>") '*))) + +(defun ruby-style-label-indent (x) + (save-excursion + (goto-char (cdr x)) + (backward-up-list) + (backward-sexp 2) + (if (looking-at "\\<switch\\>") '/))) (require 'cc-styles) (c-add-style "ruby" '("bsd" (c-basic-offset . 4) + (tab-width . 8) + (indent-tabs-mode . t) (c-offsets-alist (case-label . *) - (label . *) + (label . (ruby-style-label-indent *)) (statement-case-intro . *) (statement-case-open . *) (statement-block-intro . (ruby-style-case-indent +)) |