File: //usr/share/jed/lib/pushmode.slc
.#,*�" 12 $ mode ( old_mode & keymap+*�" 13 ( var_name ( try_mode+�" 15/ push-mode-stack�( var_name��" 16 ( var_name� 1 blocal_var_exists.��" 17 ( var_name � 1 define_blocal_var/b�" 19 & _NARGS.�" 20�$ mode/.���" 22- Push to mode: + Null_String + Nul
l_String� ) read_mini� ' strtrim�$ mode/d��" 24 $ mode� & strlen.w/b��" 27 $ mode� * is_defined! 0>.�" 29% _mode�$ mode��" 30 $ mode� * is_defined! 0>.��" 314 Mode is not defined.� % error/c/c�" 34 ) what_modeP�( old_mode��" 35 ( old_mode� & strlen.�"
36" no�( old_mode/b��" 38 ( old_mode! -! _� / str_replace_all�( old_mode���" 40 ( old_mode! ! _� / str_replace_all% _mode9� & strlow�( try_mode�" 41! 2� ( try_mode� * is_definedB.���" 43 ( old_mode! 0" 32� / extract_element% _mode9� & strlow�(
try_mode�" 44! 2� ( try_mode� * is_definedB.��" 45> Unable to get mode. Tried %s. ( try_mode� & verror/c/c�" 48 + what_keymap�& keymap�" 50 ' no_mode��" 51" . $ mode9� $ eval���" 53* . %s|%s,%s ( try_mode & keymap��" 54 ( var_name� . get_blocal_var
��" 53 ' sprintf�" 55 ( var_name��" 53 . set_blocal_var�" 10y) push_mode,*�" 60 ( var_name+/ push-mode-stack�( var_name*�" 61 % modes & keymap $ mode+��" 63 ( var_name� . get_blocal_var�% modes��" 64 % modes� & strlen.��" 654 mode stack is empty.� % er
ror/b��" 67 % modes! 0" 44� / extract_element�$ mode��" 68 $ mode! 1# 124� / extract_element�& keymap��" 69 $ mode! 0# 124� / extract_element�$ mode�" 71 ' no_mode��" 72 $ mode� $ eval��" 73 & keymap� * use_keymap���" 74 % modes! 1" 44� / extract_
element ( var_name� . set_blocal_var�" 58y( pop_mode