From: Heikki Junes <heikki.junes@hut.fi>
Date: Mon, 23 Feb 2004 01:34:05 +0000 (+0000)
Subject:         * elisp/lilypond-indent.el (get-buffer-size): add customization
X-Git-Tag: release/2.1.28~51
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=0378259ab119298aa5f8610e8df14573b8e24363;p=lilypond.git

    * elisp/lilypond-indent.el (get-buffer-size): add customization
	  groups for several variables (Reuben Thomas).
---

diff --git a/ChangeLog b/ChangeLog
index a8d50623c8..04685d0c07 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2004-02-23  Heikki Junes <hjunes@cc.hut.fi>
+
+	* elisp/lilypond-indent.el (get-buffer-size): add customization
+	groups for several variables (Reuben Thomas).
+
 2004-02-23  Han-Wen Nienhuys   <hanwen@xs4all.nl>
 
 	* scm/chord-entry.scm (construct-chord): process transposition
diff --git a/elisp/lilypond-indent.el b/elisp/lilypond-indent.el
index 4626646d06..635aa62472 100644
--- a/elisp/lilypond-indent.el
+++ b/elisp/lilypond-indent.el
@@ -11,46 +11,68 @@
 ;;; Variables for customising indentation style
 
 ;;; TODO:
-;;;    * currently, in bracket matching one may need a non-bracket 
+;;;    * currently, in bracket matching one may need a non-bracket
 ;;;      chararacter between the bracket characters, like ( ( ) )
 
 (defcustom LilyPond-indent-level 4
-  "*Indentation of lilypond statements with respect to containing block.")
+  "*Indentation of lilypond statements with respect to containing block."
+  :group 'LilyPond
+  :type 'integer)
 
 (defcustom LilyPond-brace-offset 0
   "*Extra indentation for open braces.
-Compares with other text in same context.")
+Compares with other text in same context."
+  :group 'LilyPond
+  :type 'integer)
 
 (defcustom LilyPond-angle-offset 0
   "*Extra indentation for open angled brackets.
-Compares with other text in same context.")
+Compares with other text in same context."
+  :group 'LilyPond
+  :type 'integer)
 
 (defcustom LilyPond-square-offset 0
   "*Extra indentation for open square brackets.
-Compares with other text in same context.")
+Compares with other text in same context."
+  :group 'LilyPond
+  :type 'integer)
 
 (defcustom LilyPond-scheme-paren-offset 0
   "*Extra indentation for open scheme parens.
-Compares with other text in same context.")
+Compares with other text in same context."
+  :group 'LilyPond
+  :type 'integer)
 
 (defcustom LilyPond-close-brace-offset 0
-  "*Extra indentation for closing braces.")
+  "*Extra indentation for closing braces."
+  :group 'LilyPond
+  :type 'integer)
 
 (defcustom LilyPond-close-angle-offset 0
-  "*Extra indentation for closing angle brackets.")
+  "*Extra indentation for closing angle brackets."
+  :group 'LilyPond
+  :type 'integer)
 
 (defcustom LilyPond-close-square-offset 0
-  "*Extra indentation for closing square brackets.")
+  "*Extra indentation for closing square brackets."
+  :group 'LilyPond
+  :type 'integer)
 
 (defcustom LilyPond-close-scheme-paren-offset 0
-  "*Extra indentation for closing scheme parens.")
+  "*Extra indentation for closing scheme parens."
+  :group 'LilyPond
+  :type 'integer)
 
 (defcustom LilyPond-fancy-comments t
-  "*Non-nil means distiguish between %, %%, and %%% for indentation.")
+  "*Non-nil means distiguish between %, %%, and %%% for indentation."
+  :group 'LilyPond
+  :type 'boolean)
 
 (defcustom LilyPond-comment-region "%%$"
   "*String inserted by \\[LilyPond-comment-region]\
- at start of each line in region.")
+ at start of each line in region."
+  :group 'LilyPond
+  :type 'string)
 
 (defun LilyPond-comment-region (beg-region end-region)
   "Comment/uncomment every line in the region.