.#,* $ mode ( old_mode & keymap+* ( var_name ( try_mode+/ push-mode-stack°( var_nameý ( var_nameþ 1 blocal_var_exists.ý ( var_name þ 1 define_blocal_var/b & _NARGS.°$ mode/.ýý- Push to mode: + Null_String + Null_Stringþ ) read_miniþ ' strtrim°$ mode /dý $ modeþ & strlen.w/bý $ modeþ * is_defined! 0>.% _mode±$ modeý $ modeþ * is_defined! 0>.ý4 Mode is not defined.þ % error/c/c ) what_modeP°( old_modeý ( old_modeþ & strlen." no°( old_mode/bý ( old_mode! -! _þ ( strtrans°( old_modeýý ( old_mode ! ! _þ ( strtrans% _mode9þ & strlow°( try_mode! 2ý ( try_modeþ * is_definedB.ýý ( old_mode! 0" 32þ / extract_element% _mode9þ & strlow°( try_mode! 2ý ( try_modeþ * is_definedB.ý> Unable to get mode. Tried %s. ( try_modeþ & verror/c/c + what_keymap°& keymapý! . $ mode9þ $ evalýý) .%s|%s,%s ( try_mode & keymapý ( var_nameþ . get_blocal_varþ ' sprintf ( var_nameþ . set_blocal_vary) push_mode,* ( var_name+/ push-mode-stack°( var_name* % modes & keymap $ mode+ý ( var_nameþ . get_blocal_var°% modesý % modesþ & strlen.ý4 mode stack is empty.þ % error/bý % modes! 0" 44þ / extract_element°$ modeý $ mode! 1# 124þ / extract_element°& keymapý $ mode! 0# 124þ / extract_element°$ modeý $ modeþ $ evalý & keymapþ * use_keymap ýý % modes! 1" 44þ / extract_element ( var_nameþ . set_blocal_vary( pop_mode