-;; text mark
-
-(defcfun (text-mark-visible "gtk_text_mark_get_visible") :boolean
- (mark (g-object text-mark)))
-
-(defcfun gtk-text-mark-set-visible :void
- (mark (g-object text-mark))
- (visible :boolean))
-
-(defun (setf text-mark-visible) (new-value mark)
- (gtk-text-mark-set-visible mark new-value))
-
-(export 'text-mark-visible)
-
-(defcfun (text-mark-deleted "gtk_text_mark_get_deleted") :boolean
- (mark (g-object text-mark)))
-
-(export 'text-mark-deleted)
-
-(defcfun (text-mark-buffer "gtk_text_mark_get_buffer") (g-object text-buffer)
- (mark (g-object text-mark)))
-
-(export 'text-mark-buffer)
-