.#(! 3 . Mode_Info_Type+! 5) fold_info! 62 dabbrev_word_chars! 7. init_mode_menu! 8/ chglog_get_item! 9. use_dfa_syntax! 5! 3. Mode_Info_Type(" 12 . Mode_Info_List+ + Struct_Type * Assoc_Type!. Mode_Info_List,*" 14 ) mode_name+" 16 . Mode_Info_List ) mode_name 0 assoc_key_exists." 17 $ NULLw/b" 19 ) mode_name . Mode_Info_List!w" 14. find_mode_info,*" 22 * field_name + field_value+*" 24 ) mode_info+*" 25 ) mode_name+ - get_mode_name) mode_name" 27 & _NARGS! 3A." 28) mod e_name/c" 30 ) mode_name . find_mode_info) mode_info" 31 ) mode_info $ NULLA." 33 . Mode_Info_TypeM) mode_info" 34 ) mode_info ) mode_name . Mode_Info_List/c*" 37 & fields+ ) mode_info 6 get_struct_field_names& fields" 38 & fields * field_ nameA # any.*" 40 - new_mode_info+ & fields * field_name + Struct_TypeM- new_mode_info" 42 & fields.*" 44 ! f+! f" 45 - new_mode_info ! f ) mode_info ! f 0 get_struct_field 0 set_struct_field/" 47 - new_mode_info) mode_info" 48 ) mode _info ) mode_name . Mode_Info_List/b" 50 ) mode_info * field_name + field_value 0 set_struct_field" 22y2 mode_set_mode_info,*" 53 * field_name+*" 55 ) mode_info+" 57 & _NARGS! 1A." 58 - get_mode_name/c*" 60 ) mode_name+) mode_name" 62 ) mo de_name . find_mode_info) mode_info" 63 ) mode_info $ NULLA." 64 $ NULLw/c" 66 * field_name ) mode_info 6 get_struct_field_namesA # any." 67 $ NULLw/b" 69 ) mode_info * field_name 0 get_struct_fieldw" 53y2 mode_get_mode_info