Редактирование описаний блоков

(defun ru-block-edit-decriptions (/ list_names_descriptions)
  ;; (ru-block-edit-decriptions)
  (if (setq list_names_descriptions
             (ru-block-show-all-names-and-decriptions NIL)
      ) ;_ end of setq
    (progn
      (mapcar '(lambda (x) (ru-block-set-description (car x) (cdr x)))
              list_names_descriptions
      ) ;_ end of mapcar
      (ru-block-list-all-names-and-decriptions)
    ) ;_ end of progn
    nil
  ) ;_ end of if
) ;_ end of defun