picolisp

commit dda5acde4232634fbd8b446b03cea4d4d3e136c2
parent 0a5fc98a6a11387eb4ecedf9036999a04558d4e4
Author: Alexander Burger <abu@software-lab.de>
Date:   Mon, 12 Nov 2012 18:30:17 +0100

Address word _under_ the cursor in 'edit'
Diffstat:
M
lib/edit.l
 | 
4
++--

1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/lib/edit.l b/lib/edit.l
@@ -1,4 +1,4 @@
-# 28jul11abu
+# 12nov12abu
 # (c) Software Lab. Alexander Burger
 
 # "*F" "*Lst" "*X" "*K"
@@ -39,7 +39,7 @@
                      (prinl) ) ) ) )
          (call 'vim
             "+set isk=33-34,36-38,42-90,92,94-95,97-125"
-            "+map K yw:call setline(line(\"$\"), \"(\" . line(\".\") . \" \" . @@ . \")\")^MZZ"
+            "+map K yiw:call setline(line(\"$\"), \"(\" . line(\".\") . \" \" . @@ . \")\")^MZZ"
             "+map Q GC(0)^[ZZ"
             (pack "+" "N")
             "*F" )