[Phemlock-cvs] CVS update: phemlock/src/core/htext3.lisp phemlock/src/core/htext4.lisp

[Aleksandar Bakic]

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))