Index: pane.lisp
===================================================================
RCS file: /project/climacs/cvsroot/climacs/pane.lisp,v
retrieving revision 1.35
diff -c -r1.35 pane.lisp
*** pane.lisp	3 Mar 2006 19:38:57 -0000	1.35
--- pane.lisp	14 Mar 2006 03:00:51 -0000
***************
*** 1,4 ****
! ;;; -*- Mode: Lisp; Package: CLIMACS-GUI -*-
  
  ;;;  (c) copyright 2005 by
  ;;;           Robert Strandh (strandh@labri.fr)
--- 1,4 ----
! ;;; -*- Mode: Lisp; Package: CLIMACS-PANE -*-
  
  ;;;  (c) copyright 2005 by
  ;;;           Robert Strandh (strandh@labri.fr)
***************
*** 123,138 ****
  	 (setf (performing-undo buffer) performing-undo)))))
  
  (defmethod flip-undo-record ((record insert-record))
!   (with-slots (buffer offset objects) record
!      (change-class record 'delete-record
! 		   :length (length objects))
!      (insert-buffer-sequence buffer offset objects)))
  
  (defmethod flip-undo-record ((record delete-record))
!   (with-slots (buffer offset length) record
!      (change-class record 'insert-record
! 		   :objects (buffer-sequence buffer offset (+ offset length)))
!      (delete-buffer-range buffer offset length)))
  
  (defmethod flip-undo-record ((record compound-record))
    (with-slots (records) record
--- 123,140 ----
  	 (setf (performing-undo buffer) performing-undo)))))
  
  (defmethod flip-undo-record ((record insert-record))
!   (with-slots (buffer offset) record
!     (let ((objects (slot-value record 'objects)))
!       (change-class record 'delete-record
! 		    :length (length objects))
!       (insert-buffer-sequence buffer offset objects))))
  
  (defmethod flip-undo-record ((record delete-record))
!   (with-slots (buffer offset) record
!     (let ((length (slot-value record 'length)))
!       (change-class record 'insert-record
! 		    :objects (buffer-sequence buffer offset (+ offset length)))
!       (delete-buffer-range buffer offset length))))
  
  (defmethod flip-undo-record ((record compound-record))
    (with-slots (records) record

