Current Path : /compat/linux/proc/68247/root/compat/linux/proc/68247/root/compat/linux/usr/share/doc/bash-3.2/scripts.noah/ |
FreeBSD hs32.drive.ne.jp 9.1-RELEASE FreeBSD 9.1-RELEASE #1: Wed Jan 14 12:18:08 JST 2015 root@hs32.drive.ne.jp:/sys/amd64/compile/hs32 amd64 |
Current File : //compat/linux/proc/68247/root/compat/linux/proc/68247/root/compat/linux/usr/share/doc/bash-3.2/scripts.noah/stty.bash |
# stty.bash # Author: Noah Friedman <friedman@prep.ai.mit.edu> # Created: 1992-01-11 # Last modified: 1993-09-29 # Public domain # Conversion to bash v2 syntax done by Chet Ramey # Commentary: # Code: require remap_keybindings #:docstring stty: # Track changes to certain keybindings with stty, and make those changes # reflect in bash's readline bindings as well. # # This requires bash version 1.10 or newer, since previous versions did not # implement the `bind' builtin. #:end docstring: ###;;;autoload function stty () { local erase="backward-delete-char" local kill="unix-line-discard" local werase="backward-kill-word" local lnext="quoted-insert" local readline_function="" local key="" local stty_command="" while [ $# -gt 0 ]; do case "$1" in erase | kill | werase | lnext ) key=$(echo "${2}" | cat -v | sed 's/\^/\\C-/') readline_function=$(eval echo \$${1}) # Get rid of any current bindings; the whole point of this # function is to make the distinction between readline # bindings and particular cbreak characters transparent; old # readline keybindings shouldn't hang around. # could use bind -r here instead of binding to self-insert remap_keybindings "${readline_function}" "self-insert" # Bind new key to appropriate readline function bind "\"${key}\": ${readline_function}" stty_command="${stty_command} ${1} ${2}" shift 2 ;; *) stty_command="${stty_command} ${1}" shift ;; esac done command stty ${stty_command} } provide stty # stty.bash ends here