File 1107-stdlib-Fix-backspace-for-empty-search.patch of Package erlang

Overview Repositories Revisions Requests Users Attributes Meta

File 1107-stdlib-Fix-backspace-for-empty-search.patch of Package erlang

From f586260347081b6cd81e17894287c934b7f02e5d Mon Sep 17 00:00:00 2001
From: Lukas Larsson <lukas@erlang.org>
Date: Wed, 30 Mar 2022 17:26:32 +0200
Subject: [PATCH 07/34] stdlib: Fix backspace for empty search

Closes #4225
---
 lib/stdlib/src/edlin.erl | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/lib/stdlib/src/edlin.erl b/lib/stdlib/src/edlin.erl
index 6078c5e67b..cbd10ae3bd 100644
--- a/lib/stdlib/src/edlin.erl
+++ b/lib/stdlib/src/edlin.erl
@@ -191,9 +191,9 @@ key_map($\^E, none) -> end_of_line;
 key_map($\^F, none) -> forward_char;
 key_map($\^H, none) -> backward_delete_char;
 key_map($\t, none) -> tab_expand;
+key_map($\^K, none) -> kill_line;
 key_map($\^L, none) -> redraw_line;
 key_map($\n, none) -> new_line;
-key_map($\^K, none) -> kill_line;
 key_map($\r, none) -> new_line;
 key_map($\^T, none) -> transpose_char;
 key_map($\^U, none) -> ctlu;
@@ -320,9 +320,9 @@ do_op({search, backward_delete_char}, [_|Bef], Aft, Rs) ->
     {{Bef,NAft},
      [{insert_chars, unicode, NAft}, {delete_chars,-Offset}|Rs],
      search};
-do_op({search, backward_delete_char}, [], _Aft, Rs) ->
-    Aft="': ",
-    {{[],Aft}, Rs, search};
+do_op({search, backward_delete_char}, [], Aft, Rs) ->
+    NAft="': ",
+    {{[],NAft}, [{insert_chars, unicode, NAft}, {delete_chars,-cp_len(Aft)}|Rs], search};
 do_op({search, skip_up}, Bef, Aft, Rs) ->
     Offset= cp_len(Aft),
     NAft = "': ",
-- 
2.35.3

Places

File 1107-stdlib-Fix-backspace-for-empty-search.patch of Package erlang

Places