[Gd-chatter] r11264 - trunk/src/tools/elisp

[cpage at gwydiondylan.org]

Author: cpage
Date: Fri Apr 13 18:25:04 2007
New Revision: 11264

Modified:
   trunk/src/tools/elisp/dylan-mode.el
Log:
Job: minor

Fixed Dylan Mode indenting breakage introduced in change r11246. Indenting was
incorrect at the start of methods, due to mis-parsing of value declarations in
signatures.



Modified: trunk/src/tools/elisp/dylan-mode.el
==============================================================================
--- trunk/src/tools/elisp/dylan-mode.el	(original)
+++ trunk/src/tools/elisp/dylan-mode.el	Fri Apr 13 18:25:04 2007
@@ -513,10 +513,12 @@
 		'("iterate[ \t\n]+\\w+[ \t\n]*" "")
 		'("profiling[ \t\n]*" "")	      
 		;; special patterns for "define method" which is funky
-		(concat "\\(" define-pattern "\\)?"
-			"\\(method\\|function\\)[ \t\n]+[^\( ]*[ \t\n]*" "[ \t\n]*=>[^;)]+;?")
-		(concat "\\(" define-pattern "\\)?"
-			"\\(method\\|function\\)[ \t\n]+[^\( ]*[ \t\n]*" "[ \t\n]*;")
+		(list (concat "\\(" define-pattern "\\)?"
+			      "\\(method\\|function\\)[ \t\n]+[^\( ]*[ \t\n]*")
+		      "[ \t\n]*=>[^;)]+;?")
+		(list (concat "\\(" define-pattern "\\)?"
+			      "\\(method\\|function\\)[ \t\n]+[^\( ]*[ \t\n]*")
+		      "[ \t\n]*;")
 		(concat "define[ \t]+" dyl-named-definition-pattern
 			"[ \t\n]+[^ \t\n]+")
 		(concat "define[ \t]+" dyl-unnamed-definition-pattern)