picolisp

commit ac272a699b9a1b8654b330879f8544ae84957f6e
parent 811db31e3fdaaac1d10d5b5805d605d0d8b31c69
Author: Alexander Burger <abu@software-lab.de>
Date:   Tue, 16 Jul 2013 18:12:35 +0200

Line edit: Move to end of line
Diffstat:
M
lib/led.l
 | 
10
++++------

1 file changed, 4 insertions(+), 6 deletions(-)
diff --git a/lib/led.l b/lib/led.l
@@ -1,4 +1,4 @@
-# 25may13abu
+# 16jul13abu
 # (c) Software Lab. Alexander Burger
 
 # Line editor
@@ -375,15 +375,13 @@
    (use "C"
       (chgLine "L" (inc (length "L")))
       (on "Insert")
-      (until
-         (member
-            (setq "C" (let *Dbg "*Dbg" (key)))
-            '("^J" "^M") )
+      (until (member (setq "C" (let *Dbg "*Dbg" (key))) '("^J" "^M"))
          (case "C"
             (NIL (bye))
             ("^D" (prinl) (bye))
             ("^X" (prin (cdr *Tsm)) (prinl) (quit)) )
-         ((if "Insert" insMode cmdMode) "C") ) ) )
+         ((if "Insert" insMode cmdMode) "C") )
+      (eMove) ) )
 
 # Function keys
 (de fkey (Key . Prg)