From: fred Date: Tue, 26 Mar 2002 22:45:01 +0000 (+0000) Subject: lilypond-1.3.19 X-Git-Tag: release/1.5.59~1918 X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=2e0e9c6606a4d0f4a5d639d5c6c858059ed8a0af;p=lilypond.git lilypond-1.3.19 --- diff --git a/VERSION b/VERSION index 50e55c9270..da9c5c44cb 100644 --- a/VERSION +++ b/VERSION @@ -1,7 +1,7 @@ PACKAGE_NAME=LilyPond MAJOR_VERSION=1 MINOR_VERSION=3 -PATCH_LEVEL=18 +PATCH_LEVEL=19 MY_PATCH_LEVEL= # use the above to send patches: MY_PATCH_LEVEL is always empty for a diff --git a/mudela-mode.el b/mudela-mode.el deleted file mode 100644 index b059317a69..0000000000 --- a/mudela-mode.el +++ /dev/null @@ -1,198 +0,0 @@ -;;; mudela-mode.el --- Major mode for editing Mudela programs - - -;; Copyright (C) 1992,1993,1994 Tim Peters - -;; Author: 1997: Han-Wen Nienhuys -;; Author: 1995-1996 Barry A. Warsaw -;; 1992-1994 Tim Peters -;; Created: Feb 1992 -;; Version: 0.0 -;; Last Modified: 12SEP97 -;; Keywords: mudela languages music - -;; This software is provided as-is, without express or implied -;; warranty. Permission to use, copy, modify, distribute or sell this -;; software, without fee, for any purpose and by any individual or -;; organization, is hereby granted, provided that the above copyright -;; notice and this paragraph appear in all copies. - - - -;; Kyrie Eleison; it is my first real Elisp file -;; This is a cannabalised version of python-mode.el (HWN) -;; -;; TODO: -;; * should handle block comments too. -;; * handle lexer modes (\header, \melodic, \lyric) etc. -;; * indentation -;; * notenames? -;; * fontlock: \melodic \melodic -;; - -(defconst mu-version "1.2.16-dk1" - "`mudela-mode' version number.") - -(defconst mu-help-address "hanwen@cs.uu.nl" - "Address accepting submission of bug reports.") - -(defconst mudela-font-lock-keywords - (let* ((keywords '("spanrequest" "simultaneous" "sequential" "accepts" - "alternative" "bar" "breathe" - "cadenza" "chordmodifiers" "chords" "clef" "cm" "consists" - "consistsend" "context" - "duration" "font" "grace" "header" "in" "lyrics" - "key" "keysignature" "mark" "musicalpitch" - "time" "times" "midi" "mm" "name" "notenames" - "notes" "partial" "paper" "penalty" "property" "pt" - "relative" "remove" "repeat" "repetitions" "addlyrics" - "scm" "scmfile" "score" "script" - "shape" "skip" "textscript" "tempo" "translator" "transpose" - "type" "version" - )) - (kwregex (mapconcat (lambda (x) (concat "\\\\" x)) keywords "\\|"))) - - (list - (concat ".\\(" kwregex "\\)[^a-zA-Z]") - (concat "^\\(" kwregex "\\)[^a-zA-Z]") - '(".\\(\\\\[a-zA-Z][a-zA-Z]*\\)" 1 font-lock-variable-name-face) - '("^[\t ]*\\([a-zA-Z][_a-zA-Z]*\\) *=" 1 font-lock-variable-name-face) - )) - "Additional expressions to highlight in Mudela mode.") - -;; define a mode-specific abbrev table for those who use such things -(defvar mudela-mode-abbrev-table nil - "Abbrev table in use in `mudela-mode' buffers.") - -(define-abbrev-table 'mudela-mode-abbrev-table nil) - -(defvar mudela-mode-hook nil - "*Hook called by `mudela-mode'.") - -(defvar mu-mode-map () - "Keymap used in `mudela-mode' buffers.") - -(if mu-mode-map - () - (setq mu-mode-map (make-sparse-keymap)) - ;; (define-key mu-mode-map "\C-c\C-c" 'mu-foo-bar) - ) - -(defvar mu-mode-syntax-table nil - "Syntax table used in `mudela-mode' buffers.") - -;; -(if mu-mode-syntax-table - () - (setq mu-mode-syntax-table (make-syntax-table)) - (mapcar (function - (lambda (x) (modify-syntax-entry - (car x) (cdr x) mu-mode-syntax-table))) - '(( ?\( . "." ) ( ?\) . "." ) - ( ?\[ . "." ) ( ?\] . "." ) - ( ?\{ . "(}" ) ( ?\} . "){" ) - ( ?\< . "(>" )( ?\> . ")>") - ( ?\$ . "." ) ( ?\% . "." ) ( ?\& . "." ) - ( ?\* . "." ) ( ?\+ . "." ) ( ?\- . "." ) - ( ?\/ . "." ) ( ?\= . "." ) - ( ?\| . "." ) (?\\ . "\\" ) - ( ?\_ . "." ) - ( ?\' . "w") - ( ?\" . "\"" ) - ( ?\% . "<") - ( ?\n . ">") - -; FIXME -; ( ?% . ". 124b" ) -; ( ?{ . ". 23" ) - )) - - ) - -(defconst mu-imenu-generic-re "^\\([a-zA-Z_][a-zA-Z0-9_]*\\) *=" - "Regexp matching Identifier definitions.") - -;; Sadly we need this for a macro in Emacs 19. -(eval-when-compile - ;; Imenu isn't used in XEmacs, so just ignore load errors. - (condition-case () - (require 'imenu) - (error nil))) - -(defvar mu-imenu-generic-expression - (list (list nil mu-imenu-generic-re 1)) - "Expression for imenu") - -(defun mudela-mode () - "Major mode for editing Mudela files." - (interactive) - ;; set up local variables - (kill-all-local-variables) - - (make-local-variable 'font-lock-defaults) - (setq font-lock-defaults '(mudela-font-lock-keywords)) - - (make-local-variable 'paragraph-separate) - (setq paragraph-separate "^[ \t]*$") - - (make-local-variable 'paragraph-start) - (setq paragraph-start "^[ \t]*$") - - (make-local-variable 'comment-start) - (setq comment-start "%") - - (make-local-variable 'comment-start-skip) - (setq comment-start-skip "%{? *") - - (make-local-variable 'comment-end) - (setq comment-end "\n") - - (make-local-variable 'block-comment-start) - (setq block-comment-start "%{") - - (make-local-variable 'block-comment-end) - (setq block-comment-end "%}") - - ;; (make-local-variable 'comment-column) - ;; (setq comment-column 40) - - (make-local-variable 'imenu-generic-expression) - (setq imenu-generic-expression mu-imenu-generic-expression) - - (make-local-variable 'indent-line-function) - (setq indent-line-function 'indent-relative-maybe) - - ;; - (set-syntax-table mu-mode-syntax-table) - (setq major-mode 'mudela-mode) - (setq mode-name "Mudela") - (setq local-abbrev-table mudela-mode-abbrev-table) - (use-local-map mu-mode-map) - - ;; run the mode hook. mu-mode-hook use is deprecated - (run-hooks 'mudela-mode-hook)) - - -(defun mu-keep-region-active () - ;; do whatever is necessary to keep the region active in XEmacs. - ;; Ignore byte-compiler warnings you might see. Also note that - ;; FSF's Emacs 19 does it differently and doesn't its policy doesn't - ;; require us to take explicit action. - (and (boundp 'zmacs-region-stays) - (setq zmacs-region-stays t))) - - -;;(defun mu-comment-region (beg end &optional arg) -;; "Like `comment-region' but uses double hash (`#') comment starter." -;; (interactive "r\nP") -;; (let ((comment-start mu-block-comment-prefix)) -;; (comment-region beg end arg))) - -(defun mu-version () - "Echo the current version of `mudela-mode' in the minibuffer." - (interactive) - (message "Using `mudela-mode' version %s" mu-version) - (mu-keep-region-active)) - -(provide 'mu-mode) -;;; mudela-mode.el ends here