
  PROCEDURE [INLINE] clp$get_command_search_mode
    (VAR search_mode: clt$command_search_modes);

?? PUSH (LISTEXT := ON) ??

    VAR
      command_list: ^clt$command_list,
      ignore_cmnd_list_found_in_task: boolean;

    clp$find_command_list (command_list, ignore_cmnd_list_found_in_task);
    search_mode := command_list^.search_mode;

  PROCEND clp$get_command_search_mode;

*copyc clt$command_list
*copyc clt$command_search_modes
?? POP ??
*copyc clp$find_command_list
