picolisp

commit cde6ddfeb730175463eea44699f736091aca0952
parent 55670032ee17b3bdf30ca4644ffabaf29114515e
Author: Alexander Burger <abu@software-lab.de>
Date:   Sun,  2 Dec 2012 08:49:17 +0100

Support also non-escape-sequences with 'fkey'
Diffstat:
M
lib/led.l
 | 
16
++++++++--------

1 file changed, 8 insertions(+), 8 deletions(-)
diff --git a/lib/led.l b/lib/led.l
@@ -1,4 +1,4 @@
-# 27nov12abu
+# 02dec12abu
 # (c) Software Lab. Alexander Burger
 
 # Line editor
@@ -302,15 +302,15 @@
                         (link "C") ) )
                   (off "Insert")
                   (lMove) )
-               (and
-                  (assoc (pack "^[" @) "FKey")
-                  (let *Dbg "*Dbg"
-                     (run (cdr @)) ) )
+               (when (assoc (pack "^[" @) "FKey")
+                  (let *Dbg "*Dbg" (run (cdr @))) )
                (NIL "C") ) )
          (T
-            (when (= "C" ")")
-               (chgLine "Line" (prog1 "LPos" (lPar) (wait 200))) )
-            (insChar "C") ) ) ) )
+            (if (assoc "C" "FKey")
+               (let *Dbg "*Dbg" (run (cdr @)))
+               (when (= "C" ")")
+                  (chgLine "Line" (prog1 "LPos" (lPar) (wait 200))) )
+               (insChar "C") ) ) ) ) )
 
 # Command mode
 (de cmdMode ("C")