def rl_named_function(name)
case name
when "accept-line"
return :rl_newline
when "arrow-key-prefix"
return :rl_arrow_keys
when "backward-delete-char"
return :rl_rubout
when "character-search"
return :rl_char_search
when "character-search-backward"
return :rl_backward_char_search
when "copy-region-as-kill"
return :rl_copy_region_to_kill
when "delete-char"
return :rl_delete
when "delete-char-or-list"
return :rl_delete_or_show_completions
when "forward-backward-delete-char"
return :rl_rubout_or_delete
when "kill-whole-line"
return :rl_kill_full_line
when "non-incremental-forward-search-history"
return :rl_noninc_forward_search
when "non-incremental-reverse-search-history"
return :rl_noninc_reverse_search
when "non-incremental-forward-search-history-again"
return :rl_noninc_forward_search_again
when "non-incremental-reverse-search-history-again"
return :rl_noninc_reverse_search_again
when "redraw-current-line"
return :rl_refresh_line
when "self-insert"
return :rl_insert
when "undo"
return :rl_undo_command
when "beginning-of-line"
return :rl_beg_of_line
else
if name =~ /^[-a-z]+$/
return ('rl_'+name.gsub('-','_')).to_sym
end
end
nil
end