[gsharp-cvs] CVS gsharp

[rstrandh]

Update of /project/gsharp/cvsroot/gsharp
In directory common-lisp:/tmp/cvs-serv22978

Modified Files:
	measure.lisp 
Log Message:
Added an :after method to the append-char generic-function so that
the buffer is marked as modified when lyrics change.


--- /project/gsharp/cvsroot/gsharp/measure.lisp	2006/02/09 03:17:25	1.26
+++ /project/gsharp/cvsroot/gsharp/measure.lisp	2006/02/15 02:44:48	1.27
@@ -113,6 +113,10 @@
   (declare (ignore direction))
   (mark-modified element))
 
+(defmethod append-char :after ((element lyrics-element) char)
+  (declare (ignore char))
+  (mark-modified element))
+
 (defmethod note-position ((note note))
   (let ((clef (clef (staff note))))
     (+ (- (pitch note)
@@ -763,7 +767,8 @@
 	      (1- (nb-measures (segmentno buf (1- (nb-segments buf)))))))
 
 (defmethod mark-modified ((buffer rbuffer))
-  (setf (modified-p buffer) t))
+  (setf (modified-p buffer) t)
+  (setf (needs-saving buffer) t))
 
 (defmethod add-segment :after ((segment segment) (buffer rbuffer) position)
   (declare (ignore position))