nobu	2007-10-26 15:00:52 +0900 (Fri, 26 Oct 2007)

  New Revision: 13784

  Modified files:
    trunk/ChangeLog
    trunk/misc/ruby-style.el
    trunk/parse.y

  Log:
    * misc/ruby-style.el (ruby-style-{case,label}-indent): adjust for
      labels inside switch block.


  http://svn.ruby-lang.org/cgi-bin/viewvc.cgi/trunk/parse.y?r1=13784&r2=13783
  http://svn.ruby-lang.org/cgi-bin/viewvc.cgi/trunk/ChangeLog?r1=13784&r2=13783
  http://svn.ruby-lang.org/cgi-bin/viewvc.cgi/trunk/misc/ruby-style.el?r1=13784&r2=13783

Index: ChangeLog
===================================================================
--- ChangeLog	(revision 13783)
+++ ChangeLog	(revision 13784)
@@ -1,3 +1,8 @@
+Fri Oct 26 15:00:52 2007  Nobuyoshi Nakada  <nobu@r...>
+
+	* misc/ruby-style.el (ruby-style-{case,label}-indent): adjust for
+	  labels inside switch block.
+
 Fri Oct 26 05:48:57 UTC 2007  David Flanagan <davidflanagan@r...>
 	* array.c: raise IndexError for negative length in rb_ary_fill
 	
Index: misc/ruby-style.el
===================================================================
--- misc/ruby-style.el	(revision 13783)
+++ misc/ruby-style.el	(revision 13784)
@@ -20,18 +20,22 @@
 
 (defun ruby-style-case-indent (x)
   (save-excursion
-    (goto-char (cdr x))
-    (if (looking-at "\\<case\\|default\\>") '*)))
+    (unless (progn (backward-up-list) (back-to-indentation)
+		   (> (point) (cdr x)))
+      (goto-char (cdr x))
+      (if (looking-at "\\<case\\|default\\>") '*))))
 
 (defun ruby-style-label-indent (x)
   (save-excursion
-    (goto-char (cdr x))
-    (condition-case ()
-	(progn
-	  (backward-up-list)
-	  (backward-sexp 2)
-	  (if (looking-at "\\<switch\\>") '/))
-      (error))))
+    (unless (progn (backward-up-list) (back-to-indentation)
+		   (> (point) (cdr x)))
+      (goto-char (cdr x))
+      (condition-case ()
+	  (progn
+	    (backward-up-list)
+	    (backward-sexp 2)
+	    (if (looking-at "\\<switch\\>") '/))
+	(error)))))
 
 (require 'cc-styles)
 (c-add-style
Index: parse.y
===================================================================
--- parse.y	(revision 13783)
+++ parse.y	(revision 13784)
@@ -5870,11 +5870,11 @@
 		space_seen++;
 		break;
 	      case '.': {
-		  if ((c = nextc()) != '.') {
-		      pushback(c);
-		      pushback('.');
-		      goto retry;
-		  }
+		if ((c = nextc()) != '.') {
+		    pushback(c);
+		    pushback('.');
+		    goto retry;
+		}
 	      }
 	      default:
 		pushback(c);
@@ -5903,7 +5903,7 @@
 		return tOP_ASGN;
 	    }
 	    pushback(c);
-	    if (IS_ARG() && space_seen && !ISSPACE(c)){
+	    if (IS_ARG() && space_seen && !ISSPACE(c)) {
 		rb_warning0("`*' interpreted as argument prefix");
 		c = tSTAR;
 	    }
@@ -6084,8 +6084,8 @@
 	    compile_error(PARSER_ARG "incomplete character syntax");
 	    return 0;
 	}
-	if (rb_enc_isspace(c, parser->enc)){
-	    if (!IS_ARG()){
+	if (rb_enc_isspace(c, parser->enc)) {
+	    if (!IS_ARG()) {
 		int c2 = 0;
 		switch (c) {
 		  case ' ':
@@ -6156,7 +6156,7 @@
 	    return tOP_ASGN;
 	}
 	pushback(c);
-	if (IS_ARG() && space_seen && !ISSPACE(c)){
+	if (IS_ARG() && space_seen && !ISSPACE(c)) {
 	    rb_warning0("`&' interpreted as argument prefix");
 	    c = tAMPER;
 	}

--
ML: ruby-changes@q...
Info: http://www.atdot.net/~ko1/quickml