lilypond-mode.el Changelog AUTHORS.texi

[Carlos Betancourt]

Hello all.
I've made some modifications to lilypond-mode.el and herewith I'm
submitting the patch for your review. Also, I've suggested, I'm sending
an update to Changelog and AUTHORS.texi. Should I also change
AUTHORS.txt or is it generated automatically?

Changes submitted are made against lilypond-1.7.8 recently released.

Thanks for your input, and also for your great work on lilypond. It's
very stimulating to collaborate to the project.

Carlos

P.S. I got a bit confused about identation. Any help in this regard is
highly appreciated.

---8<----cut here---

--- lilypond-mode.el    2002-11-12 11:47:54.000000000 +0100
+++ lilypond-mode.el.cbetan     2002-11-21 13:49:51.000000000 +0100
@@ -11,7 +11,10 @@
 ;;;    * Inserting tags, inspired on sgml-mode (11th Oct 2001)
 ;;;
 ;;; Changed 2002 Carlos Betancourt <address@hidden>
-;;;    * Added spanish-note-replacements
+;;;    * Added spanish-note-replacements (09th Nov 2002)
+;;;    * Modified way to display notes in the minibuffer 
+;;;      of Quick-Notes-Insert mode so to include other
+;;;      languages' notes (21th Nov 2002)
 
 ;;; Inspired on auctex
 
@@ -28,7 +31,7 @@
 (require 'easymenu)
 (require 'compile)
 
-(defconst LilyPond-version "1.7.6"
+(defconst LilyPond-version "1.7.8"
   "`LilyPond-mode' version number.")
 
 (defconst LilyPond-help-address "address@hidden"
@@ -560,13 +563,20 @@
   (setq note-replacements dutch-note-replacements)
   (while (not (= 27 ; esc to quit
     (setq x (read-char-exclusive 
-            (format " | a[_]s[_]d | f[_]j[_]k[_]l | r with ie ,' 12345678 . 0 
(<~>)/}\\b\\n Esc \n | c | d | e | f | g | a | %s | r with %s%s%s%s"
-                    (if (string= (car(cdr(assoc "b" note-replacements))) "h")
-                        "h" "b")
-                    (nth (+ accid 2) dutch-note-ends)
-                    (make-string (abs octav) (if (> octav 0) ?' ?,)) 
-                    durat 
-                    (if (string= durat "") "" (make-string dots ?.)))))))
+        (format " | a[_]s[_]d | f[_] j[_]k[_]l | r with ie ,' 12345678 . 0 
(<~>)/}\\b\\n Esc \n | %s |%s |%s| %s |%s |%s |%s| r with %s%s%s%s"
+             (or (car(cdr(assoc "c" note-replacements))) "c ")
+             (or (car(cdr(assoc "d" note-replacements))) "d ")
+             (or (car(cdr(assoc "e" note-replacements))) "e ")
+             (or (car(cdr(assoc "f" note-replacements))) "f ")
+             (or (car(cdr(assoc "g" note-replacements))) " g ")
+             (or (car(cdr(assoc "a" note-replacements))) "a ")
+             (or (if (string= (car(cdr(assoc "b" note-replacements))) "h") "h 
")
+             (car(cdr(assoc "b" note-replacements)))
+                 "b ")            
+             (nth (+ accid 2) dutch-note-ends)
+             (make-string (abs octav) (if (> octav 0) ?' ?,)) 
+             durat 
+             (if (string= durat "") "" (make-string dots ?.)))))))
 ;    (insert (number-to-string x)) ; test numbers for characters
     (setq note (cdr (assoc (char-to-string x) dutch-notes)))
     (cond




--- ChangeLog   2002-11-19 13:10:24.000000000 +0100
+++ ChangeLog.cbetan    2002-11-21 11:17:54.000000000 +0100
@@ -1,3 +1,7 @@
+2002-11-20 Carlos Betancourt <address@hidden>
+       * emacs-mode.el: Modified way to display notes in the minibuffer 
+        of Quick-Notes-Insert mode so to include other languages' notes
+
 2002-11-19 Juergen Reuter  <address@hidden>
 
        * lily/cluster-engraver.cc: bugfix: use protected scm upon columns


--- Documentation/topdocs/AUTHORS.texi  2002-08-12 12:51:37.000000000 +0200
+++ Documentation/topdocs/AUTHORS.texi.cbetan   2002-11-21 11:17:36.000000000 
+0100
@@ -27,6 +27,8 @@
 @item @email{matsb@@s3.kth.se, Mats Bengtsson},
     @uref{http://www.s3.kth.se/~matsb/}
     lots of testing, fixes, general comments and contributions.
address@hidden @email{carlos.betancourt@@chello.be, Carlos Betancourt}
+    Spanish note names, updates to Emacs-mode
 @item Laura Conrad (lconrad@@laymusic.org)
     fixes to abc2ly
 @item @email{Jan.A.Fagertun@@trondheim.online.no, Jan Arne Fagertun},