From d8102a8cd8053b6cbbf5f8effbda3572a7b1f8a5 Mon Sep 17 00:00:00 2001
From: hjunes <hjunes>
Date: Fri, 19 Sep 2003 07:38:51 +0000
Subject: [PATCH]        * buildscripts/lilypond.words.py: add drum names as
 note names to        Emacs-mode.

---
 ChangeLog                      |  5 +++++
 buildscripts/lilypond.words.py | 45 ++++++++++++++----------------------------
 2 files changed, 20 insertions(+), 30 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 4cd5909050..61bfaa6274 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2003-09-19  Heikki Junes  <hjunes@cc.hut.fi>
+
+	* buildscripts/lilypond.words.py: add drum names as note names to
+	Emacs-mode.
+
 2003-09-19  Han-Wen Nienhuys  <hanwen@cs.uu.nl>
 
 	* input/regression/hairpin-dashed.ly: new file.
diff --git a/buildscripts/lilypond.words.py b/buildscripts/lilypond.words.py
index c21202b051..10c8f9f516 100755
--- a/buildscripts/lilypond.words.py
+++ b/buildscripts/lilypond.words.py
@@ -74,29 +74,6 @@ for name in [
 	    outlines = outlines + [prekw + m.group(2)]
     F.close()
 
-# more identifiers
-for name in [
-'ly/declarations-init.ly',
-'ly/paper11-init.ly',
-'ly/paper13-init.ly',
-'ly/paper16-init.ly',
-'ly/paper19-init.ly',
-'ly/paper20-init.ly',
-'ly/paper23-init.ly',
-'ly/paper26-init.ly',
-'ly/paper-as5-init.ly',
-'ly/paper-as9-init.ly',
-'ly/paper-init.ly',
-'ly/params-init.ly',
-'ly/params-as-init.ly',
-]:
-    F = open(name, 'r')
-    for line in F.readlines():
-        m = re.search(r"^(\s*)([a-zA-Z]+)(\s*=)",line)
-        if m:
-	    outlines = outlines + [prekw + m.group(2)]
-    F.close()
-
 # note names
 for name in [
 'ly/catalan.ly',
@@ -112,13 +89,21 @@ for name in [
 ]:
     F = open(name, 'r')
     for line in F.readlines():
-      	for pattern in [
-	r"^(\s*\()([a-z]+)([^l]+ly:make-pitch)",
-	]:
-	    m = re.search(pattern,line)
-	    if m:
-                print(m.group(2))
-	        outlines = outlines + ['' + m.group(2)]
+	m = re.search(r"^(\s*\()([a-z]+)([^l]+ly:make-pitch)",line)
+	if m:
+	    outlines = outlines + ['' + m.group(2)]
+    F.close()
+
+# (short) drum names
+for name in [
+'share/lilypond/scm/drums.scm'
+]:
+    F = open(name, 'r')
+    for line in F.readlines():
+	m = re.search(r"^(\s*\([a-z]+\s*)([a-z]+)(\s*,\(ly:make-pitch)",line)
+	if m:
+	    print(m.group(2))
+	    outlines = outlines + ['' + m.group(2)]
     F.close()
     
 # reserved words
-- 
2.11.4.GIT