projects
/
lilypond.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
55f85b6
)
fixed withtags
author
kroger
<kroger>
Thu, 24 Mar 2005 23:52:09 +0000
(23:52 +0000)
committer
kroger
<kroger>
Thu, 24 Mar 2005 23:52:09 +0000
(23:52 +0000)
ChangeLog
patch
|
blob
|
history
ly/music-functions-init.ly
patch
|
blob
|
history
diff --git
a/ChangeLog
b/ChangeLog
index f5bd7e89c86ea4d1789aad87cf4351485148b288..f47a3650e9b54328b9ffb8ad816c4e20cef144e5 100644
(file)
--- a/
ChangeLog
+++ b/
ChangeLog
@@
-1,3
+1,8
@@
+2005-03-24 Pedro Kroger <kroeger@pedrokroeger.net>
+
+ * ly/music-functions-init.ly (removeWithTag): fixed to return "music".
+
+
2005-03-23 Graham Percival <gperlist@shaw.ca>
* Documentation/user/basic-notation.itely: fixed info about
diff --git
a/ly/music-functions-init.ly
b/ly/music-functions-init.ly
index 1d29068a7d07b52c361304b95a9853dc7e748f82..d9993e2fb1768529c1b1335be5e7da5017d87621 100644
(file)
--- a/
ly/music-functions-init.ly
+++ b/
ly/music-functions-init.ly
@@
-58,8
+58,9
@@
removeWithTag =
(music-filter
(lambda (m)
(let* ((tags (ly:music-property m 'tags))
- (res (memq tag tags)))
- (not res)))))
+ (res (memq tag tags)))
+ (not res)))
+ music))
keepWithTag =
#(def-music-function
@@
-67,10
+68,10
@@
keepWithTag =
(music-filter
(lambda (m)
(let* ((tags (ly:music-property m 'tags))
- (res (memq tag tags)))
-
(or
-
(eq? tags '())
-
(memq tag tags)
)))
+
(res (memq tag tags)))
+ (or
+ (eq? tags '())
+
res
)))
music))