first commit

fn/z4h-backward-word

@@ -0,0 +1,19 @@
+#!/usr/bin/env zsh
+
+emulate -L zsh -o extended_glob
+local buf w=${WORDCHARS//[[:space:][:alnum:]]}
+repeat ${NUMERIC:-1}; do
+  buf=${LBUFFER%%[[:space:]]#}
+  if (( $#buf < 2 )); then
+    buf=
+  elif [[ $buf == *[[:space:]]? ]]; then
+    buf[-1]=
+  elif [[ $buf[-2,-1] != *[[:alnum:]$w]* ]]; then
+    buf=${buf%%[^[:space:][:alnum:]$w]#}
+  else
+    [[ $buf == *[[:alnum:]$w] ]] || buf[-1]=
+    buf=${buf%%[[:alnum:]$w]#}
+  fi
+  (( CURSOR -= $#LBUFFER - $#buf ))
+done
+return 0