Редактирование имен блоков в диалоге

(defun ru-block-edit-all-names (/ lst lst_descr lst_names new_lst)

  ;;(ru-block-edit-all-names)

  (if (setq lst (ru-block-list-all-names-and-decriptions))
    (progn
      (foreach x lst
        (setq lst_names (cons (car x) lst_names)
              lst_descr (cons (strcat (car x) "=" (cadr x)) lst_descr)
        ) ;_ end of setq
      ) ;_ end of foreach
      (if (setq new_lst
                 (ru-dlg-double-list
                   "Список блоков" "Описание"      "Имя блока"
                   lst_descr       lst_names       NIL
                  ) ;_ end of ru-dlg-double-list
          ) ;_ end of setq
        (progn
          (mapcar
            (function (lambda (x)
                        (ru-block-rename
                          (ru-string-left-part (car x) "=")
                          (cdr x)
                        ) ;_ end of ru-block-rename
                      ) ;_ end of lambda
            ) ;_ end of function
            (cadr new_lst)
          ) ;_ end of mapcar
          (ru-block-show-all-names-and-decriptions NIL)
        ) ;_ end of progn
      ) ;_ end of if
    ) ;_ end of progn
  ) ;_ end of if
) ;_ end of defun