restores correct meta-dot behavior from #226

inadvertently reverted in 786bce0

also fixes incorrect ctrl-w (kill included space)
This commit is contained in:
Joseph Bryan 2016-09-03 20:24:55 -04:00
parent 8bf7564711
commit 8d10151379

View File

@ -684,9 +684,9 @@
$dot ?. &(?=(^ old.hit) ?=(^ i.old.hit))
ta-bel
=+ old=`(list @c)`i.old.hit
=+ b=(ta-jump(buf.say.inp old) %l %edg (lent old))
=+ sop=(ta-jump(buf.say.inp old) %l %ace (lent old))
%- ta-hom(ris ~)
(cat:edit pos.inp (slag b old))
(cat:edit pos.inp (slag sop old))
::
$bac ?: =(0 pos.inp)
ta-bel
@ -897,7 +897,7 @@
=| {b/_| i/@ud}
|- ^- @ud
?~ a i
=/ c =(32 i.a)
=/ c !=(32 i.a)
=. b |(b c)
?: &(b !|(=(0 i) c)) i
$(i +(i), a t.a)