figleaf.el: announce annotation/deannotation

This commit is contained in:
Brian Warner 2007-01-04 21:52:40 -07:00
parent fa11c3f722
commit 6d1ba16ef3

View File

@ -47,6 +47,7 @@
(dolist (ov (overlays-in (point-min) (point-max)))
(delete-overlay ov))
(setq figleaf-this-buffer-is-annotated nil)
(message "Removed annotations")
))
(defun figleaf-annotate (&optional show-code)
@ -91,6 +92,7 @@
'face '(:box "red")
)
)
(message "Added annotations")
)
)
(message "unable to find coverage for this file"))