[svn] r7456: nemerle/trunk/misc/nemerle.el

[pitkali]

Log:
* Added variable indent-expr-to-paren, so the user can choose the
  behaviour when breaking the line inside parens.


Author: pitkali
Date: Wed Feb 21 07:26:36 2007
New Revision: 7456

Modified:
   nemerle/trunk/misc/nemerle.el

Modified: nemerle/trunk/misc/nemerle.el
==============================================================================
--- nemerle/trunk/misc/nemerle.el	(original)
+++ nemerle/trunk/misc/nemerle.el	Wed Feb 21 07:26:36 2007
@@ -70,6 +70,11 @@
 
 ;;; Change Log:
 
+;; 2006-12-27 Piotr Kalinowski <pitkali at gmail.com>
+;;   * Added indent-expr-to-paren variable, so now the user can
+;;     choose behaviour when breaking the expression inside
+;;     parens.
+
 ;; 2006-03-06 Piotr Kalinowski <pitkali at gmail.com>
 ;;   * I have corrected if-else structures handling
 ;;     and in-match detection.
@@ -177,6 +182,10 @@
   "Whether we are using indentation based syntax. On by default, because
 it'll get turned off inside any parens anyway.")
 
+(defvar nemerle-indent-expr-to-paren t
+  "If a line is broken inside parenthesised expression and this is set to t,
+next line will be aligned to the opening paren.")
+
 (unless nemerle-mode-map
   (let ((map (make-sparse-keymap)))
     (define-key map "\C-c\C-c" 'comment-region)
@@ -641,7 +650,9 @@
 		   ((eq paren-char 0)
 		    (nemerle-get-offset end line))
 		   (t
-		    (1+ paren-column))))))))
+		    (if nemerle-indent-expr-to-paren
+			(1+ paren-column)
+		      (+ (+ top-indentation nemerle-basic-offset) (nemerle-get-nested end line))))))))))
 
 
 (defun nemerle-calculate-indentation ()