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