;;;
(load-library "lilypond-font-lock")
+(load-library "lilypond-indent")
(require 'easymenu)
(require 'compile)
-(defconst LilyPond-version "1.3.143"
+(defconst LilyPond-version "1.5.28"
"`LilyPond-mode' version number.")
-(defconst LilyPond-help-address "bug-gnu-music@gnu.org"
+(defconst LilyPond-help-address "bug-lilypond@gnu.org"
"Address accepting submission of bug reports.")
(defvar LilyPond-mode-hook nil
;;"LilyPond"
LilyPond-command-default))
(t LilyPond-command-default)))
+
+ (completion-ignore-case t)
(answer (or LilyPond-command-force
(completing-read
(define-key LilyPond-mode-map "\C-c\C-m" 'LilyPond-command-next-midi)
(define-key LilyPond-mode-map "\C-cn" 'LilyPond-insert-tag-notes)
(define-key LilyPond-mode-map "\C-cs" 'LilyPond-insert-tag-score)
+ (define-key LilyPond-mode-map "\C-c;" 'comment-region)
)
;;; Menu Support
(setq block-comment-end "%}")
(make-local-variable 'indent-line-function)
- (setq indent-line-function 'indent-relative-maybe)
-
+ (setq indent-line-function 'LilyPond-indent-line)
+
(set-syntax-table LilyPond-mode-syntax-table)
(setq major-mode 'LilyPond-mode)
(setq mode-name "LilyPond")