[Fix #563] Control+Arrow keys are not in the terminfo database

modules/editor/init.zsh

@@ -29,6 +29,8 @@ zmodload zsh/terminfo
 typeset -gA key_info
 key_info=(
   'Control'      '\C-'
+  'ControlLeft'  '\e[1;5D \e[5D \e\e[D \eOd'
+  'ControlRight' '\e[1;5C \e[5C \e\e[C \eOc'
   'Escape'       '\e'
   'Meta'         '\M-'
   'Backspace'    "^?"
@@ -206,10 +208,10 @@ bindkey -d
 # Emacs Key Bindings
 #
 
-for key ("$key_info[Escape]"{B,b}) bindkey -M emacs "$key" emacs-backward-word
+for key in "$key_info[Escape]"{B,b} "${(s: :)key_info[ControlLeft]}"
-for key ("$key_info[Escape]"{F,f}) bindkey -M emacs "$key" emacs-forward-word
+  bindkey -M emacs "$key" emacs-backward-word
-bindkey -M emacs "$key_info[Escape]$key_info[Left]" emacs-backward-word
+for key in "$key_info[Escape]"{F,f} "${(s: :)key_info[ControlRight]}"
-bindkey -M emacs "$key_info[Escape]$key_info[Right]" emacs-forward-word
+  bindkey -M emacs "$key" emacs-forward-word
 
 # Kill to the beginning of the line.
 for key in "$key_info[Escape]"{K,k}