Запуск текстового редактора

(defun ru-app-txt-editor (/ reg_key editor)
  (setq reg_key (_ru-dirs-hkcu-reg-key))
  (if (not (setq editor (vl-registry-read reg_key "TxtEditor")))
    (progn
      (ru-msg-alert
        (strcat "Записываю в реестр TxtEditor=notepad в
 " reg_key)
      ) ;_ ru-msg-alert
      (setq editor (vl-registry-write
                     reg_key
                     "TxtEditor"
                     "notepad"
                   ) ;_vl-registry-write
      ) ;_setq
    ) ;_progn
  ) ;_if
editor
) ;_ end of defun