Выбор файла из двойного списка описаний

(defun ru-dlg-file-dual-select-by-note (caption
                                        left_header
                                        right_header
                                        files_list
                                        /
                                       )
                                       ;|
  ;; Выбор из двойного списка
  ;; files_list - передаваемый список имен файлов, но отображается список
  ;; комментариев!
Возвращается правый результат
((name comment) (name comment) (name comment))
 |;
  (if (setq names_comments_list (ru-file-list-names-comments files_list))
    (ru-dlg-dual-list-select-by-comment
      caption
      left_header
      right_header
      (nth 0 names_comments_list)
      (nth 1 names_comments_list)
      (nth 1 names_comments_list)
      nil
    ) ;_ end of ru-dlg-dual-list
    nil
  ) ;_ end of setq
) ;_ end of defun