red: | fix

hugeping · Sep 13, 2023 · 4092f2b · 4092f2b
1 parent 09c55a6
commit 4092f2b
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/data/lib/red/proc.lua b/data/lib/red/proc.lua
@@ -261,9 +261,11 @@ proc['|'] = function(w, prog)
   if not f then
     return
   end
-
-  f:write(data.buf:gettext(data.buf:range()))
+  local s, e = data.buf:range()
+  f:write(data.buf:gettext(s, e))
   f:close()
+  data.buf:setsel(s, e + 1)
+  data.buf:cut()
   pipe(w:data(), 'cat '..tmp..'|'..prog..' 2>&1', tmp)
 end
 end