prt-introduce-variables.el

(defun prt-introduce-variables ()
  (interactive)
  (if mark-active
      (let (
            (resultbuf (get-buffer-create "*introduce-variables*"))
            )
        (with-current-buffer resultbuf
          (setq buffer-read-only nil)
          (erase-buffer)
          )
        (call-process-region (region-beginning) (region-end) "prt" nil (buffer-name resultbuf) nil "introduce_variables")
        (with-current-buffer resultbuf
          (setq buffer-read-only t)
          )
        (popwin:popup-buffer resultbuf)
        )
    (error "mark not active"))
  )