picolisp

commit 6ef3d3dd138505c4bf2f3b57d0b5d6dedb09d677
parent d539814554f49f82bacc63399e8be99499b0259f
Author: Alexander Burger <abu@software-lab.de>
Date:   Tue, 27 Nov 2012 19:23:11 +0100

Line editing cont.
Diffstat:
M
lib/led.l
 | 
4
++--

1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/lib/led.l b/lib/led.l
@@ -1,4 +1,4 @@
-# 26nov12abu
+# 27nov12abu
 # (c) Software Lab. Alexander Burger
 
 # Line editor
@@ -298,7 +298,7 @@
             (loop
                (NIL
                   (make
-                     (while (and (setq "C" (key 100)) (<> "C" "^["))
+                     (while (and (setq "C" (key 40)) (<> "C" "^["))
                         (link "C") ) )
                   (off "Insert")
                   (lMove) )