Fix parsing bug in bind -n

Fixes #20.
marlonrichert · Dec 14, 2023 · 113a0d5 · 113a0d5
1 parent 14c7cd5
commit 113a0d5
Show file tree

Hide file tree

Showing 2 changed files with 17 additions and 2 deletions.
diff --git a/.clitest/bind.md b/.clitest/bind.md
@@ -258,6 +258,21 @@
 "^X}"       Control-X + }
 "^X~"       Control-X + ~
 "^X^?"      Control-X + Backspace
+% COLUMNS=40 key= bind -n '^['{\[,O}{{A..D},F,H,Z}
+"^[[A"      Up
+"^[[B"      Down
+"^[[C"      Right
+"^[[D"      Left
+"^[[F"      End
+"^[[H"      Home
+"^[[Z"      Shift-Tab
+"^[OA"      Up
+"^[OB"      Down
+"^[OC"      Right
+"^[OD"      Left
+"^[OF"      End
+"^[OH"      Home
+"^[OZ"      Shift-Tab
 % COLUMNS=40 key= bind -n '^[[1;'{2..16}{A,B,C,D,F,H}
 "^[[1;2A"    Shift-Up
 "^[[1;2B"    Shift-Down

diff --git a/functions/bind b/functions/bind
@@ -32,13 +32,13 @@ elif [[ -v opts[-n] ]]; then
       [[ -n $name && $name != *- ]] &&
           name+=' + '
       case $code in
-        ( (#b)($'\e'[\[O]([ABCDFH]))* )
+        ( (#b)($'\e'[\[O]([ABCDFHZ]))* )
           case $match[2] in
             ( A ) name+='Up' ;;
             ( B ) name+='Down' ;;
             ( C ) name+='Right' ;;
             ( D ) name+='Left' ;;
-            ( E ) name+='End' ;;
+            ( F ) name+='End' ;;
             ( H ) name+='Home' ;;
             ( Z ) name+='Shift-Tab' ;;
           esac