Update of /project/movitz/cvsroot/movitz/losp/lib In directory common-lisp.net:/tmp/cvs-serv30352
Modified Files: readline.lisp Log Message: Use #\Rubout rrather than #\delete.
Date: Thu Dec 9 15:16:14 2004 Author: ffjeld
Index: movitz/losp/lib/readline.lisp diff -u movitz/losp/lib/readline.lisp:1.6 movitz/losp/lib/readline.lisp:1.7 --- movitz/losp/lib/readline.lisp:1.6 Wed Nov 24 17:23:45 2004 +++ movitz/losp/lib/readline.lisp Thu Dec 9 15:16:13 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld frodef@acm.org ;;;; Created at: Fri Nov 2 13:58:58 2001 ;;;; -;;;; $Id: readline.lisp,v 1.6 2004/11/24 16:23:45 ffjeld Exp $ +;;;; $Id: readline.lisp,v 1.7 2004/12/09 14:16:13 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------
@@ -219,7 +219,7 @@ (write-char #\space)) (setf (cursor-x console) x end pos))) - ((#\delete #^d) + ((#\Rubout #^d) (when (< pos end) (dotimes (i (- end pos)) (setf (char buffer (+ pos i))