From bdc57be5099baa30686e37a8d38e5a7ca1e8d058 Mon Sep 17 00:00:00 2001 From: Dmitry Kalyanov Date: Fri, 13 Feb 2009 16:45:10 +0300 Subject: [PATCH] Fixed gtk:text-buffer-insert handling of len argument --- gtk/gtk.text.lisp | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/gtk/gtk.text.lisp b/gtk/gtk.text.lisp index 10a994a..8da3690 100644 --- a/gtk/gtk.text.lisp +++ b/gtk/gtk.text.lisp @@ -376,11 +376,11 @@ (assert (typep position '(or text-iter (member :cursor)))) (if interactive (if (eq position :cursor) - (gtk-text-buffer-insert-interactive-at-cursor buffer text (length text) default-editable) - (gtk-text-buffer-insert-interactive buffer position text (length text) default-editable)) + (gtk-text-buffer-insert-interactive-at-cursor buffer text -1 default-editable) + (gtk-text-buffer-insert-interactive buffer position text -1 default-editable)) (progn (if (eq position :cursor) - (gtk-text-buffer-insert-at-cursor buffer text (length text)) - (gtk-text-buffer-insert buffer position text (length text))) + (gtk-text-buffer-insert-at-cursor buffer text -1) + (gtk-text-buffer-insert buffer position text -1)) t))) (export 'text-buffer-insert) -- 1.7.10.4