- (let* ((i1 (make-instance 'text-iter))
- (i2 (make-instance 'text-iter)))
- (multiple-value-bind (i1 i2) (text-buffer-get-selection-bounds buffer)
- (when (and i1 i2)
- (let* ((i1 i1) (i2 i2)
- (dialog (make-instance 'message-dialog :buttons :ok)))
- (setf (message-dialog-text dialog)
- (format nil "selection: from (~A,~A) to (~A,~A)"
- (text-iter-line i1) (text-iter-line-offset i1)
- (text-iter-line i2) (text-iter-line-offset i2)))
- (dialog-run dialog)
- (object-destroy dialog)))))))
+ (declare (ignore b))
+ (multiple-value-bind (i1 i2) (text-buffer-get-selection-bounds buffer)
+ (when (and i1 i2)
+ (let* ((i1 i1) (i2 i2)
+ (dialog (make-instance 'message-dialog :buttons :ok)))
+ (setf (message-dialog-text dialog)
+ (format nil "selection: from (~A,~A) to (~A,~A)"
+ (text-iter-line i1) (text-iter-line-offset i1)
+ (text-iter-line i2) (text-iter-line-offset i2)))
+ (dialog-run dialog)
+ (object-destroy dialog))))))