[Linedit-cvs] CVS update: src/command-functions.lisp src/linedit.asd src/version.lisp-expr

[Nikodemus Siivola]

Update of /project/linedit/cvsroot/src
In directory common-lisp.net:/tmp/cvs-serv24545

Modified Files:
	command-functions.lisp linedit.asd version.lisp-expr 
Log Message:
Fixed delete-char-forwards behaviour when there is nothing to be deleted.
Date: Fri Mar  5 04:34:01 2004
Author: nsiivola

Index: src/command-functions.lisp
diff -u src/command-functions.lisp:1.8 src/command-functions.lisp:1.9
--- src/command-functions.lisp:1.8	Sat Feb 28 06:32:05 2004
+++ src/command-functions.lisp	Fri Mar  5 04:34:00 2004
@@ -49,7 +49,7 @@
   (declare (ignore chord))
   (with-editor-point-and-string ((point string) editor)
     (setf (get-string editor) (concat (subseq string 0 point) 
-				      (subseq string (1+ point))))))
+				      (subseq string (min (1+ point) (length string)))))))
 
 (defun delete-char-forwards-or-eof (chord editor)
   (if (equal "" (get-string editor))


Index: src/linedit.asd
diff -u src/linedit.asd:1.24 src/linedit.asd:1.25
--- src/linedit.asd:1.24	Fri Mar  5 04:21:45 2004
+++ src/linedit.asd	Fri Mar  5 04:34:00 2004
@@ -48,7 +48,7 @@
     (error 'operation-error :component c :operation o)))
 
 (defsystem :linedit
-    :version "0.15.6"
+    :version "0.15.7"
     :depends-on (:uffi :terminfo)
     :components
   (;; Common


Index: src/version.lisp-expr
diff -u src/version.lisp-expr:1.9 src/version.lisp-expr:1.10
--- src/version.lisp-expr:1.9	Fri Mar  5 04:21:46 2004
+++ src/version.lisp-expr	Fri Mar  5 04:34:00 2004
@@ -1 +1 @@
-0.15.6
+0.15.7