Update of /project/phemlock/cvsroot/phemlock/src/core In directory common-lisp.net:/tmp/cvs-serv12917/src/core
Modified Files: htext3.lisp htext4.lisp Log Message: Identified initial, partial "undo protocol".
Date: Fri Dec 24 00:58:30 2004 Author: abakic
Index: phemlock/src/core/htext3.lisp diff -u phemlock/src/core/htext3.lisp:1.1 phemlock/src/core/htext3.lisp:1.2 --- phemlock/src/core/htext3.lisp:1.1 Fri Jul 9 17:00:36 2004 +++ phemlock/src/core/htext3.lisp Fri Dec 24 00:58:28 2004 @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; #+CMU (ext:file-comment - "$Header: /project/phemlock/cvsroot/phemlock/src/core/htext3.lisp,v 1.1 2004/07/09 15:00:36 gbaumann Exp $") + "$Header: /project/phemlock/cvsroot/phemlock/src/core/htext3.lisp,v 1.2 2004/12/23 23:58:28 abakic Exp $") ;;; ;;; ********************************************************************** ;;; @@ -100,7 +100,7 @@ (defconstant line-number-interval-guess 8 "Our first guess at how we should number an inserted region's lines.")
-(defun insert-region (mark region) +(defmethod insert-region (mark region) "Inserts the given Region at the Mark." (let* ((start (region-start region)) (end (region-end region))
Index: phemlock/src/core/htext4.lisp diff -u phemlock/src/core/htext4.lisp:1.1 phemlock/src/core/htext4.lisp:1.2 --- phemlock/src/core/htext4.lisp:1.1 Fri Jul 9 17:00:36 2004 +++ phemlock/src/core/htext4.lisp Fri Dec 24 00:58:29 2004 @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; #+CMU (ext:file-comment - "$Header: /project/phemlock/cvsroot/phemlock/src/core/htext4.lisp,v 1.1 2004/07/09 15:00:36 gbaumann Exp $") + "$Header: /project/phemlock/cvsroot/phemlock/src/core/htext4.lisp,v 1.2 2004/12/23 23:58:29 abakic Exp $") ;;; ;;; ********************************************************************** ;;; @@ -71,7 +71,7 @@ ;;;; DELETE-REGION.
-(defun delete-region (region) +(defmethod delete-region (region) "Deletes the Region." (let* ((start (region-start region)) (end (region-end region)) @@ -139,7 +139,7 @@ ;;;; DELETE-AND-SAVE-REGION.
-(defun delete-and-save-region (region) +(defmethod delete-and-save-region (region) "Deletes Region and returns a region containing the deleted characters." (let* ((start (region-start region)) (end (region-end region))